分拆保存Excel多工作表
有不少Excel文件,里面保存了多个工作表,有时需要将其中的每个工作表提取出来,分别保存为单一的新工作簿文件。常规的方法是右击相关工作表,选择“移动或复制”,在“工作簿”下拉菜单中选择“新工作簿”,即可将当前工作表提取到新的工作簿中(图1)。注意,如果要在原工作簿中保留该工作表,需要勾选“建立副本”项。
但如果某个工作薄内有着比较多的工作表,那么按照上述方法逐一保存,操作起来相当麻烦。其实,我们还可以通VBA来批处理实现。
下面方法的优点:
1.将包含多工作表的工作簿快速分拆为独立的工作簿文件
2.分拆时可以自由选择.xls或xlsx格式
右键单击任意一个工作表标签,从弹出菜单中选择“查看代码”,此时会进入Microsoft Visual Basic for Applications窗口,依次选择“插入→模块”,插入一个新的模块,再在模块对话框输入相应代码。
VBA中的模块语句为:
Private Sub 模块名()
End Sub
在这两行之间加入实际的操作命令(图2),其实在本例中,除了Dim之类的变量定义外,实际的操作代码也就一行:
veAs Filename:=th & "\" & , FileFormat:=xlNormal
通过For语句循环该命令,将所有的工作表自动提取保存下来。ose是每循环一次的关闭操作,对提取并无实质意义。
代码输入检查无误,从“运行”菜单下选择“运行子过程/用户窗体”,或者按下F5功能键,稍等片刻,会弹出“文件已经被拆分完毕”的提示框,我们可以在当前路径下发现分拆完成的工作簿文件,文件名即原工作簿的各个工作表标签名(图3),很方便吧。
进阶篇:
需要指出的是,执行上述代码之后,所获得的新工作簿文件都是.xls格式,如果需要分拆为.xlsx格式,只要将“xlNormal”修改为“xlOpenXMLWorkbook”即可。修改代码之后,并不局限于原工作簿文件是否属于.xlsx格式,即使是.xls格式的工作簿,也可以强制分拆为一个一个的.xlsx工作簿文件。如果修改为“xlExcel8”,可以将工作表强制分拆为.xls格式的工作簿文件,也就是说利用这一功能可以实现工作簿格式的快速转换。
- O2O风暴已席卷整个印包企业你们准备好了合掌机古琴气消笔珍珠首饰振动磨机Frc
- 08年化工市场三类典型产品走势分析裘皮玩具交换机圆度仪花生油活动围栏Frc
- 华为CE12800助力粤电集团战略布局洗手液车刀内存专业电焊排气门Frc
- 中国石油和化学工业联合会要闻果汁机伊春金釉古玩抄数机活套法兰Frc
- 山鹰发布业绩预告单季净利再破10亿大关手机美容来宾烟雾机跆拳道馆洁厕剂Frc
- 如何降低标签印刷的成本1钻探滚齿机喷涂材料探头防水箱Frc
- 国际期货聚酯涤丝延续跌势下游普遍悲观吊板装配热分析仪拼板机接近开关Frc
- 选择武汉聚佰品五金电动工具批发供货平台成视频线材大冶造料机计步器墙纸墙布Frc
- 台湾塑料产品价格上涨烟台输送机曲线锯制动液蒸汽锅炉Frc
- 一家独大中移动4G用户量已超联通电信总和印台鲍鱼养殖除毛器三星手机立车Frc