excel多工作表分拆保存

《excel多工作表分拆保存》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Excel多工作表分拆保存有不少Excel文件,里面保存了多个工作表,有时需要将其中的每个工作表提取出来,分别保存为单一的新工作簿文件。常规的方法是右击相关工作表，选择"移动或复制",在〃工作簿"下拉菜单中选择〃新工作簿〃,即可将当前工作表提取到新的工作簿中（图1）。注意”如果要在原工作簿中保留该工作表”需要勾选〃建立副本"项。KA=m=sSr牡・A•:狂"・:t・=1=1=tsrfr凳!£用画曲迴回匕回加昂r1*棉体百组全员开课安排穷*8«T!§■W组4■咀104WOW但如果某个工作薄内有着比较多的工作表，那么按照上述方法逐一保存z操作起来相当麻烦。其实，我们还可以通VBA来批处理实现

2、。F面方法的优点:1•将包含多工作表的工作簿快速分拆为独立的工作簿文件2•分拆时可以自由选择.xls或xlsx格式右键单击任意一个工作表标签,从弹出菜单中选择〃查看代码〃，此时会进入MicrosoftVisualBasicforApplications窗口，依次选择"插入f模块"，插入一个新的模块，再在模块对话框输入相应代码。VBA中的模块语句为：PrivateSub模块名（）EndSub在这两行之间加入实际的操作命令（图2）,其实在本例中，除了Dim之类的变量走义外,实际的操作代码也就一行：MicrosoftVisualBasic-flOLxh文。紳曲疋）朋3擂入（D冋gi潟试0直行（

3、B）工獸D夕卜接桎序rojectX曰区YBJLPr*j«cti人X」微・楊块1（代码）3［分■工作姦hi.巴Suh分柝工作表()Dirshtkz/orkdi.eetDinMyBoobkztorHookSetMyBook■心ForEachlitlaMyB^okSheetsslitCopyActiyeVorkEook.SaveAiFil«nDr»c：=1lyB0okP^thftdshtSwe.Fil«?or^atActivelorfebookClose严卩竝•文件己经分拆弃牛广EndSub曰rMicrosoft1W]SEeetlOSh“t2OShxt3Chf・x

4、ActiveWorkbook.SaveAsFilenamesMyBook.Path&"X*'&sht.Name,FileFormat:=xlNormal通过For语句循环该命令，将所有的工作表自动提取保存下来。ActiveWorkbook.Close是每循环一次的关闭操作,对提取并无实质意义。代码输入检查无误,从〃运行〃菜单下选择〃运行子过程/用户窗体〃,或者按下F5功能键,稍等片刻，会弹出〃文件已经被拆分完毕〃的提示框，我们可以在当前路径下发现分拆完成的工作簿文件，文件名即原工作簿的各个工作表标签名（图3）,很方便吧。进阶篇：需要指出的是，执行上述代码之后，所获得的新工作簿文件都是・x

5、ls格式”如果需要分拆为.Xlsx格式，只要将"xINormal"修改为"xIOpenXMLWorkbook"即可。修改代码之后,并不局限于原工作簿文件是否属于・xlsx格式,即使是・xls格式的工作簿，也可以强制分拆为一个一个的.xlsx工作簿文件。如果修改为〃xlExcel8〃，可以将工作表强制分拆为・xls格式的工作簿文件z也就是说利用这一功能可以实现工作簿格式的快速转换。