fso提取汇总文件夹及其下的文件名及内容（递归操作字典汇总）

kingpwfl · 发表于 2019-6-3 14:33

liulang0808 发表于 2014-11-15 09:14
五、汇总当前文件夹及子文件夹下所有excel文件内容
Excel文件格式一致，汇总求和，其他需求自行变通容
汇 ...

老师，能不能调下代码让同薄上多表指定内容提取啊。

liulang0808 · 发表于 2019-6-3 20:40

kingpwfl 发表于 2019-6-3 14:33
老师，能不能调下代码让同薄上多表指定内容提取啊。

这个仅仅是基础的，关于你的需求，可以单独发帖的，然后看看怎么处理，或者论坛上也有雷同的帖子，楼主先根据需求查查看，另外总结了一个字典的帖子，里面也有遍历文件的资料。先看看是否合适吧

renkangjizhen · 发表于 2019-6-5 20:36

谢谢分享，楼主受累了！
请问楼主：如何理解 d(arr(j, 1)) = d(arr(j, 1)) + arr(j, 2)

renkangjizhen · 发表于 2019-6-5 23:11

麻烦解释一下字面意思（就是根据你的帖子的环境）

qinhuan66 · 发表于 2019-6-12 16:54

好好学习天天向上

kaka117 · 发表于 2019-6-14 17:20

大神，我的需求好像跟第五项比较相似，但又不完全一样，能帮忙看一下吗？先谢了

BG3PS · 发表于 2019-8-6 15:51

liulang0808 发表于 2014-11-15 09:12
四、遍历当前文件夹及所有子文件夹下的文件
还是递归

学习谢谢嘻嘻嘻嘻嘻嘻嘻嘻

mumumuran · 发表于 2019-8-8 16:10

liulang0808 发表于 2014-11-15 09:10
二、遍历当前文件夹内文件名

提取当前文件夹下的文件名称并放在A列

大神，如果不需要提取本代码文件名，可以增加if语句 if f.name<> thisworkbook.name then 为什么这句代码老是报错啊

mumumuran · 发表于 2019-8-9 09:10

mumumuran 发表于 2019-8-8 16:10
大神，如果不需要提取本代码文件名，可以增加if语句 if f.name thisworkbook.name then 为什么这句代码 ...

我感觉应该是我代码的问题，大神能否帮忙补齐一下不需要提取本代码文件名就够了

mumumuran · 发表于 2019-8-9 10:37

mumumuran 发表于 2019-8-9 09:10
我感觉应该是我代码的问题，大神能否帮忙补齐一下不需要提取本代码文件名就够了

vba不是很懂，不知道 if f.name thisworkbook.name then 后应该加什么，自己尝试的也报错

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

[分享] fso提取汇总文件夹及其下的文件名及内容（递归操作字典汇总）