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编辑器，复制源码到模块，直接运行源码效果图
