用EXCEL VBA获取指定目录下的文件名(包括文件夹名)

1点开始菜单，就能看到上面的界面，选择“运行”！点了运行程序后，在里面输入“cmd”点击确定会进入命令提示符串口。

2打个比方说，文件在C盘里面的111文件夹，要读取里面的文件的文件名字。

3利用cd命令到达要读取文件名的文件夹，用法是这样的：命令为“cd c:\111”。

4然后会看到下面的这个情况：

5然后输入命令“dir /b>d:1xls”然后回车。

6到D盘就能看到一个名称为1xls的文件。

7打开就是了。

Sub 循环文件()

Dim Path$,filelist$ '字符串，File可以定义为File$

Path = "D:\电话信息\" '保存文件的目录， /////可根据实际存放的路径自行修改本行

File = Dir(Path & "xls") '第1个工作簿文件

Do While (File <> "") And File <> ThisWorkbookName

filelist=filelist & Left(File, Len(File) - 4)& "txt," 'Left是取File的前面部分，这里是去掉扩展名"xls"四个字符

File = Dir

Loop

end sub

以上就是关于用EXCEL VBA获取指定目录下的文件名(包括文件夹名)全部的内容，包括:用EXCEL VBA获取指定目录下的文件名(包括文件夹名)、Excel宏中导入指定目录下所有文件名、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！