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

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

2、Private Sub 分拆工作表() Dim sht As 掳姗浚瑙Worksheet Dim MyBook As Workbook Set MyBook = A艘早祓胂ctiveWorkbook 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、工作表薄中的所有表全部独立出现在该表格同一路径下。