【原】Excel教程：excel拆分工作簿（表），一键拆分几百个文件，只需3秒！

下面这个Excel文件，有5个工作表（我们实际工作中可能会有N个工作表）。

通过一段代码，将工作表拆分出来放在文件夹下面。

要实现一键拆分，肯定会用到VBA代码。操作步骤如下：

代码分享给大家：

Sub EachShtToWorkbook()

    Dim sht As Worksheet, strPath As String

    With Application.FileDialog(msoFileDialogFolderPicker)

   '选择保存工作薄的文件路径

        If .Show Then strPath = .SelectedItems(1) Else Exit Sub

        '读取选择的文件路径,如果用户未选取路径则退出程序

    End With

    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

    Application.DisplayAlerts = False

    '取消显示系统警告和消息，避免重名工作簿无法保存。当有重名工作簿时，会直接覆盖保存。

    Application.ScreenUpdating = False '取消屏幕刷新

    For Each sht In Worksheets '遍历工作表

        sht.Copy '复制工作表，工作表单纯复制后，会成为活动工作薄

        With ActiveWorkbook

            .SaveAs strPath & sht.Name, xlWorkbookDefault

            '保存活动工作薄到指定路径下，以当前系统默认文件格式

            .Close True '关闭工作薄并保存

        End With

    Next

    MsgBox "处理完成。", , "提醒"

    Application.ScreenUpdating = True '恢复屏幕刷新

    Application.DisplayAlerts = True '恢复显示系统警告和消息

End Sub