举个栗子。假设有一文件夹，内有十几个工作簿，每个文件夹的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，提高工作效率！
