VBA跨工作簿提取不重复值及数据汇总

ykcbf1100

了却无痕 发表于 2023-12-29 14:49
没有改过 下载下来运行就显示这个了 会不会跟我用的是WPS有关？

刚问了Ai，回说，在WPS中，要把Set Wb = Workbooks.Open(f, 0)这句改成Set Wb = Documents.Open(f)。
你再试试。

了却无痕

ykcbf1100 发表于 2023-12-29 15:17
刚问了Ai，回说，在WPS中，要把Set Wb = Workbooks.Open(f, 0)这句改成Set Wb = Documents.Open(f)。
你 ...

大神代码又更新了


代码424 要求对象

ykcbf1100

了却无痕 发表于 2023-12-29 15:25
大神代码又更新了

我没有WPS，不知道错在哪里了。
在office中，代码运行应该没问题的。

了却无痕

ykcbf1100 发表于 2023-12-29 15:44
我没有WPS，不知道错在哪里了。
在office中，代码运行应该没问题的。

好的 那我自己研究一下 谢谢您的帮助

ykcbf1100

了却无痕 发表于 2023-12-29 15:48
好的 那我自己研究一下 谢谢您的帮助

这样一搞，我估计没人敢轻易下手写代码了，毕竟，代码主要针对的是office用户。

了却无痕

ykcbf1100 发表于 2023-12-29 15:54
这样一搞，我估计没人敢轻易下手写代码了，毕竟，代码主要针对的是office用户。

不会吧
大神别怂 干就完了
我相信 你可以的 加油鸭！
我研究一下 换哪个版本的 跟上你们的脚步

了却无痕

ykcbf1100 发表于 2023-12-29 15:17
刚问了Ai，回说，在WPS中，要把Set Wb = Workbooks.Open(f, 0)这句改成Set Wb = Documents.Open(f)。
你 ...

大神 我找到原因了！
其实你的第一版就能运行的 是我没有解压运行 刚才解压就可以操作了。
居然可以不用手动打开请款单就可以运行得出结果 真的好厉害。
超级期待 您下面的代码

蓝桥玄霜

了却无痕 发表于 2023-12-29 11:34
弱弱地问上一句

我是哪里没抄对作业，为啥会存在一个未定义子过程或者函数

CreateObject中的O是字母OP的O，不是零0

了却无痕

蓝桥玄霜 发表于 2023-12-30 10:45
CreateObject中的O是字母OP的O，不是零0

好的 大神  我晚些时候运行看看 谢谢您的代码

了却无痕

顶帖 希望有大神帮忙看看剩下的装运采的分类汇总