如何将指定路径A文件夹下数据汇总，修改代码（详见附件）

shangha · 发表于 2023-7-11 12:28

本帖最后由 shangha 于 2023-7-11 16:47 编辑

多工作簿定义不同文件夹"A"数据汇总

代码实现了仅能对”汇总表“自身当前路径“B"的文件夹进行汇总，
现在需要更改放置路径,对不同路径下文件夹"A"下面的数据进行汇总；

如何定义指定路径，保证后面代码汇总不出错。

谢谢老师不吝指教！

杨建营 · 发表于 2023-7-11 12:52

fso.getfolder(ThisWorkbook.Path).subfolders 楼主找下这方面的资料。

psxk3535 · 发表于 2023-7-11 16:32

你的汇总文件呢？保证后面代码汇总不出错，那你的代码呢？在哪里呢？猜吗？

shangha · 发表于 2023-7-11 16:49

psxk3535 发表于 2023-7-11 16:32
你的汇总文件呢？保证后面代码汇总不出错，那你的代码呢？在哪里呢？猜吗？

谢谢提醒，已经重新上传文件，

ykcbf1100 · 发表于 2023-7-11 17:56

shangha 发表于 2023-7-11 16:49
谢谢提醒，已经重新上传文件，

代码能重新写吗？
原来的代码是Opiona老师写的，不想去破坏原代码了。

沈默00 · 发表于 2023-7-11 18:21

ykcbf1100 发表于 2023-7-11 17:56
代码能重新写吗？
原来的代码是Opiona老师写的，不想去破坏原代码了。

支持新写，原代码注释很清晰，不忍破坏。。。。。老师你的代码通俗易懂，你写我也学习一下

shangha · 发表于 2023-7-11 19:20

ykcbf1100 发表于 2023-7-11 17:56
代码能重新写吗？
原来的代码是Opiona老师写的，不想去破坏原代码了。

可以的，条条大道通罗马，能实现就很好。谢谢老师。
应用在企业公共文件路径，放置文件和主表不一样。

ykcbf1100 · 发表于 2023-7-11 20:27

shangha 发表于 2023-7-11 19:20
可以的，条条大道通罗马，能实现就很好。谢谢老师。
应用在企业公共文件路径，放置文件和主表不一样。

附件供参考。。。

shangha · 发表于 2023-7-11 22:04

厉害，代码能做到如此简洁明了，底蕴深厚

FileArr = FileAllArr("C:\Users\XX\Desktop\A\", "*.xls?", ThisWorkbook.Name, True, False)

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

[求助] 如何将指定路径A文件夹下数据汇总，修改代码（详见附件）

评分

评分

评分