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”)
