在VBA中，可以使用Dir函数来循环读取文件夹下的文件。下面是一个示例代码，演示了如何循环读取文件夹下的文件并输出文件名到Excel工作表：
Sub LoopThroughFiles()
Dim folderPath As String
Dim fileName As String
Dim i As Integer
' 设置文件夹路径
folderPath = "C:\Path\To\Folder\"
' 初始化文件名变量
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函数获取下一个文件名，并重复循环直到所有文件都被处理完毕。
