VBA实现将每个工作表另存为单独的工作簿

　　一下代码实现将每个工作表另存为单独的工作簿，期中文件名和路径大家可以自己设置。

Sub 每个工作表另存为单独的工作簿()
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

==============
以上代码是将每个工作表另存为单独的工作簿