在excel中使用VBA編寫代碼，可以輕松的提取某個(gè)文件夾下面的所有文件名。
比如筆者在F盤下面建立了一個(gè)文件夾，文件夾的名稱是：IT部落窩，現(xiàn)在想將“IT部落窩”這個(gè)文件夾下面的所有文件名提取出來放在當(dāng)前工作表的C列。
具體的vba提取文件名的操作如下：
1.按下ALT+F11，打開VBE編輯器。
2.執(zhí)行“插入——模塊”，插入模塊1。
3.在右邊的代碼編輯窗口，復(fù)制下面的代碼，然后單擊“綠色箭頭”或者快捷鍵F5鍵，運(yùn)行代碼。
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.關(guān)閉VBE窗口，回到工作表中，可以在C列看到F盤“IT部落窩”文件夾下面所有的文件名全部羅列在C列了。
關(guān)于上面的vba提取文件名的代碼，請?jiān)趯?shí)際使用時(shí)，根據(jù)需要修改提取文件名的路徑（F:\IT部落窩\*.*），以及存放在C列的位置（Cells(i, 3)）。
核心關(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)題：vba提取文件名的操作流程和代碼介紹
本文網(wǎng)址：http://www.ezxoed.cn/html/support/1113925423.html
相關(guān)文章
