举个栗子。假设有一文件夹,内有十几个工作簿,每个文件夹的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,提高工作效率! |
|
来自: 昵称32901809 > 《文件夹1》