vba如何循环读取文件夹下的文件

在VBA中，可使用`Dir`函数来循环读取文件夹下的文件。下面是一个示例代码，演示了怎样循环读取文件夹下的文件并输出文件名到Excel工作表：
```vba
Sub LoopThroughFiles()
Dim folderPath As String
Dim fileName As String
Dim i As Integer
' 设置文件夹路径
folderPath = "C:PathToFolder"
' 初始化文件名变量
fileName = Dir(folderPath & "*.*")
' 清空工作表
Sheets("Sheet1").Range("A1").CurrentRegion.ClearContents
' 循环读取文件
i = 1
Do Until fileName = ""
' 输出文件名到工作表
Sheets("Sheet1").Cells(i, 1).Value = fileName
' 获得下一个文件名
fileName = Dir
i = i + 1
Loop
End Sub
```
在上面的示例代码中，首先需要将`folderPath`变量设置为目标文件夹的路径。然后，使用`Dir`函数获得第一个文件名，并将其赋值给`fileName`变量。接下来，使用`Do Until`循环来遍历文件夹下的每一个文件，将文件名输出到Excel工作表的第一列。最后，使用`Dir`函数获得下一个文件名，并重复循环直到所有文件都被处理终了。