使用excel VBA顺序读取文件夹中的文件名

Sub ReadFolderFiles()
    Dim fso As Object
    Dim folderPath As String
    Dim folder As Object
    Dim file As Object
    Dim rowIndex As Long
    
    ' 设置文件夹路径
    folderPath = "C:\YourFolderPath" ' 替换为你的文件夹路径
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件夹对象
    Set folder = fso.GetFolder(folderPath)
    
    ' 初始化行索引
    rowIndex = 1
    
    ' 遍历文件夹中的文件
    For Each file In folder.Files
        ' 将文件名写入工作表
        Cells(rowIndex, 1).Value = file.Name
        rowIndex = rowIndex + 1
    Next file
    
    ' 释放对象
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
End Sub