在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提取文件名的操作流程和代碼介紹
本文網址:http://www.guhuozai8.cn/html/support/1113925423.html