用VBA获取文件夹下所有文件夹或者文件名称的方法工具/原料moreExcel2007电脑Windows7操作系统方法/步骤1/6分步阅读

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

2/6

然后，打开visualbasic。

3/6

再双击左侧的sheet1栏。

4/6

在窗口中输入代码：

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/6

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

6/6

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

注意事项

Tips1：请图文结合查看，如果疑问，敬请留言！

Tips2：个人原创，请勿转载！

VB获取文件名VB统计文件名VB编程