原标题：运用VBA将Excel工作表批量另存為工作簿

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

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

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

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

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

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

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

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