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

shangha

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

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

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

谢谢老师不吝指教！

杨建营

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

psxk3535

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

shangha

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

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

ykcbf1100

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

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

沈默00

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

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

shangha

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

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

ykcbf1100

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

附件供参考。。。

shangha

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

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