他山之石——VBA文件夹遍历

最新推荐文章于 2024-07-16 14:53:02 发布

预见未来to50

最新推荐文章于 2024-07-16 14:53:02 发布

阅读量427

点赞数

CC 4.0 BY-SA版权

分类专栏： Excel技巧及VBA编程（Excel_VBA）

本文链接：https://blog.youkuaiyun.com/hpdlzu80100/article/details/80822687

Excel技巧及VBA编程（Excel_VBA）专栏收录该内容

404 篇文章

订阅专栏

本文介绍了一段使用VBA编写的代码，该代码能够帮助用户在指定路径下批量搜索所有的Excel文件，并将找到的文件路径罗列出来。通过调用FileSearch对象，可以灵活地设定搜索范围和文件类型。

Sub test3()
Dim wb As Workbook
Dim i As Long
Dim t
Dim arr()
t = Timer
ActiveSheet.UsedRange = ""
    With Application.FileSearch '调用fileserch对象
        .NewSearch '开始新的搜索
        .LookIn = ThisWorkbook.path  '设置搜索的路径
        .SearchSubFolders = True '搜索范围包括 LookIn 属性指定的文件夹中的所有子文件夹
        .Filename = "*.xl*" '设置搜索的文件类型
        If .Execute() > 0 Then '如果找到文件
         ReDim arr(1 To .FoundFiles.Count, 1 To 1)
            For i = 1 To .FoundFiles.Count
                arr(i, 1) = .FoundFiles(i) '把找到的文件放在单元格里
            Next i
        Else
             MsgBox "没找到文件"
        End If
     End With
    Range("a1").Resize(i - 1) = arr
 MsgBox Timer - t
End Sub