Excel多个sheet拆分后分别另存为文件

1.alt+f11打开代码编辑器

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:=xlOpenXMLWorkbook

           ActiveWorkbook.Close

       Next

       MsgBox "文件已拆分!"

   End Sub

　　3.点击运行