【Excel巨集】列出資料夾內所有檔案名稱

Excel巨集
列出資料夾內所有檔案名稱

建立巨集

點選「開發人員」-「Visual Basic」(或是按下Alt+F11快捷鍵),點選「插入」-「模組」。

輸入以下程式碼

Sub 列出資料夾內所有檔案名稱()
Name = Dir(“要列出檔案名稱的資料夾路徑\” & “*.*”)
Do While Name <> “”
Range(“A1”).Offset(i, 0) = Name
Name = Dir
i = i + 1
Loop
End Sub

「要列出檔案名稱的資料夾路徑需自行更改」,例如想列出D槽檔案名稱則為:

Name = Dir(“D:\” & “*.*”)

執行巨集

點選「開發人員」- 「巨集」(或是按下F8快捷鍵),執行巨集「列出資料夾內所有檔案名稱 」,即列出資料夾內所有檔案名稱。

列出特定副檔名之檔案名稱

若只想列出圖片檔(副檔名.jpeg)的檔案名稱
則將第二句更改成以下

Name = Dir(“要列出檔案名稱的資料夾路徑\” & “*.jpeg”)

 

 

其他文章分享

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *