原标题：【Excel VBA】批量提取excel做文件夹目录下文件名

如何获取指定excel做文件夹目录下文件的名称

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

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

DIR可以简单理解成函数。

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

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

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

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

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

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

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

再说下VBA的方法……

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

'获取用户选择excel做文件夹目录的路径

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

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

'返回变量P指定路径下带任意扩展名的文件名

'如果有超过一个文件存在，将返回第一个找到的文件名

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

'如果文件名不为空，则……

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

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