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

香川群子 · 发表于 2015-2-15 10:14

frdes 发表于 2015-2-14 22:47
请问递归是什么，有什么作用？

递归，英文名Recursive、Recursion

意思是：总结算法规律，通过对自身的反复调用进行深化或遍历处理。

可以大大缩减代码语句的数量。(相同的算法不用重复写代码了。)

liulang0808 · 发表于 2015-3-28 20:31

sunny_8848 · 发表于 2015-3-31 13:24

谢谢liulang0808的分享！

ak47ok · 发表于 2015-4-30 15:00

每次回帖、谢谢！辛苦了。

鄂龙蒙 · 发表于 2015-5-6 08:55

liulang0808 发表于 2014-11-15 09:54
五、汇总当前文件夹及子文件夹下所有excel文件内容
增加了红色字体部分
Public d

请教:这句代码如果数量不是在第2列,是在第3列,怎么改?谢谢!
For j = 2 To UBound(arr)
d(arr(j, 1)) = d(arr(j, 1)) + arr(j, 2)
Next j

liulang0808 · 发表于 2015-5-6 11:31

鄂龙蒙发表于 2015-5-6 08:55
请教:这句代码如果数量不是在第2列,是在第3列,怎么改?谢谢!
For j = 2 To UBound(arr)
...

arr(j, 2)修改为 arr(j, 3)，不过也需要看数组与单元格对应关系的

鄂龙蒙 · 发表于 2015-5-6 11:39

liulang0808 发表于 2015-5-6 11:31
arr(j, 2)修改为 arr(j, 3)，不过也需要看数组与单元格对应关系的

直接改试了不行。能否请老师再帮一下？谢谢！

liulang0808 · 发表于 2015-5-6 12:21

鄂龙蒙发表于 2015-5-6 11:39
直接改试了不行。能否请老师再帮一下？谢谢！

d(arr(j, 1)) = d(arr(j, 1)) + arr(j, 3)
如果还是有问题上传附件看看吧
需要同时考虑数据再表格中的对应位置
arr = sht.UsedRange关键是usedrange的范围

鄂龙蒙 · 发表于 2015-5-6 12:37

liulang0808 发表于 2015-5-6 12:21
d(arr(j, 1)) = d(arr(j, 1)) + arr(j, 3)
如果还是有问题上传附件看看吧
需要同时考虑数据再表格中的对 ...

请老师帮忙，先谢谢了！

数据库.rar (43.42 KB, 下载次数: 71)

模拟用一个工作薄试的。

liulang0808 · 发表于 2015-5-6 14:23

鄂龙蒙发表于 2015-5-6 12:37
请老师帮忙，先谢谢了！

看看报错原因吧，是因为代码文件打开后，会生成一个附件，在遍历文件的时候导致出错的

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

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