当前位置:首页 > WPS表格 > 正文内容

获取文件夹与子文件夹中所有的文件

达叔3个月前 (05-10)WPS表格84
Sub 遍历文件夹()
'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) = InputBox("请输入要查找的文件夹:") & "\"
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) & "*.*")
    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

直接读取文件,并链接到文件。

QQ截图20200510230909.png

版权声明:本文由WPS达师发布,如需转载请注明出处。
标签: 遍历文件