运用VBA将Excel工作表批量另存为工作簿

如下图，工作簿中共有以下7个工作表，现将各工作表另存为工作簿。

1.打开VBA编辑器

右键单击任意工作表，选择“查看代码”。

2.输入代码

双击"ThisWorkbook"，在代码窗口中输入以下代码：

Sub 工作表另存为工作簿()

Dim sh As Worksheet, path$

path = ThisWorkbook.path & "\" '设置工作簿保存路径

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

For Each sh In ThisWorkbook.Worksheets: '遍历当前宏所在的工作簿中的工作表

sh.Copy '复制工作表

ActiveWorkbook.SaveAs Filename:=path & sh.Name & ".xlsx" '保存活动工作簿

ActiveWorkbook.Close '关闭活动工作簿

Next

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

MsgBox "工作表另存为工作簿已完成"

End Sub

3.运行程序

点击绿色三角形或按F5，运行程序。

程序运行成功后，会弹出对话框，显示消息如下：

4.查看结果

注：若希望代码在下次打开工作簿时可以继续使用，需将工作簿另存为97-2003工作簿或启用宏的工作簿。