原标题:【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做文件夹目录下是否存在名稱为“看见星光”的工作簿?