收集多个工作薄中指定名称的工作表或是所有工作表到一个工作薄中（通用）

使用条件1：有若干个工作薄，每个工作薄有若干工作表，要把这些所有工作表收集到一个工作薄中来，并以原工作薄名加上“--”，再加上原工作表名的方式在该工作薄中命名。
使用条件2：有若干个工作薄，每个工作薄有若干工作表，要从每个工作薄中按关键字收集工作表到一个工作薄中来。按着指定的关键字确定要收集哪些工作表，关键字可以是手动输入的，也可以是各自工作薄名称为关键字。然后再区分要收集的工作表名称是否与关键字完全相同，或是关键字仅为要收集的工作表名称中的一部分。如果要收集与关键字完全相同的工作表，那么收集到新工作薄中后会以原工作薄命名该工作表，如果关键字仅为要收集的工作表名中的一部分，那么收集到新工作薄中后会以原工作薄名加上“--”，再加上原工作表名的方式命名。
1、首先要选择是否要把要收集过来的工作表数值化。
2、确定要收集所有工作表，还是特定的一张工作表。
3、如果选择只收集特定的一张工作表，就要选择关键字的取法：以各工作薄的名称为关键字，或是以手动输入的字符为关键字。
4、关键字确定好后，要确定要收集的工作表的名称是否与关键字完全相同，还是说关键字仅是要收集的工作表名称中的一部分。
5、最后就是选择要收集的工作薄了。
6、收集的工作薄放在一个名叫“收集的工作薄.xlsx”中，该工作薄放在本工作薄所在目录下面名称为“收集工作薄”的文件夹下面。

ps：当所要收集的工作表所在的工作薄中有大量的单元格格式的时候，程序有可能出错。这个时候建议用“（通用）批量删除多工作薄中单元格样式.xlsm”“http://www.xipick.com/thread-460667-1-1.html”这个程序清理一下所有工作薄的单元格样式，然后再用本程序收集工作表。

收集多个工作薄中指定名称的工作表（通用）： （通用）收集多工作薄中特定名称的工作表或是所有工作表到一个工作薄中.xlsm (40.38 KB, 下载次数: 473)

2018-9-21 12:40 上传

点击文件名下载附件

有时候会遇到下面这种错误提示：


这种提示可能是要收集的工作表中原本含有图片或是其他类型的对象，程序在整体拷过来后，图片或对象链接地址损坏，导致文档不能保存。将工作表相关的图片删除，再重新运行程序即可。

你好，很实用，谢谢，但是收集到工作薄的表不能将原表的框线复制过来

杜大弓 发表于 2016-12-29 12:01
你好，很实用，谢谢，但是收集到工作薄的表不能将原表的框线复制过来

原表的框线，你是指单元格的外框线吗？如果是单元格的外框线，那是应该能复制过去的。程序只是模仿手动在工作表名称那儿点右键，选择移动或是复制的功能而已。