vba读取文件夹中的文件名

提取当前文件夹下的文件名称并放在A列

Sub 按钮1_Click()

Application.ScreenUpdating = False

Set fso = CreateObject("scripting.filesystemobject")

Set ff = fso.getfolder(ThisWorkbook.Path) 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改

ActiveSheet.UsedRange.ClearContents

a = 1

For Each f In ff.Files

Rem 如果不需要提取本代码文件名，可以增加if语句 if f.name<>thisworkbook.name then.....

Rem 如果值需要提取某类文件，需要对f.name的扩展名进行判断

Rem 个人感觉split取 扩展名：split（f.name,".")(ubound（split（f.name,".")）)，然后再判断，避免文件名还有其他“.”

Cells(a, 1) = f.Name '相对路径名

Cells(a, 2) = f '全路径名

a = a + 1

Next f

Application.ScreenUpdating = True

End Sub

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

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

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

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

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

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

7.打开就是了。

---