【Excel VBA】批量提取文件夹下文件名

如何获取指定文件夹下文件的名称？

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

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

DIR *.*/B>LIST.TXT

DIR可以简单理解成函数。

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

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

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

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

除了DOS的方法还有浏览器法、函数法以及我们今天分享的VBA法。

函数法如下图所示，浏览器法这里就不啰嗦介绍了。

看我眼睛，先声明，动画里的政治经济学和我没关系啊，那是老祝干的事，我作证……

再说下VBA的方法……

照例先上操作动画：

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

代码如下：

Sub FileDir()
    Dim p$, f$, k&
    '获取用户选择文件夹的路径
    With Application.FileDialog(msoFileDialogFolderPicker)
   '选择文件夹
        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指定路径下带任意扩展名的文件名
    '如果有超过一个文件存在，将返回第一个找到的文件名
    '如果一个文件都没有，则返回空
    [a:a].ClearContents '清空A列数据
    [a1] = '目录'
    k = 1
    Do While f <> ''
    '如果文件名不为空，则……
        k = k + 1
        '累加文件个数
        Cells(k, 1) = f
        f = Dir
        '第二次调用Dir函数，但不带任何参数，则将返回同一目录下的下一个文件。
    Loop
    MsgBox 'OK'
End Sub

小贴士：

如何用VBA判断某个文件夹下是否存在名称为“看见星光”的工作簿？