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

opiona · 发表于 2018-4-20 17:06

本帖最后由 opiona 于 2018-4-24 09:36 编辑

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

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

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

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

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

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

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

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

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

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

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

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

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

6_多工作簿多个工作表，全部数据汇总（工作簿内多个工作表，每个的格式，标题相同）.jpg

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

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

7_多工作簿多个工作表，全部数据汇总（工作簿内多个工作表，每个的格式，标题不同）.jpg

补充内容 (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楼

ardu95 · 发表于 2018-4-20 20:22

谢谢。学习了。

cqcbc · 发表于 2018-4-20 21:15

谢谢opiona侠圣整理归类的贴子，收藏起来。

新时代新征途 · 发表于 2018-4-20 21:43

opiona老师好！您发的汇总有很大的用处，太好了！谢谢您了！但是，我在测试时，3、4、5、6、7附件有一个共同的提示：运行时错误 3706.未找到提供程序，程序可能未正确安装。不知何种原因。

lrh788 · 发表于 2018-4-21 00:11

学习了！！！！！

xinlan6 · 发表于 2018-4-21 17:34

谢谢老师！辛苦了！

linfeng123321 · 发表于 2018-4-21 20:20

谢谢老师了辛苦了。

沅潇01 · 发表于 2018-4-22 08:15

感谢分享！

sunny_8848 · 发表于 2018-4-22 09:19

谢谢楼主分享，正在找这类的例子

LMY123 · 发表于 2018-4-22 10:28

工作薄，工作表合并

		自动登录	找回密码
密码			免费注册

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

评分

评分

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

评分

评分

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