vba遍历所有文件夹的两种方法.docVIP

VBA遍历所有文件夹的两种方法 （filesearch和FileSystemObject） 在VBA遍历文件夹和子文件夹中所有文件，常用两种方法，一种是使用VBA的filesercth对象，另外一种是使用FileSystemObject(windows文件管理工具)和递归方法。兰色对代码进行了注解，希望对大家有所帮助 ??? 第一种方法：使用filesearch对象 ?????????? Sub mysearch()Dim fs, i, arr(1 To 10000)Set fs = Application.FileSearch 设置一个搜索对象With fs.LookIn = ThisWorkbook.Path / 设置搜索路径.Filename = *.xls? 要搜索文件名和类型.SearchSubFolders = True? 是否需要搜索子文件夹If .Execute 0 Then? 如果找不到文件MsgBox There were .FoundFiles.Count _ file(s) found.? 显示文件找不到For i = 1 To .FoundFiles.Count? 通过循环把所有搜索到的文件存入到数组中arr(i) = .FoundFiles(i)Next iSheets(1).Range(A1).Resize(.F