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

在Excel VBA中，你可以使用FileSystemObject对象来顺序读取文件夹中的文件名。以下是一个示例代码，演示如何读取文件夹中的文件名并将其显示在Excel工作表中：

首先，确保你已经打开了Excel，并按下Alt + F11打开VBA编辑器。

在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

在代码中，将folderPath变量替换为你要读取文件名的文件夹路径。然后，运行ReadFolderFiles子过程。

这将遍历指定文件夹中的所有文件，并将文件名逐行写入当前活动的Excel工作表的第一列。