每天一个知识点，excel vba统计文件夹里子文件夹名所有的文件名-文件名

举个栗子。假设有一文件夹，内有十几个工作簿，每个文件夹的NAME并没有规律可言，现在我们只想汇总每个文件夹的名称。现在我们可以使用字典去实现这个小小的功能。

可以使用今天下面分享的代码，程序运行，一键提取文件夹下所有的文件夹的名字。

您还不来试试一下，vba代码的神奇之处。

Sub wjjm()

'提取文件夹名

Dim fso, f, fc, myPath$, i myFol

‘设定字典fso

Set fso = CreateObject("Scripting.FileSystemObject")

'设定变量为文件夹的名称

myPath = ThisWorkbook.path

'返回与指定的路径中某文件夹相应的 Folder 对象。

Set f = fso.GetFolder(myPath)

Set fc = f.SubFolders

For Each myFol In fc

i = i + 1

'在活动单元格中写入工作薄名称

Cells(i, 1) = myFol.Name

Next

'是否字典

Set fso = Nothing

End Sub

如果你在工作中还需要设计其他的表格模板，都可以留言，我们会根据大家需求来整理相关的学习资料，目的只有一个，那就是学好Excel，提高工作效率！