在網上看到有人用批處理命令提取文件夾名稱。其實在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。
核心關注：拓步ERP系統平臺是覆蓋了眾多的業務領域、行業應用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業務管理理念，功能涉及供應鏈、成本、制造、CRM、HR等眾多業務領域的管理，全面涵蓋了企業關注ERP管理系統的核心領域，是眾多中小企業信息化建設首選的ERP管理軟件信賴品牌。
轉載請注明出處：拓步ERP資訊網http://m.vmgcyvh.cn/
本文標題：excel中VBA提取文件夾名稱的方法
相關文章
