首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

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

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

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

在VBA编辑器中,插入一个新的模块。然后,将以下代码复制粘贴到模块中:

代码语言:javascript
复制
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工作表的第一列。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

领券