在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
函数获取下一个文件名,并重复循环直到所有文件都被处理完毕。
辰迅云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>
推荐阅读: vba如何向列表框添加内容