如何将一个excel工作薄拆分为多个工作表
发布网友
发布时间：2022-04-23 07:01
共1个回答
热心网友
时间：2022-06-17 04:22
将每一个工作表保存为一个工作薄。
打开工作表》Alt+F11》粘贴下列代码》运行代码。
SubSaveSheet()
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
ws.Copy
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" &
ws.Name, FileFormat:=xlOpenXMLWorkbook _
, Password:="",
WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
