vba怎么循环读取文件夹下的文件

在VBA中，可以使用Dir函数来循环读取文件夹下的文件。下面是一个示例代码，演示了如何循环读取文件夹下的文件并输出文件名到Excel工作表：

Sub LoopThroughFiles()Dim folderPath As StringDim fileName As StringDim i As Integer' 设置文件夹路径folderPath = "C:\Path\To\Folder\"' 初始化文件名变量fileName = Dir(folderPath & "*.*")' 清空工作表Sheets("Sheet1").Range("A1").CurrentRegion.ClearContents' 循环读取文件i = 1Do Until fileName = ""' 输出文件名到工作表Sheets("Sheet1").Cells(i, 1).Value = fileName' 获取下一个文件名fileName = Diri = i + 1LoopEnd Sub

在上面的示例代码中，首先需要将folderPath变量设置为目标文件夹的路径。然后，使用Dir函数获取第一个文件名，并将其赋值给fileName变量。接下来，使用Do Until循环来遍历文件夹下的每个文件，将文件名输出到Excel工作表的第一列。最后，使用Dir函数获取下一个文件名，并重复循环直到所有文件都被处理完毕。