如何将EXCEL工作薄按工作表拆分为多个工作薄

如何将EXCEL工作薄按工作表拆分为多个工作薄

开发工具选项卡——控件中选“查看代码”——工程栏中“插入”“模块”
将下列代码复制粘贴进去——运行。

Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal
ActiveWorkbook.Close
Next
MsgBox "文件分拆完毕!"
End Sub

将每一个工作表保存为一个工作薄。 打开工作表》alt+f11》粘贴下列代码》运行代码。  sub   savesheet()        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