VBA遍历文件夹中的所有文件
一、建立工程
首先，我们需要建立一个新的VBA项目，打开Visual Basic Editor，按下ALT+F11，在弹出的窗口中选择“插入”－“模块”，即可新建一个空的模块。
Sub TraverseFolders()
End Sub二、定义变量
在Sub过程中，我们可以定义多个变量，变量名可以自由命名，但类型需要定义为“String”或“Variant”，这里定义了一个主文件夹路径MainFolder，以及ListObject对象tbl用于存储所有文件路径。
Sub TraverseFolders()
Dim MainFolder As String
Dim tbl As ListObject
End Sub三、定义ListObject表格
ListObject表格是一种强大的表格功能，拥有各种排序、筛选、格式控制功能等等。这里我们定义一个新的表格，命名为“FileList”，将表头设置为“File Name”和“Path”，并将其填充至工作表的A1单元格。
Sub TraverseFolders()
Dim MainFolder As String
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B1"), , xlYes)
tbl.Name = "FileList"
tbl.HeaderRowRange.Cells(1, 1).Value = "File Name"
tbl.HeaderRowRange.Cells(1, 2).Value = "Path"
End Sub四、定义递归过程
递归是一种经典的程序设计思路，用于处理一些可分解为多个子问题的问题，比如树形数据结构、文件夹中的文件等等。这里我们定义一个子过程TraverseSubfolders，它接受两个参数，FolderPath表示当前文件夹路径，tbl表示传入的ListObject表格。
Sub TraverseFolders()
Dim MainFolder As String
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B1"), , xlYes)
tbl.Name = "FileList"
tbl.HeaderRowRange.Cells(1, 1).Value = "File Name"
tbl.HeaderRowRange.Cells(1, 2).Value = "Path"
TraverseSubfolders MainFolder, tbl
End Sub
Sub TraverseSubfolders(FolderPath As String, tbl As ListObject)
End Sub五、遍历文件夹并加载子文件夹
在TraverseSubfolders过程中，我们需要使用VBA内置函数FileSystemObject（FSO）来处理文件夹和文件。首先，我们需要在过程开始时判断指定路径是否为文件夹，如果是，则遍历文件夹内所有文件并添加到ListObject表格中，否则递归处理子文件夹。注意，在递归过程中需要先处理所有的子文件夹才能处理当前文件夹。
Sub TraverseFolders()
Dim MainFolder As String
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B1"), , xlYes)
tbl.Name = "FileList"
tbl.HeaderRowRange.Cells(1, 1).Value = "File Name"
tbl.HeaderRowRange.Cells(1, 2).Value = "Path"
TraverseSubfolders MainFolder, tbl
End Sub
Sub TraverseSubfolders(FolderPath As String, tbl As ListObject)
Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim folder As Folder
Set folder = fso.GetFolder(FolderPath)
Dim file As File
For Each file In folder.Files
Dim newRow As ListRow
Set newRow = tbl.ListRows.Add
newRow.Range.Cells(1, 1).Value = file.Name
newRow.Range.Cells(1, 2).Value = file.Path
Next
Dim subFolder As Folder
For Each subFolder In folder.SubFolders
TraverseSubfolders subFolder.Path, tbl
Next
End Sub六、完整代码
Sub TraverseFolders()
Dim MainFolder As String
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B1"), , xlYes)
tbl.Name = "FileList"
tbl.HeaderRowRange.Cells(1, 1).Value = "File Name"
tbl.HeaderRowRange.Cells(1, 2).Value = "Path"
TraverseSubfolders MainFolder, tbl
End Sub
Sub TraverseSubfolders(FolderPath As String, tbl As ListObject)
Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim folder As Folder
Set folder = fso.GetFolder(FolderPath)
Dim file As File
For Each file In folder.Files
Dim newRow As ListRow
Set newRow = tbl.ListRows.Add
newRow.Range.Cells(1, 1).Value = file.Name
newRow.Range.Cells(1, 2).Value = file.Path
Next
Dim subFolder As Folder
For Each subFolder In folder.SubFolders
TraverseSubfolders subFolder.Path, tbl
Next
End Sub七、总结
我们通过使用VBA内置的FileSystemObject对象，在遍历文件夹中的所有文件时实现了递归遍历所有子文件夹的功能，将所有文件名和路径存储在ListObject表格中。在实际应用中，我们可以进一步扩展这个功能，比如筛选指定类型的文件、添加文件属性和标签、自动处理重复文件等等。
