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

 

---