拆分excel工作簿.pdf

学习笔记】记录Excel中工作薄的拆分(2011-11-1511:22:52)今早手头处理关于门店备案的事情，不过需要分片区的精分出各片区含有的分店数，刚开始手工划分，不过才发现就当云南省来说就有十六个地州，一个昆明市就分四个区八个县，真是头疼。所以哇，不得不寻找当一个Excel表格中含有多个工作簿，而我们需要把这些工作簿分别拿出来作为一个独立的Excel表格的方法。好吧，实验了一早上，总算找到了一个能够批量完成的办法——利用一段代码批量完成。下边就记录一下，防止一段时间后遗忘...........原始表格：需要达成的目标（由计算机批量自动完成工作簿的独立Excel化）：步骤：1、打开原始Excel表格；2、在下方工作簿处单击鼠标右键——查看代码；3、粘贴动作代码——保存（注意保存时把“通用”右边的下拉列表内选择“工作簿拆分”，然后Ctrl+S完成保存——点击菜单栏处的运行按钮（反倒三角）。就这样，Excel中工作薄的拆分就完成。当中用到的拆分代码：Sub工作薄拆分()'将工作薄按工作表拆分成多个工作薄DimPATHAsStringPATH=Application.ActiveWorkbook.PATHDimshtAsWorksheetApplication.ScreenUpdating=FalseForEachshtInSheetssht.CopyActiveWorkbook.SaveAsPATH&"\"&sht.NAME&".xls"'(工作表名称为文件名）ActiveWorkbook.CloseNextApplication.ScreenUpdating=TrueEndSubSubUnhideAllSheets()ForEachSheetInActiveWorkbook.SheetsSheet.Visible=TrueNextEndSub