VBA-工作簿里面多个Shee拆分成独立的工作簿

1.打开视图—>代码窗口—>粘贴代码
2.运行代码

 Private Sub chafenbiao()
       Dim sht As Worksheet
       Dim MyBook As Workbook
       Set MyBook = ActiveWorkbook
       For Each sht In MyBook.Sheets
           sht.Copy
           '将工作簿另存为EXCEL默认格式
           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal
           ActiveWorkbook.Close
       Next      
   End Sub

去文件夹查看