用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、执行代码,输入需要读取文件夹的文件路径 |
|
来自: Excel实用知识 > 《VBA与EXCEL》