在網(wǎng)上看到有人用批處理命令提取文件夾名稱。其實(shí)在excel中使用VBA代碼也同樣可以提取文件夾名稱。

　　比如需要將電腦E盤“論壇工作資料”文件夾下面的所有文件夾名稱提取出來放在excel工作表的A列，可以使用下面的代碼。

　　使用方法是：新建一個(gè)excel文檔，按ALT+F11，打開VBE編輯器，單擊插入——模塊，將下面的代碼復(fù)制到右邊的代碼編輯區(qū)，然后按工具欄中的“運(yùn)行”按鈕即可。

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編輯器中寫入的提取文件夾名稱相關(guān)的一個(gè)截圖演示：

　　舉一反三，如果需要提取F盤下面文件夾名稱，路徑更改一下就OK。