求助多个工作簿的多个工作表汇总到一个工作簿里的对应工作表

苏阳湖wzy · 发表于 2021-11-20 14:35

xiangbaoan 发表于 2021-11-20 14:11

C:\Users\Administrator.BF-20200704UIGJ\Desktop\无标题.jpg

Rst.Open Mid(Dict(k), 12), Cnn, 1, 3

苏阳湖wzy · 发表于 2021-11-20 14:36

xiangbaoan 发表于 2021-11-20 14:11

FROM子句语法错误

Rst.Open Mid(Dict(k), 12), Cnn, 1, 3

xiangbaoan · 发表于 2021-11-20 15:02

苏阳湖wzy 发表于 2021-11-20 14:36
FROM子句语法错误

Rst.Open Mid(Dict(k), 12), Cnn, 1, 3

你提供的附件中没这个问题！

苏阳湖wzy · 发表于 2021-11-20 15:06

xiangbaoan 发表于 2021-11-20 15:02
你提供的附件中没这个问题！

我按照您的修改了代码，运行时就产生以上问题。

苏阳湖wzy · 发表于 2021-11-20 15:07

xiangbaoan 发表于 2021-11-20 15:02
你提供的附件中没这个问题！

If Dict.Exists(t) Then Dict(t) = Dict(t) & " UNION ALL SELECT * FROM [" & s & p & f & "].[" & t & "]WHERELEN(核实情况)"

xiangbaoan · 发表于 2021-11-20 15:11

苏阳湖wzy 发表于 2021-11-20 15:06
我按照您的修改了代码，运行时就产生以上问题。

这是你的附件.zip (112.71 KB, 下载次数: 14)

xiangbaoan · 发表于 2021-11-20 15:14

苏阳湖wzy 发表于 2021-11-20 15:07
If Dict.Exists(t) Then Dict(t) = Dict(t) & " UNION ALL SELECT * FROM [" & s & p & f & "].[" & t & ...

有两个空格的。

苏阳湖wzy · 发表于 2021-11-20 15:22

xiangbaoan 发表于 2021-11-20 15:14
有两个空格的。

好的，非常感谢！

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

[求助] 求助多个工作簿的多个工作表汇总到一个工作簿里的对应工作表