VBA快速拆分excel文件各个sheet为不同工作簿

一、需要将工作簿里面不同的sheet快速拆分成为不同的工作簿

二、代码

  Sub 分拆工作表()

    Dim sh As Worksheet

    Dim MyBook As Workbook

    Set MyBook = ActiveWorkbook

    For Each sh In MyBook.Sheets

        sh.Copy
    
        ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sh.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
    
        ActiveWorkbook.Close
    
        Next

    MsgBox "文件已经被分拆完毕!"

    End Sub