[求助]如何用VBA遍历指定目录下的所有子文件夹和文件

chentx

自己也写过类似的在2007版下遍历文件夹提取文件名的代码，用的是递归的方法，写法就相对简单一点，不过可能资源消耗会比较大。

1. Option Explicit
   
2. 
   
3. Sub Test()
   
4. Dim iPath As String, i As Long
   
5. 
   
6.     With Application.FileDialog(msoFileDialogFolderPicker)
   
7.         .Title = "请选择要查找的文件夹"
   
8.         If .Show Then
   
9.             iPath = .SelectedItems(1)
   
10.         End If
    
11.     End With
    
12.    
    
13.     If iPath = "False" Or Len(iPath) = 0 Then Exit Sub
    
14.    
    
15.     i = 1
    
16.     Call GetFolderFile(iPath, i)
    
17.     MsgBox "文件名链接获取完毕。", vbOKOnly, "提示"
    
18. 
    
19. End Sub
    
20. 
    
21. Private Sub GetFolderFile(ByVal nPath As String, ByRef iCount As Long)
    
22. Dim iFileSys As New FileSystemObject
    
23. Dim iFile As Files, gFile As File
    
24. Dim iFolder As Folder, sFolder As Folders, nFolder As Folder
    
25. 
    
26.     Set iFolder = iFileSys.GetFolder(nPath)
    
27.     Set sFolder = iFolder.SubFolders
    
28.     Set iFile = iFolder.Files
    
29. 
    
30.     With ActiveSheet
    
31.         For Each gFile In iFile
    
32.             .Hyperlinks.Add anchor:=.Cells(iCount, 1), Address:=gFile.Path, TextToDisplay:=gFile.Name
    
33.             iCount = iCount + 1
    
34.         Next
    
35.     End With
    
36.    
    
37.     '递归遍历所有子文件夹
    
38.     For Each nFolder In sFolder
    
39.         Call GetFolderFile(nFolder.Path, iCount)
    
40.     Next
    
41. End Sub

复制代码

[ 本帖最后由 chentx 于 2010-11-22 22:28 编辑 ]

onthetrip

相当漂亮，学习了

libaoshui

收入囊中，正是我需要的。呵呵！

aquppiev

不知道不灰狼老师还在不在关注这个问题？
有一事还需请教！
如何把生成的清单放在我指定的工作表内！比如放在sheet6的C列，另想增加一按钮，做一个有即时更新的功能

yf_992258

就是找到对应表，对应行列回填数据吗？
那必须告知什么清单到什么表，什么行列
最好上附件

lingzhen123456

请问【老朽&大灰狼】老师，如何加多一句来判断：
①一开始已经找到了50个文件
②第二次，我在文件夹下新增了20个文件
③请问：如何在已汇总的50个文件名下，直接增加20个新文件的文件名呢？
我想的是：把统计过的表名字记录下来，下次再统计判断一下是否统计过，已经统计过的就跳过去

可是怎么书写呢？
请问请问~~~

[ 本帖最后由 lingzhen123456 于 2011-2-25 22:57 编辑 ]

mengshu

原帖由 zldccmx 于 2008-9-21 18:18 发表
Sub Test() '使用双字典，旨在提高速度    Dim MyName, Dic, Did, I, T, F, TT, MyFileName    T = Time    Set Dic = CreateObject("Scripting.Dictionary") &n ...

     MyName = Dir(Ke(I), vbDirectory)    '查找目录

5楼的代码，我的在执行到这里的时候，出问题了，不知道什么原因哦

[ 本帖最后由 mengshu 于 2011-3-18 08:51 编辑 ]

qinhuan66

值得学习！

liumongshi

不知道高高高，高手的老朽老师还关注这个问题不？我想实现在可以自由选取文件夹，遍历子文件夹的前提下，（我有三万多个格式完全相同的工作薄，每个工作薄里有八张工作表，每个工作表有很多信息），我想提取第一张表中的b2单元格(姓名)，d3（村组），第二张表中的c3（等级），f5（金额），把这些东西提取后，在另一个excel中从b列开始依次填入提取的数据，每一行即为提取一个工作薄内容的记录，依次排下来，做成一个目录的形式。不知道我是不是和一年级的学生，问清楚了没有？望得到完整代码解答。

[ 本帖最后由 liumongshi 于 2011-5-16 14:12 编辑 ]

liumongshi

各位老师，请你们帮帮忙。