在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函數獲取下一個文件名，并重復循環直到所有文件都被處理完畢。
