利用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运行，自动生成一个以自已定义的文件夹，里面包含若干个工作簿文件。

赞 (0)

相关推荐