拆分excel工作簿文档格式.docx

拆分excel工作簿文档格式.docx

《拆分excel工作簿文档格式.docx》由会员分享，可在线阅读，更多相关《拆分excel工作簿文档格式.docx（8页珍藏版）》请在冰点文库上搜索。

所以哇，不得不寻找当一个Excel表格中含有多个工作簿，而我们需要把这些工作簿分别拿出来作为一个独立的Excel表格的方法。

好吧，实验了一早上，总算找到了一个可以批量完成的办法——利用一段代码批量完成。

下边就记录一下，防止一段时间后遗忘...........

原始表格：

需要达成的目标（由计算机批量自动完成工作簿的独立Excel化）：

步骤：

1、打开原始Excel表格；

2、在下方工作簿处单击鼠标右键——查看代码；

3、粘贴动作代码——保存（注意保存时把“通用”右边的下拉列表内选择“工作簿拆分”，然后Ctrl+S完成保存——点击菜单栏处的运行按钮（反倒三角）。

就这样，Excel中工作薄的拆分就完成。

当中用到的拆分代码：

Sub工作薄拆分（）

'

将工作薄按工作表拆分成多个工作薄

DimPATHAsString

PATH=Application.ActiveWorkbook.PATH

DimshtAsWorksheet

Application.ScreenUpdating=False

ForEachshtInSheets

sht.Copy

ActiveWorkbook.SaveAsPATH&

"

\"

&

sht.NAME&

.xls"

'

（工作表名称为文件名）

ActiveWorkbook.Close

Next

Application.ScreenUpdating=True

EndSub

SubUnhideAllSheets（）

ForEachSheetInActiveWorkbook.Sheets

Sheet.Visible=True