如何将excel表的sheet拆成单独的文件表

创建一个测试表格，3个sheet，内容分别为"aaa"，"bbb"，"ccc"。

使用office打开，右击某个sheet弹出操作栏，选择"查看代码"。

然后在弹框里输入下面代码：

代码：

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:=xlOpenXMLWorkbook     '将工作簿另存为EXCEL默认格式
           ActiveWorkbook.Close
       Next
       MsgBox "文件已经被分拆完毕!"
   End Sub

 然后单击上边操作栏中的"运行"，选择"运行子过程/用户窗体"。

然后会自动开始进行拆分，中途可能会弹出下边提示，选择"是"就ok。

弹出这个就完成了