拆分excel工作薄里的多个工作表为多个工作薄

Sub SaveSeparately()

Dim sht As Worksheet

Application.ScreenUpdating = False

ipath = ThisWorkbook.Path & "\"

For Each sht In Sheets

sht.Copy

ActiveWorkbook.SaveAs ipath & sht.Name & ".xls"

ActiveWorkbook.Close

Next

Application.ScreenUpdating = True

End Sub