用VBA代码一次性读取文件夹中所有文件名称

用VBA代码一次性读取文件夹中所有文件名称

一、应用场景

当需要知道文件中有哪些文件，且需要读取所有的文件的名称时。

二、重点：vba源代码如下（具有通用性）

Sub 读取文件夹文件名()

Dim na$, ph$, i!, arr(1 To 100)

ph = InputBox('输入文件所在文件夹')

If ph <> '' Then

na = Dir(ph & '\' & '*.*')

Do While na <> ''

i = i + 1

arr(i) = Split(na, '.')(0)

na = Dir

Loop

ActiveCell.Resize(i, 1) = WorksheetFunction.Transpose(arr)

End If

End Sub

三、使用说明

1、选中读取工作表需要存放的单元格

2、执行代码，输入需要读取文件夹的文件路径