文章介紹excel中使用VBA代碼來提取文件夾名稱的具體操作步驟。
在網上看到有人用批處理命令提取文件夾名稱。其實在excel中使用VBA代碼也同樣可以提取文件夾名稱。
比如需要將電腦E盤“論壇工作資料”文件夾下面的所有文件夾名稱提取出來放在excel工作表的A列，可以使用下面的代碼。
使用方法是：新建一個excel文檔，按ALT+F11，打開VBE編輯器，單擊插入——模塊，將下面的代碼復制到右邊的代碼編輯區，然后按工具欄中的“運行”按鈕即可。
Sub 提取文件夾名稱()
Dim fs As Object
n = 1
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.getfolder("E:\論壇工作資料")
For Each fd In f.subfolders
Cells(n, 1) = fd.Name
n = n + 1
Next
Set f = Nothing
Set fs = Nothing
End Sub
下面是VBE編輯器中寫入的提取文件夾名稱相關的一個截圖演示：
舉一反三，如果需要提取F盤下面文件夾名稱，路徑更改一下就OK。
