转载只为记录，原文出处：http://blog.sina.com.cn/s/blog_51817ae50102wx4r.html

本程序基于ExcelHome论坛 zhaogang1960 版主的程序源码改写，感谢！

　　原帖链接：http://club.excelhome.net/thread-1256510-1-1.html
程序功能：
 
　　一键提取文件夹下多个所有工作簿中所有工作表指定区域的数据。
　　比如需要汇总示例文件中村民的人员信息（保存在多个工作簿的多张表中），表格数量大时复制粘贴效率低且易错，使用本程序即可一键提取所有指定范围内数据到一张工作表中。

　　请一定按使用方法，如出错请查看是否违背注意事项，本程序的出错处理很一般

操作演示：

　　下图演示提取多个文件中某个单元格（D2）的数据： 动态图，手机观看可能无效

 

　　下图演示提取多个文件中某个区域（B3：D4）的数据： 动态图，手机观看可能无效

 

　　转置提取是针对区域提取，可以将每张表所数据转置后再提取，具体效果需要自行体验

 

使用方法：
 
　　1. 下载示例文件
　　链接：http://pan.1bGqo2q 密码：k2hc
　　包含一个“原始表格”文件夹和一个“批量提取多工作表数据 - 共享.xlsm”文件

　　或者直接从这里下载：批量提取多工作表数据 - 共享
        2. 将待提取文件全部放入“原始表格”文件夹中；
　　3. 打开“批量提取多工作表数据 - 共享.xlsm”文件，允许启用宏，点击提取按钮，输入提取区域地址，如A2:B3
　　Done！
 
 
注意事项：

 

　　1. 本程序不支持提取包含第一行（如A1，A1：B3）数据（运行中会有提示），不支持提取不连续区域数据；

　　2.“批量提取多工作表数据 - 共享.xlsm”文件需与“原始表格”文件夹放在同一路径下，否则报错；

　　3. 提取时不要打开“原始表格”文件夹下的任何工作簿，或者打开其他位置的工作簿文件与“原始表格”文件夹下某一文件名称相同，否则报错

　　支持WPS表格， .xlsm格式需Excel 2007以上打开，更低版本可自行转换。

　　源码稍长，请在.xlsm文件中查看；如有问题请在评论中指出