excel一个工作簿中多个工作表拆分成多个工作簿

打开表格，如下一个工作簿中有多个工作表。

右击工作表名称，点击查看代码(V)。

显示如下页面。

空白处，复制黏贴如下信息： 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 '将工作簿另存为EXCEL默认格式 ActiveWorkbook.Close Next MsgBox "文件已经被分拆完毕!" End Sub

点击运行-运行子过程/用户窗体。

完成后，保存，显示如下。