VBA常用代码：批量获取指定文件夹下的文件名

哈喽小伙伴们好，我是人见人爱的男神星光。今天说说如何获取指定文件夹下文件的名称。

很久以前我们分享过DOS的方法，操作动画如下：

VBA可以通过Wscript.Shell调用DOS语句，以后我们可能会分享到这部分内容~所以这里先简单说下动画中DOS语句的意思

DIR *.*/B>LIST.TXT

DIR可以简单理解成函数。

*.*  *是通配符，第一个*是文件名，第二个*是文件格式。如果只要excel文件，就修改为*.xls。

/b 是使用空格式，没有标题信息之类的。

list.txt是生成的文件类型和名字。

综上所述，如果是生成excel文件的目录，并以excel来呈现，命名为目录，语句就改为DIR *.xls /B >目录.xls

..

再说下VBA的方法，照例先上操作动画：

代码的核心是DIR语句，注释部分业已作了解释，这里就不再啰嗦了。

---

Sub FileDir()

Dim p$, f$, k&

'获取用户选择文件夹的路径

With Application.FileDialog(msoFileDialogFolderPicker)

'选择文件夹

.AllowMultiSelect = False

'不允许多选

If .Show Then

p = .SelectedItems(1)

'选择的文件路径赋值变量P

Else

Exit Sub

'如果没有选择保存路径，则退出程序

End If

End With

If Right(p, 1) <> '\' Then p = p & '\'

f = Dir(p & '*.*')

'返回变量P路径下带任意扩展名的文件名。如果超过一个文件存在，函数将返回按条件第一个找到的文件名。

'如果一个文件都没有，则f返回''

[a:a].ClearContents '清空A列数据

[a1] = '目录'

k = 1 'K

Do While f <> '' '如果f不等于''，则……

k = k + 1 '累加K

Cells(k, 1) = f

f = Dir

' 若第二次调用 Dir 函数，但不带任何参数，则将返回同一目录下的下一个文件。

Loop

MsgBox 'OK'

End Sub

---

小思考：

如何用VBA判断某个文件夹下是否存在名称为“看见星光”的工作簿？方法有很多种哦~

VBA编程学习与实践