提取excel 工作表

来源：百度知道 编辑：UC知道 时间：2024/05/14 09:32:25
一张excel工作簿含有若干张工作表，如何自动地按各张工作表的名称把各张工作表另存为若干个新的工作簿？

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