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

opiona · 发表于 2019-4-2 09:00

本帖最后由 opiona 于 2019-4-2 09:11 编辑

wotengni414 发表于 2019-4-1 21:46
请教一下出现这个，怎么修改

那就将 3月31日所在单元格改为：文本格式
标题含有特殊字符处理一下：[.] 和换行符

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

复制代码

bsyjfen · 发表于 2019-4-2 16:22

不错的，辛苦了

ilssh100000 · 发表于 2019-4-2 16:39

大神，真心佩服你，虽然看不懂代码。

moon_2000 · 发表于 2019-4-5 16:36

收藏备用。非常谢谢！

习习儒生 · 发表于 2019-4-5 22:09

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

幸福101 · 发表于 2019-4-10 15:05

大神！太感谢了！

wangbin479 · 发表于 2019-4-12 16:29

请教老师，对于1楼的第4种情况“4_单工作簿内多工作表，全部数据汇总”，假如我的每个班级的sheet里，因为还有其他的数据存在，所以只想汇总特定行的数据，比如一班只需要3~10行，三班需要3~20行，以免把下方的其他数据汇总出去，是否有比较好的办法？

iuwu · 发表于 2019-4-14 23:50

感谢楼主分享，厉害厉害

iuwu · 发表于 2019-4-15 01:50

请问老师，想把提取文件名改成显示文件路径应该怎么改，辛苦老师了

zhulanju123 · 发表于 2019-4-18 14:07

各位大佬！！请问下有没有通用的【同一工作簿不同工作表同一位置】的求和代码呀？谢谢！！

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

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