复杂的多工作簿指定区域有数据的分表才逐一添加数据到汇总文件指定位置

三分醉，七分醒

请测试一下                  

peter-chen

三分醉，七分醒 发表于 2023-5-18 15:50
请测试一下

谢谢你的回复，我测试了下，当只有2个文件时，OK成功，但是我按附件加了3个文件后，就只能统计到子文件夹里面的2个文件，详见附件。谢谢。
因为类似的要统计的文件至少又60个工作薄（每个工作薄可能有12个工作表），我试图去分析下代码，也麻烦您看看问题出在哪里。谢谢

peter-chen

三分醉，七分醒 发表于 2023-5-18 15:50
请测试一下

发现它只能统计子文件夹里面的工作薄，当我把一个工作薄移到外面后，就发现只能统计子文件夹里的那个文件了，而子文件夹里无文件时，就出错，显示错误在：s = WorksheetFunction.Transpose(brr)

peter-chen

三分醉，七分醒 发表于 2023-5-18 15:50
请测试一下

file_path = ThisWorkbook.Path & "\Date\"---你这里设置了路径，所以才出错的，因为文件不一定在子文件夹里，也可能和合计文件在同一个目录下,我就是卡在这里一直没有处理好

peter-chen

再提高以下难度，对应工作薄名+工作表名显示在对应19行后的O列内这个能否改成路径链接，可以直接点击打开对应的EXCEL工作薄文件呢？期待各位老师的指点，谢谢

三分醉，七分醒

peter-chen 发表于 2023-5-18 19:28
发现它只能统计子文件夹里面的工作薄，当我把一个工作薄移到外面后，就发现只能统计子文件夹里的那个文件 ...

你把Date外的文件移入Date内即可

peter-chen

三分醉，七分醒 发表于 2023-5-18 20:26
你把Date外的文件移入Date内即可

这个我明白，我想解决同时遍历合计文件所在的文件夹以及子文件夹，毕竟每个项目的文件夹也有很多文件，然后每个文件夹都复制进去虽然不费力，但是想提高效率。再有，O列能否转成文件的链接呢，这样，查询相关费用就可以直接点击打开，谢谢

zpy2

peter-chen 发表于 2023-5-18 20:30
这个我明白，我想解决同时遍历合计文件所在的文件夹以及子文件夹，毕竟每个项目的文件夹也有很多文件，然 ...

就是遍历文件夹和子文件夹吗孙文件夹？论坛搜索一下有不少的。

关键你的需求，我也是没看明白。

三分醉，七分醒

。。。。。。。。。

三分醉，七分醒

peter-chen 发表于 2023-5-18 20:30
这个我明白，我想解决同时遍历合计文件所在的文件夹以及子文件夹，毕竟每个项目的文件夹也有很多文件，然 ...

审核不了，加v:zsx707297