分拆保存Excel多工作表

编辑后的文本：处理大量包含多张工作表的Excel文件时，通常需将每张表独立导出为新工作簿。操作步骤是右键点击目标工作表，选择“移动或复制”，在弹出的下拉菜单中选定“新工作簿”选项。若希望原文件保留该工作表，务必勾选“创建副本”复选框（如图1所示）。

1、 但如果某个工作薄内有着比较多的工作表，那么按照上述方法逐一保存，操作起来相当麻烦。其实，我们还可以通VBA来批处理实现。下面方法的优点：1.将包含多工作表的工作簿快速分拆为独立的工作簿文件2.分拆时可以自由选择.xls或xlsx格式右键单击任意一个工作表标签，从弹出菜单中选择“查看代码”，此时会进入Microsoft Visual Basic for Applications窗口，依次选择“插入→模块”，插入一个新的模块，再在模块对话框输入相应代码。VBA中的模块语句为：Private Sub 模块名()End Sub在这两行之间加入实际的操作命令（图2），其实在本例中，除了Dim之类的变量定义外，实际的操作代码也就一行：2ActiveWorkbook.SaveAs Filename:=MyBook.Path & "" & sht.Name, FileFormat:=xlNormal通过For语句循环该命令，将所有的工作表自动提取保存下来。ActiveWorkbook.Close是每循环一次的关闭操作，对提取并无实质意义。代码输入检查无误，从“运行”菜单下选择“运行子过程/用户窗体”，或者按下F5功能键，稍等片刻，会弹出“文件已经被拆分完毕”的提示框，我们可以在当前路径下发现分拆完成的工作簿文件，文件名即原工作簿的各个工作表标签名（图3），很方便吧。