工作簿汇总，工作表汇总合并，多文件汇总合并 通用代码 支持多层子文件夹

opiona

看到论坛求助汇总的贴子很多，总结了几种情况
只做了比较通用的代码和大家分享（完全通用是不可能的）
看上去代码多，是因为几个自定义函数
这个是个人习惯：将常用的做成函数或过程，用时只要填几个参数就OK了
其中：获取文件清单函数：支持多种选项，支持多层子文件夹

1_单工作簿内多工作表，指定几个位置的数据汇总
数据在一个工作簿内，但是工作簿内有多个相同格式和标题的工作表
需要每个工作表，几个固定位置的数据

1_单工作簿内多工作表，指定几个位置的数据汇总.rar (29.53 KB, 下载次数: 16608)

2018-4-20 17:08 上传

点击文件名下载附件

2_多工作簿指定工作表，指定几个位置的数据汇总
数据在多个工作簿内，每个工作簿有一个相同格式和标题的工作表
需要这个工作表，几个固定位置的数据

2_多工作簿指定工作表，指定几个位置的数据汇总.rar (149.37 KB, 下载次数: 18271)

2018-4-20 17:08 上传

点击文件名下载附件

3_多工作簿多个工作表，指定几个位置的数据汇总（工作表格式，标题相同）
数据在多个工作簿内，每个工作簿有多个相同格式和标题的工作表
需要全部工作表，几个固定位置的数据

3_多工作簿多个工作表，指定几个位置的数据汇总（工作表格式，标题相同）.rar (82.79 KB, 下载次数: 14809)

2018-4-20 17:08 上传

点击文件名下载附件

4_单工作簿内多工作表，全部数据汇总
数据在一个工作簿内，但是工作簿内有多个相同格式和标题的工作表
需要每个工作表的全部数据

4_单工作簿内多工作表，全部数据汇总.rar (26.43 KB, 下载次数: 13052)

2018-4-20 17:08 上传

点击文件名下载附件

5_多工作簿指定工作表，全部数据汇总
数据在多个工作簿内，每个工作簿内有一个相同格式和标题的工作表
需要这个工作表的全部数据

5_多工作簿指定工作表，全部数据汇总.rar (61.51 KB, 下载次数: 16545)

2018-4-20 17:08 上传

点击文件名下载附件

6_多工作簿多个工作表，全部数据汇总（工作簿内多个工作表，每个的格式，标题相同）
数据在多个工作簿内，每个工作簿内有多个相同格式和标题的工作表
需要这些工作表的全部数据

6_多工作簿多个工作表，全部数据汇总（工作簿内多个工作表，每个的格式，标题相同）.rar (63.78 KB, 下载次数: 13239)

2018-4-20 17:08 上传

点击文件名下载附件

7_多工作簿多个工作表，全部数据汇总（工作簿内多个工作表，每个的格式，标题不同）
数据在多个工作簿内，每个工作簿内有多个不同格式和标题的工作表
需要分别汇总这些工作表的全部数据

7_多工作簿多个工作表，全部数据汇总（工作簿内多个工作表，每个的格式，标题不同）.rar (67.73 KB, 下载次数: 16777)

2018-4-20 17:08 上传

点击文件名下载附件

补充内容 (2018-7-4 11:36):
如何批量修改文件  请电梯 到 67 楼

补充内容 (2018-7-17 08:36):

按部门自动拆分工作表为工作簿，请坐电梯 到 69 楼



补充内容 (2018-10-28 16:58):
期初入库出库库存 见 136 楼

补充内容 (2018-11-17 11:12):
通用条件查询：159楼

补充内容 (2019-10-20 11:48):
Access中进行文件的保存，下载    乘电梯到：426楼

补充内容 (2022-8-26 07:59):
7_多工作簿多个工作表   附件的代码 标题行数变量设置有点问题
                 Rem 组合查询标题
                    StrBT = ""
                    For ICOL = 1 To SH.Range("IT" & SH1.Range("B1").Value...

补充内容 (2022-8-26 08:04):
7_多工作簿多个工作表   附件标题行数变量设置有点问题 更新见878楼

补充内容 (2023-3-18 21:34):
7_多工作簿多个工作表
原来的代码有bug  不能清空原有数据
请将sh1 改为: sh
详见:893楼

yanglinzi

谢谢楼主分享

Holiday2022

学习了，谢谢

opiona

Clove8 发表于 2024-4-19 14:20
老师您好 我用的“5_多工作簿指定工作表，全部数据汇总“这个表 条件输入点击汇总后提示“外部数据库驱动程 ...

问题提示: 错误提示：未找到提供程序,可能程序未正确安装

解决办法：Office安装了Excel，但是没有安装ACCESS，可能会出现此问题

完整安装Excel，或者下载安装：AccessDatabaseEngine.exe

版本分：32位和64位的，请安装2007或者更高版本

2010 版本：https://www.microsoft.com/zh-CN/download/details.aspx?id=13255

yanglinzi

谢谢，学习了。

Clove8

老师您好 我用的“5_多工作簿指定工作表，全部数据汇总“这个表 条件输入点击汇总后提示“外部数据库驱动程序（）中的意外错误”，点击调试后高亮显示“CN.Open Str_coon”，请问下有啥解决办法吗 感谢指导

xiong8976

收藏学习，感谢楼主

朱付安

谢谢楼主的风向

xjghzy

老师，在运行时出现附件中的提示，4和6提示一样，该如何解决，谢谢

longyi999

谢谢大神的无私分享！！

18181831417