excel vba提取文件夹下的文件夹名

excel单子表格能很好的进行数据分析。作为Office的的组件，excel 自带vba代码编写。可以处理很多非表格处理的问题。有时候我们需要提取某文件夹下的所有文件夹名称，然后对文件夹改名或者其他处理
下面示例将“F:\excel教程”文件夹下面的所有文件夹名称提取出来放在excel工作表的A列Sub提取文件夹名称()
DimfsAsObject
n=1
Setfs=CreateObject("Scripting.FileSystemObject")
Setf=fs.getfolder("F:\excel教程")
ForEachfdInf.subfolders
Cells(n,1)=fd.Name
n=n+1
Next
Setf=Nothing
Setfs=Nothing
EndSub
打开VBE编辑器，复制源码到模块，直接运行源码效果图
1508489902709206.png (26.29 KB, 下载次数: 0, 售价: 1 金钱)

2022-4-22 09:45 上传

点击文件名下载附件
1508489902709206.png