怎么拆分一个Excel工作簿中的多个工作表

1、打开需要处理的Excel文档。

2、在任意工作表上单击右键。

3、单击“查看代码”。

4、进入VB工程页面。

5、单击“插入”。

6、单击“模块”。

7、输入以下代码：

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

8、点击“运行”。

9、点击“运行子过程/用户窗体”。

10、文件拆分完毕。