excel如何将一个工作薄中的工作表生成独立的工作薄

excel如何将一个工作薄中的工作表生成独立的工作薄 

'用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

 

---