輕鬆取得資料夾內所有檔案名稱的VBA程式 – 提升你的工作效率！

在做資料整理的時候，有時後會需要取得資料夾內所有檔案的檔案名稱，此時有個方便的工具可以實現這個功能，就是excel的巨集功能也就是VBA，以下介紹如何達成:

步驟1.開啟excel巨集，並點選錄製巨集

步驟2.為巨集命名，並檢視巨集

步驟3.選擇巨集並編輯

步驟4.開始撰寫VBA程式碼

程式碼:

Dim FSO As Object

Dim Folder As Object

Dim File As Object

Dim i As Integer

Set FSO = CreateObject("Scripting.FileSystemObject") '創建 Scripting.FileSystemObject物件操作檔案系統

Set Folder = FSO.GetFolder(Range("A2").Value) '使用GetFolder方法來獲取指定路徑下的資料夾物件，本案設定路徑儲存於A2位置，可依使用者自行修改

'用迴圈讀取檔案名稱並從A6開始做顯示，位置可以依使用者自行修正

For Each File In Folder.Files

    Cells(i + 6, 1) = Split(File.Name, ".pdf") '本案因要整理pdf檔案故將.pdf的副檔名做刪除

    i = i + 1

Next File

步驟5.指定巨集於所繪之圖案中

步驟6.完成並裝飾一下介面

步驟8.使用結果