利用VBA拆分单个工作簿成多个工作簿的方法

提示：在工作中经常要将单个工作簿拆分成多个工作簿，以便发送给其他人，老方法都是用移动或复制工作表，另存为单个工作簿，这个方法目前很多人都在用，如果你想省时省力的话不访也来了解一下方法，说白了也就是套用一下VBA的代码就可以瞬间完成的事情。与我发布的合并工作簿、工作表的方法差不多。

第一步 打开工作簿，按ALT+F11

第二步 首先插入一个新的模块，然后粘贴下面的代码进模块中

Option Explicit

Sub SaveToFile()

     '把各个表都保存在指定的文件夹中

    Application.ScreenUpdating = False                       '关闭屏幕更新

    Dim folder As String

    folder = ThisWorkbook.Path & "\班级成绩表"               '保存工作簿文件的目录，根据需求可修改。

    If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder   '选择是否新建该文件夹

    Dim sht As Worksheet

    For Each sht In Worksheets

        sht.Copy                                   '复制工作表到新工作簿

        ActiveWorkbook.SaveAs folder & "\" & sht.Name & ".xlsx"  '保存工作簿，并命名

        ActiveWorkbook.Close

    Next

    Application.ScreenUpdating = True                           '开启屏幕更新

End Sub

第三步，保并后，按F5运行，自动生成一个以自已定义的文件夹，里面包含若干个工作簿文件。