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

liulang0808 · 发表于 2015-10-23 08:11

jackylam 发表于 2015-10-22 19:56
liulang0808老师，最近在统计人员名单的时候出现一些问题，能不能麻烦您帮我看看程序有什么不对。
具体附 ...

看不懂楼主的具体需求，不明白到底要统计什么？

jackylam · 发表于 2015-10-23 08:33

具体要求，查询父文件夹中所有子文件下包含孙文件的名称

Sub 按钮1_Click()
Application.ScreenUpdating = False
Set fso = CreateObject("scripting.filesystemobject")
Set ff = fso.getfolder("\\DLPSVR02\share\部门") '
ActiveSheet.UsedRange.ClearContents
a = 1
For Each fd In ff.subfolders
      For Each fd1 In fd.subfolders
      Cells(a, 1) = fd1.Name
      Next fd1
a = a + 1
Next
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2015-10-23 09:15

jackylam 发表于 2015-10-23 08:33
具体要求，查询父文件夹中所有子文件下包含孙文件的名称

Sub 按钮1_Click()

http://club.excelhome.net/forum. ... 866&pid=7947105

雨漫海阔 · 发表于 2015-10-23 10:54

非常好的学习资料

jackylam · 发表于 2015-10-23 11:35

谢谢liulang0808老师！
您的之前的教程确实可以全部显示，但是我只要孙文件的文件名，路径树我不要，可以帮我看看吗

gftrewq · 发表于 2015-10-24 11:55

谢谢liulang0808老师！

ww38 · 发表于 2015-11-4 23:22

很有用的宏，非常感谢楼主，学习罗

autumnalRain · 发表于 2015-11-5 06:35

向老师致敬！但是递归，我这智商是很难学会了囧

liulang0808 · 发表于 2015-11-5 09:41

jackylam 发表于 2015-10-23 11:35
谢谢liulang0808老师！
您的之前的教程确实可以全部显示，但是我只要孙文件的文件名，路径树我不要，可以 ...

那就做个文件路径判断就可以了
太深的路径就不去遍历了

SYSMEX530 · 发表于 2015-11-5 11:41

Excel 跪求各位大侠，我的代码太啰嗦，运行太慢，请帮忙优化-ExcelVBA程序开发-ExcelHome技术论坛 -
http://club.excelhome.net/thread-1239709-1-1.html

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

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