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

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

2、然后，打开visualbasic。

3、再双击左侧的sheet1栏。

4、在窗口中输入代码：

Sub Ma()

mypath = "C:\Users\Administrator\Desktop\bbb\"

myfile = Dir(mypath, vbDirectory)

a = 1

Do While myfile <> ""

If myfile <> "." And myfile <> ".." Then

Cells(a, 1) = myfile

a = a + 1

myfile = Dir

Else

myfile = Dir

End If

Loop

End Sub

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

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