在網(wǎng)上看到有人用批處理命令提取文件夾名稱。其實(shí)在excel中使用VBA代碼也同樣可以提取文件夾名稱。
比如需要將電腦E盤“論壇工作資料”文件夾下面的所有文件夾名稱提取出來放在excel工作表的A列，可以使用下面的代碼。
使用方法是：新建一個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)的一個截圖演示：
舉一反三，如果需要提取F盤下面文件夾名稱，路徑更改一下就OK。
核心關(guān)注：拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用，蘊(yùn)涵了豐富的ERP管理思想，集成了ERP軟件業(yè)務(wù)管理理念，功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理，全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域，是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請注明出處：拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標(biāo)題：excel中VBA提取文件夾名稱的方法
本文網(wǎng)址：http://www.ezxoed.cn/html/support/11139213331.html
相關(guān)文章
