在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工作表的第一列。
没有搜到相关的沙龙
领取专属 10元无门槛券
手把手带您无忧上云