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

opiona · 发表于 2018-11-27 20:54

风耀雾星发表于 2018-11-27 13:35
还是能显示出隐藏的部分。

SH.VISIBLE=TRUE

改成：SH.VISIBLE=-1 试试！

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

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

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

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

复制代码

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

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

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

opiona · 发表于 2018-12-27 12:33

看看是否有：成绩表标题是否在第3行

opiona · 发表于 2019-1-15 20:03

wei3592 发表于 2019-1-14 09:14
每一个工作簿只能取其中一个sheet的数据，是不？这个可以改进不？

目前是：要么娶一个，要么全要！

opiona · 发表于 2019-1-22 18:10

zxjzzzzz 发表于 2019-1-22 17:45
请问如果有数据验证的下拉菜单选择出的数据是不是就会中断运行？只要这一列有数据就会报错。用的是第六个— ...

标题或工作表名不一致造成的！

opiona · 发表于 2019-2-21 20:41

nmcfbgttyl 发表于 2019-2-15 09:37
北极狐弟，刚试了一下“ 4_单工作簿内多工作表，全部数据汇总“，能合并所有数据，但身份证号或银行卡号出 ...

保存位置提前设为：文本格式

opiona · 发表于 2019-3-1 17:44

学习中的小兵发表于 2019-3-1 16:12
5_多工作簿指定工作表，全部数据汇总

在运用此宏代码时，当标题列出现超过5列时，

和标题个数无关（支持255个）
可能标题不同，或者标题含有特殊标点符号

opiona · 发表于 2019-3-4 10:52

ALT换行显示用下划线替换换行符例如：数量_合计

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

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