Oo笑容太甜oO/

Excel一键提取文件夹下多个工作簿数据


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

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

程序功能:
 
  一键提取文件夹下多个所有工作簿中所有工作表指定区域的数据。
  比如需要汇总示例文件中村民的人员信息(保存在多个工作簿的多张表中),表格数量大时复制粘贴效率低且易错,使用本程序即可一键提取所有指定范围内数据到一张工作表中。

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

操作演示:

  下图演示提取多个文件中某个单元格(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文件中查看;如有问题请在评论中指出