Excel分拆工作表VBA代码

步骤1：同时按下“Alt+F11”快捷键查看Excel代码

步骤2：【插入】-【模块】导入事先编好的拆分代码。

步骤3：【运行】-【运行子过程】，等待显示“文件已拆分完毕”，完成操作。

拆分代码如下:

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