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

mzy55555 · 发表于 2020-4-8 18:56

高手在人间，感谢分享，就是新手还看不懂！

心想事成1181188 · 发表于 2020-4-8 19:48

专业的真不一样，注释很完整，我写的比较乱

巨浪1 · 发表于 2020-4-17 22:57

谢谢。学习了。

hjg8822 · 发表于 2020-4-18 10:01

谢谢老师！辛苦！

jueves_du · 发表于 2020-4-19 19:24

非常实用，谢谢楼主分享

yhrv · 发表于 2020-4-20 12:06

5_多工作簿指定工作表，全部数据汇总

标题以.点结尾的标题会出错，不能采集

No. DESCRIPTION TYPE INV NO. PO NO.

opiona · 发表于 2020-4-20 17:49

特殊字符要替换掉: StrBT = StrBT & ",[" & Replace(Replace(Replace(Replace(SH1.Cells(3, ICOL).Value, ".", "#"), vbCr, "_"), vbTab, "_"), vbLf, "_") & "]"

zhenghe03 · 发表于 2020-4-21 12:48

谢谢楼主，楼主辛苦了。

oyeblue · 发表于 2020-4-21 16:46

非常感谢，最近正在学习。

cs_sunsky · 发表于 2020-4-22 14:44

楼主我使用你的第五个表格导入数据，但是经常会有文件最后一行导入不了，因为我的数据表是公司内部系统生成的表格，经常要删掉后面没有数字的行后才导入正常

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

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