如何把Execl表和拆分成单个的excel表格文件

#

需求：

现在我有一个excel文件，里面有1000张表，领导要求把这些表中的某100个表单独发给他！

疑问：难道我要把这100张表一张一张的复制出来然后再发给老板吗？no no no

绝招：拆分表

开始教程

步骤1：打开您的Excel工作簿，然后单击开发工具选项卡下的“**Visual Basic”**命令，或者只需按“ALT + F11”快捷方式。如果没有开发工具一栏，直接按快捷键

**步骤2：**出现“Visual Basic编辑器”窗口 单击“插入” – >“模块”以创建新模块。

**步骤3：**将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮

Sub SplitWorkbook()
    Dim workbookPath As String
    workbookPath = Application.ActiveWorkbook.Path
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each wSheet In ThisWorkbook.Sheets
        wSheet.Copy
        Application.ActiveWorkbook.SaveAs Filename:=workbookPath & "\" & wSheet.Name & ".xlsx"
        Application.ActiveWorkbook.Close False
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

步骤4：然后运行上面的excel宏。单击运行命令

见证奇迹

#

所有的表格全部变成单个文件