用VBA获取文件夹下所有文件名称的方法

1、首先，打开Excel，打开开发工具。

2、然后，打开visualbasic。

3、再双击左侧的sheet1栏。

4、在窗口中输入代码：Sub Ma()mypath = "C:\Users\钽吟篑瑜Administrator\Desktop\bbb概嗤先眚\"myfile = Dir(mypath, vbDirectory)a = 1Do While myfile <> ""If myfile <> "." And myfile <> ".." ThenCells(a, 1) = myfilea = a + 1myfile = DirElsemyfile = DirEnd IfLoopEnd Sub

5、然后，再次打开开发工具，在开发工具中点开宏，运行Ma宏

6、最后，运行完成，路径为：C:\Users\Administrator\Desktop\bbb文件夹下的文件和文件夹名称都被获取到Excel中了。