多个工作表拆分为独立工作簿

1、点击菜单插入模块，输入以下代码。若在菜单栏中无法看到“开发工具”，以此点击文件>选项>自定义功能区>勾选开发工具>确定。

2、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     '将工作簿另存为"xls"默认格式           'ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name & ".xlsx"     '将工作簿另存为"xlsx"格式           ActiveWorkbook.Close       Next       MsgBox "文件已经被分拆完毕!"   End Sub

3、工作表薄中的所有表全部独立出现在该表格同一路径下。