VBA获取某文件夹下所有文件和子文件目录的文件

关注

原创最新推荐文章于 2025-07-08 12:00:00 发布 5.7w 阅读 AI 写同款· GEO 优化 ›

选取文件夹，获取全部次级文件夹并加上超链接应用场景：比如说我想知道D盘下所有文件夹的清单（假如有上百个），在excel中罗列出来，如果能批量加上超链接就更好了！应用场景：比如说我想知道D盘下所有文件的清单（假如有上百个），在excel中罗列出来，如果能批量加上超链接就更好了！和下面这个几乎一样，区别就是一个是获取文件夹，一个是获取文件。 https://blog.csdn.net/m0_59951054/article/details/124752730https://blog.csdn.net/m0_59951054/art 阅读详情

<strong>VBA获取某文件夹下所有文件，或子文件目录的文件</strong>

'-------------------------------------------
'获取某文件夹下的所有Excel文件
'-------------------------------------------
Sub getExcelFile(sFolderPath As String)
On Error Resume Next
Dim f As String
Dim file() As String
Dim x
k = 1

ReDim file(1)
file(1) = sFolderPath & "\"

    f = Dir(file(1) & "*.xlsx")     '通配符*.*表示所有文件，*.xlsx Excel文件
    Do Until f = ""
       'Range("a" & x) = f
       Range("a" & x).Hyperlinks.Add Anchor:=Range("a" & x), Address:=file(i) & f, TextToDisplay:=f
        x = x + 1
        f = Dir
    Loop

End Sub

'-------------------------------------------
'获取某文件夹下的所有文件和子目录下的文件
'-------------------------------------------
Sub getAllFile(sFolderPath As String)
'Columns(1).Delete
On Error Resume Next
Dim f As String
Dim file() As String
Dim i, k, x
x = 1
i = 1
k = 1

ReDim file(1 To i)
file(1) = sFolderPath & "\"

'-- 获得所有子目录
Do Until i > k
    f = Dir(file(i), vbDirectory)
        Do Until f = ""
            If InStr(f, ".") = 0 Then
                k = k + 1
                ReDim Preserve file(1 To k)
                file(k) = file(i) & f & "\"
            End If
            f = Dir
        Loop
    i = i + 1
Loop

'-- 获得所有子目录下的所有文件
For i = 1 To k
    f = Dir(file(i) & "*.*")    '通配符*.*表示所有文件，*.xlsx Excel文件
    Do Until f = ""
       'Range("a" & x) = f
       Range("a" & x).Hyperlinks.Add Anchor:=Range("a" & x), Address:=file(i) & f, TextToDisplay:=f
        x = x + 1
        f = Dir
    Loop
Next
End Sub

收录于