vb遍历文件夹中的所有文件_Excel VBA 如何快速遍历文件夹/子文件夹中文件的路径...

以下是最简单的代码，可以选择文件夹和想要遍历的文件后缀。

Sub Find_Files()

Dim fldr As FileDialog

Dim f, ibox, sn

Set fldr = Application.FileDialog(msoFileDialogFolderPicker)

fldr.Show

f = fldr.SelectedItems(1)

f = f & ""

ibox = InputBox("File Must Contain (Note * wildcards can be used)", , "*.xls*")

On Error GoTo ext

sn = Split(CreateObject("wscript.shell").exec("cmd /c Dir """ & f & ibox & """ /s /a /b").stdout.readall, vbCrLf)

Sheets(1).Cells(1).Resize(UBound(sn) + 1) = Application.Transpose(sn)

ext:

End Sub

选择文件夹：

填写文件后缀，如.xls*