在excel中使用VBA編寫代碼，可以輕松的提取某個文件夾下面的所有文件名。
比如筆者在F盤下面建立了一個文件夾，文件夾的名稱是：IT部落窩，現在想將“IT部落窩”這個文件夾下面的所有文件名提取出來放在當前工作表的C列。
具體的vba提取文件名的操作如下：
1.按下ALT+F11，打開VBE編輯器。
2.執行“插入——模塊”，插入模塊1。
3.在右邊的代碼編輯窗口，復制下面的代碼，然后單擊“綠色箭頭”或者快捷鍵F5鍵，運行代碼。
Private Sub vba提取文件名()
Dim FileName As String
Dim i As Long
FileName = Dir("F:\IT部落窩\*.*")
i = 0
Range("C:C").ClearContents
Do While FileName > ""
i = i + 1
Cells(i, 3) = FileName
FileName = Dir
Loop
End Sub
4.關閉VBE窗口，回到工作表中，可以在C列看到F盤“IT部落窩”文件夾下面所有的文件名全部羅列在C列了。
關于上面的vba提取文件名的代碼，請在實際使用時，根據需要修改提取文件名的路徑（F:\IT部落窩\*.*），以及存放在C列的位置（Cells(i, 3)）。
核心關注：拓步ERP系統平臺是覆蓋了眾多的業務領域、行業應用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業務管理理念，功能涉及供應鏈、成本、制造、CRM、HR等眾多業務領域的管理，全面涵蓋了企業關注ERP管理系統的核心領域，是眾多中小企業信息化建設首選的ERP管理軟件信賴品牌。
轉載請注明出處：拓步ERP資訊網http://www.guhuozai8.cn/
本文標題：vba提取文件名的操作流程和代碼介紹
相關文章
