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

toublej · 发表于 2018-12-4 00:47

你好，能不能麻烦你就关于我在求助贴提的那个问题写一段代码给我，因为写代码我真不会，你发的那个链接我看过代码之后还是不懂怎么改，所以麻烦你帮个忙，谢谢！

1198110120 · 发表于 2018-12-4 08:33

厉害，谢谢分享

opiona · 发表于 2018-12-4 09:14

toublej 发表于 2018-12-4 00:47
你好，能不能麻烦你就关于我在求助贴提的那个问题写一段代码给我，因为写代码我真不会，你发的那个链接我看 ...

你的帖子：http://club.excelhome.net/thread-1449499-1-1.html

解决代码：

样例.rar (211.69 KB, 下载次数: 338)
实际设置很简单啊：

帅气的毛毛虫 · 发表于 2018-12-4 17:37

多工作簿指定工作表，指定几个位置的数据汇总,如果不合格可以直接替换的程序可以实现吗？

sw3392787 · 发表于 2018-12-5 15:38

超级全面，对于财务而言，经常需要汇总这些数据，太方便了。
不过不知道如果某些时候在多个工作簿中，多个工作表名称是一样的，格式也差不多相同，行数可能存在差别。例如提取的都是“净利润”，在甲工作簿中有一个工作表名为利润表，其A10为净利润这个字眼，B10则为对应数值；而在乙工作簿，也是有一个工作表叫利润表，但是在A11为净利润字眼，B11则为对应数值，那么需要提取甲中的B10，乙中的B11，不知道如何实现？

sw3392787 · 发表于 2018-12-5 15:49

嗯？运行需要密码吗？密码是多少？有人遇到密码情况吗

antediluvian · 发表于 2018-12-5 17:03

我在使用单工作簿多表，全汇总时提示“运行时错误‘-2147217904（80040e10）’:至少一个参数没有被指定”

opiona · 发表于 2018-12-5 17:29

有的表标题含有：换行符，英文的句号
SQL无法识别，要进行替换

Rem 组合查询标题
StrBT = ""
For ICOL = 3 To SH1.Range("HZ3").End(xlToLeft).Column
Rem 替换掉[.]=[#],换行符=[_]
StrBT = StrBT & ",[" & Replace(Replace(Replace(Replace(SH1.Cells(3, ICOL).Value, ".", "#"), vbCrLf, "_"), vbCr, "_"), vbLf, "_") & "]"
Next

复制代码

cyslovetxt · 发表于 2018-12-12 14:28

本帖最后由 cyslovetxt 于 2018-12-12 14:36 编辑

老师您好，您的工具对我很有用。但是还有一个问题，就是多个工作簿下，每个工作薄的合计金额想要提取出来，但是这个合计金额不同工作薄的不在同一个位置。 QQ截图20181212143409.png

就是这样几个表的合计金额想汇总到一起，但是不在同一行
能否在第二个“工作簿指定工作表，指定几个位置的数据汇总”这个上面修改实现呢，其他数据都是固定位置的
万分感谢

opiona · 发表于 2018-12-13 12:25

sw3392787 发表于 2018-12-5 15:49
嗯？运行需要密码吗？密码是多少？有人遇到密码情况吗

没有密码的
发的都是问题总结，
个别问题的解决需要些动手能力去修改

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

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

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