vba获取文件名到excel表2025.3.11

法润惠民

vba获取文件名到excel表

Sub ExtractFileNames()

Dim fso As Object

Dim folderPath As String

Dim folder As Object

Dim file As Object

Dim ws As Worksheet

Dim i As Integer

'创建文件系统对象实例

Set fso = CreateObject("Scripting.FileSystemObject")

'指定文件夹路径

'folderPath = "C:\Your\Folder\Path" '更改为你的文件夹路径

folderPath = "E:\2024志愿者服务\2024人民调解实例" '更改为你的文件夹路径

'设置工作表

Set ws = ThisWorkbook.Sheets(1)

i = 1 '从第一行开始写入

'检查文件夹是否存在

If fso.FolderExists(folderPath) Then

'获取文件夹对象

Set folder = fso.GetFolder(folderPath)

'遍历所有文件

For Each file In folder.Files

'将文件名写入到工作表的每一行

ws.Cells(i, 1).Value = file.Name

i = i + 1

Next file

Else

MsgBox "指定的文件夹不存在。"

End If

'清理

Set fso = Nothing

Set folder = Nothing

Set file = Nothing

Set ws = Nothing

End Sub