VBA遍历文件夹和子文件夹中所有文件

在

VBA

遍历文件夹和子文件夹中所有文件，常 用两种方法，一种是使用

VBA

的

fi lesercth

对象，

另外一种是使用

FileSystemObject(windows

文件管理工具

< br>)

和递归方法。

兰色对代码

进行 了注解，希望对大家有所帮助

第一种方法：使用

filesearch

对象

Sub mysearch()

Dim fs, i, arr(1 To 10000)

Set fs = arch

'

设置一个搜索对象

With fs

.LookIn = &

设置搜索路径

.Filename =

要搜索文件名和类型

.SearchSubFolders = True '

是否需要搜索子文件夹

If .Execute > 0 Then '

如果找不到文件

MsgBox

'

显示文件找不到

For i = 1 To . '

通过循环把所有搜索到的文件存入到数组中

arr(i) = .FoundFiles(i)

Next i

Sheets(1).Range(

把数组内的路径和文件 名放在单元格中

Else

MsgBox

End If

End With

End Sub

第二种方法：引用

FileSystemObject

对象