excel单子表格能很好的进行数据分析。作为Office的的组件，excel 自带vba代码编写。可以处理很多非表格处理的问题。

有时候我们需要提取某文件夹下的所有文件夹名称，然后对文件夹改名或者其他处理

下面示例将“F:\excel教程”文件夹下面的所有文件夹名称提取出来放在excel工作表的A列

Sub 提取文件夹名称()     Dim fs As Object     n = 1     Set fs = CreateObject("Scripting.FileSystemObject")     Set f = fs.getfolder("F:\excel教程")     For Each fd In f.subfolders         Cells(n, 1) = fd.Name         n = n + 1     Next     Set f = Nothing     Set fs = Nothing End Sub

打开VBE编辑器，复制源码到模块，直接运行源码效果图