把同一个文件夹下的不同工作簿汇总到一个工作簿里

熊文来 · 发表于 2022-7-7 18:28

zanghow6 发表于 2022-7-7 16:08
Sub open_file()

Dim fso, folder1, files As Object

可以把附件发上来吗？谢谢！

熊文来 · 发表于 2022-7-7 18:43

excel玉米发表于 2022-7-7 15:53
纵观熊老师的所有发贴，基本上确认应该是一名教师，可能平时教学时间长，没有时间在论坛上学习，都是些发 ...

熊文来 · 发表于 2022-7-7 18:44

wengjl 发表于 2022-7-7 15:51
晚上给你一个回复，同行

好的谢谢你！

熊文来 · 发表于 2022-7-7 18:50

本帖最后由熊文来于 2022-7-7 18:55 编辑

ykcbf1100 发表于 2022-7-7 15:57
你试一下吧。

不知为什么我一单击合并，所有的数据都清空了，我再单击一次，数据还是没有引入进来呢？空的只显示运行时间。

解决了

更正我的错误！不好意思

xiangbaoan · 发表于 2022-7-7 20:23

参与.zip (53.52 KB, 下载次数: 33)

熊文来 · 发表于 2022-7-7 22:38

xiangbaoan 发表于 2022-7-7 20:23

谢谢您的帮助！问题已解决！

熊文来 · 发表于 2022-7-7 23:14

本帖最后由熊文来于 2022-7-8 09:21 编辑

chxw68 发表于 2022-7-7 15:25

我简单运行了下文件，就只有一个数据没有引入过来。
我依葫芦画瓢填充了，解决了！其余的问题没有发现。
电脑里下载的文件被我删了，等到办公电脑上再下载，你却已经把它删了，现在想下载都没有机会了

熊文来 · 发表于 2022-7-8 20:36

xiangbaoan 发表于 2022-7-7 20:23

运行的时候出现这个错误。完全不懂！

blackttea1 · 发表于 2022-7-13 16:10

学习啦，谢谢

熊文来 · 发表于 2022-10-31 20:55

chxw68 发表于 2022-7-7 15:26
代码有错。

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

[已解决] 把同一个文件夹下的不同工作簿汇总到一个工作簿里