如何在 Excel 中快速列出資料夾內的所有圖片或檔案名稱？

處理圖片或檔案集合時，常需在 Excel 中建立目錄或參考清單，以便進行庫存管理、製作報告，甚至快速查詢。若手動將資料夾內所有圖片或檔案名稱逐一輸入 Excel 工作表，不僅耗時費力，還容易出錯——尤其當資料夾包含大量檔案或內容經常更新時，問題更為明顯。所幸 Excel 提供多種實用方法（包括內建功能、增益集或指令碼），能自動完成這項任務，大幅提升準確性與工作效率。

本教學詳細介紹一組實用技巧，能快速將指定資料夾內的所有圖片或檔案名稱列於 Excel 工作表中，如右側截圖所示。無論您處理的是圖片、文件，還是混合類型的檔案，這些方法都能有效簡化工作流程，為您節省大量寶貴時間。 快速導覽 >使用 VBA 在 Excel 中列出資料夾內的圖片名稱 >使用檔名目錄功能在 Excel 中列出資料夾內的圖片名稱或特定文件類型 >透過複製貼上從 Windows Explorer 列出所有檔案名稱 >提示：僅顯示檔案名稱（不含完整路徑）

預設情況下，Excel 並未內建將電腦資料夾中的檔案或圖片名稱自動匯入工作表的功能。不過，您可以透過簡單的 VBA 巨集，直接將資料夾內所有圖片（或其他指定類型的檔案）列於 Excel 儲存格中。若您偶爾需要執行此任務、追求高度客製化，或偏好不使用額外增益集，這項解決方案尤其理想。此外，只需調整程式碼中的檔案篩選條件，即可輕鬆套用至圖片以外的各種副檔名。

VBA 方法功能強大，但務必謹慎執行：任何錯誤的程式碼編輯都可能引發錯誤。執行指令碼前，請務必確認檔案路徑與副檔名篩選條件是否正確。此外請留意：若資料夾內容在清單產生後有所變更，除非重新執行程式碼，否則 Excel 中的清單不會自動更新。操作步驟如下：

1. 在 Excel 中，按下 Alt+F11 以開啟 Microsoft Visual Basic for Applications 視窗。

2. 在快顯視窗中，點擊插入> 模組 以新增模組——您將在此貼上 VBA 程式碼。

3. 將下列程式碼複製並貼上至模組視窗中：

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4. 按下 F5 或點擊 VBA 視窗中的「執行」按鈕以執行指令碼。執行後，系統將彈出對話方塊，提示您選擇要放置圖片名稱列表的儲存格。

5. 確認儲存格後，系統將提示您瀏覽包含欲列出圖片或檔案的資料夾。請前往正確目錄並選取該資料夾。

6. 點擊確定後，所選資料夾中符合程式碼所列副檔名（.jpg、。png、。img、。ioc、。bmp）的所有圖片檔案名稱（含完整路徑），將立即顯示於您指定的 Excel 儲存格及其下方。

注意：您可以修改 VBA 程式碼，針對不同文件類型調整條件中的副檔名：If InStr(1, xFileName, ".jpg") + ... > 0 Then。例如，若僅列出 Word 文件，請改為 If InStr(1, xFileName, ".docx") > 0 Then。務必在副檔名前加上點號（例如使用「。pdf」而非「pdf」）。若需列出多種文件類型，請如範例所示，以加號組合條件。

重要提醒：此 VBA 解決方案僅列出所選資料夾頂層的檔案；若未調整程式碼以支援遞迴掃描，子資料夾及隱藏資料夾中的檔案將不會被納入。

雖然 VBA 解決方案具備高度客製化與彈性，但每次刷新或更新文件列表時都需重新執行巨集。若您需要重複或自動化的工作流程，尤其是對程式碼較不熟悉的使用者，以下所述的增益集方法可能更有效率。

您是否渴望加薪，同時擁有更多時間陪伴家人？ Office Tab 現正讓您在 Microsoft Office 中的工作效率提升高達 50%。 令人難以置信的是，同時處理兩份或多份文件，竟然比只處理一份更輕鬆、更快速。 與知名瀏覽器相比，Office Tab 的分頁功能更強大、效率更高。 每天為您省下數百次滑鼠點擊與鍵盤輸入，立即告別滑鼠手！ 若您經常需要同時處理多份文件，Office Tab 將為您大幅節省寶貴時間。 30 天免費試用，無需提供信用卡資訊。 了解更多立即免費下載

若您經常需要從不同資料夾列出所有檔案或圖片（還可選擇文件類型、包含子資料夾，甚至新增直接超連結），Kutools for Excel 特別提供專為此用途打造的檔名目錄工具，助您高效完成以下任務：

• 將任何資料夾中的所有檔案（包含所有副檔名）列於新工作表中，方便追蹤或編目。
• 僅篩選並列出您指定的文件類型，例如圖片、PDF 或任何自訂副檔名。
• 包含子目錄中的檔案，並顯示隱藏的文件和 Folder，提供真正全面的報告。

免費試用立即告別滑鼠手與頸椎病

Kutools for Excel 擁有 300 項擴充工具，輕鬆解決 80% 的 Excel 任務，僅需數秒，讓您告別成千上萬次的滑鼠點擊！

輕鬆應對 1500 種工作場景，省下搜尋解決方案的寶貴時間，讓您擁有更多時光享受生活。 每天提升 80% 生產力，為超過 11 萬名高效能人士打造更高效的工作體驗，當然也包括您在內。 告別繁複公式與 VBA 的折磨，讓大腦徹底放鬆，享受愉悅高效的工作時光。 30 天全功能免費試用，30 天內可享無條件退款。 更好的身體，成就更美好的人生。

閱讀更多立即下載

安裝 Kutools for Excel（快速簡便）後，請依照下列步驟從資料夾列出檔案或圖片名稱：

1. 開啟欲顯示文件列表的 Excel 工作表，前往 KUTOOLS PLUS 頁籤，選取匯入/匯出，然後點擊檔名目錄。

2. 在檔名目錄對話方塊中，請先點擊，選擇要存放檔案或圖片的資料夾。您也可勾選包括子目錄內的文件核取方塊，以納入所有子資料夾中的檔案；並勾選包括隱藏文件和文件夾，確保必要時連隱藏檔案也能一併列出。

3. 在文件類型區段中，決定要列出哪些檔案。您可從以下選項進行調整：

勾選所有檔案選項，即可自動列出所選資料夾中所有格式的檔案。

選取常用選項，可將清單限制為熱門格式－只需從下拉列表中選擇所需的文件類型（例如.jpg、.xlsx、.pdf 等）。

若您希望列出特定或多種文件類型，請使用指定方塊：輸入所需副檔名（例如 ）jpg,png,gif），並以逗號分隔。僅會列出具有這些副檔名的檔案。

4. 在文件大小的單位下拉式選單中，選擇偏好的單位（如位元組、KB、MB 等），以便更精確地追蹤檔案大小；同時勾選建立超連結，讓 Excel 中的每個檔案名稱都能直接連結至系統中的實際檔案，日後快速開啟與導覽更加便利！

5. 點擊確定，Kutools 將在新工作表中產生您指定檔案的完整清單（可選擇附加資訊，如大小、類型、建立時間等）。

提示與疑難排解：若您的資料夾包含大量檔案或子資料夾，請耐心等待數秒以完成處理。若發現部分預期檔案未被納入，請重新檢查檔案類型篩選條件與子目錄選項，並確認隱藏檔案／資料夾是否遭排除（除非您刻意如此設定）。針對持續產生新檔案的目錄，只需重新執行檔名目錄程序，即可即時刷新活頁簿中的清單！此方法特別適合需重複處理檔案或定期批量管理數位資產的使用者，輕鬆提升工作效率！

另一個與檔案管理相關的實用 Kutools 功能是創建鏈接表工具，能輕鬆記錄並連結 Excel 檔案中的所有工作表。結合這兩種工具，即可實現完整的工作活頁簿與檔案文件化管理：

Kutools for Excel：一套功能強大且操作直覺的工具組，讓您輕鬆簡化並加速 Excel 中的複雜作業！

若僅需快速且基本的功能，且不使用指令碼或增益集，您可以結合使用 Windows Explorer 與 Excel 來取得檔案名稱清單。若您不需要文件類型或進階篩選功能，此方法相當有效。

1. 在 Windows 檔案總管中開啟目標資料夾。

2. 按下 Ctrl+A 選取所有檔案，接著按住 Shift 鍵，並在任一已選取的檔案上按一下滑鼠右鍵，於快捷選單中點選複製為路徑。

3. 切換至您的 Excel 工作表，選取起始儲存格，然後按下 Ctrl+V 貼上，即可將每個選取檔案的完整路徑（含檔名）插入其中。

注意：若資料夾中的檔案有所變更，此方法不會自動更新，亦不包含子資料夾。

若您只想顯示檔名（而非完整路徑），請在 Excel 中使用公式從路徑中提取檔名。例如，若您的檔案路徑位於 A 欄，請在 B1 儲存格輸入下列公式：

=TRIM(RIGHT(SUBSTITUTE(A1,"\",REPT(" ",255)),255))

將 B1 中的公式向下複製至所有列，即可僅取得檔名。請視需要調整儲存格參照。

推薦的生產力工具

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行   ｜  產生程式碼｜  建立自訂公式  ｜  分析資料並產生圖表｜  呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值   ｜  刪除空白行   ｜  合併列或儲存格而不遺失資料   ｜  不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup  ｜  多重數值 VLookup  ｜   跨多個工作表 VLookup   ｜   模糊查找……
	高級下拉列表：快速建立下拉式清單   ｜  相依式下拉式清單   ｜  多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦   ｜  設計視圖   ｜增強編輯欄   ｜ 工作簿與工作表管理員   ｜  資源庫（自動文字）｜  日期提取   ｜  合併工作表  ｜  加密／解密儲存格   ｜ 依清單傳送電子郵件   ｜  超級篩選   ｜   特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜   50+ 圖表 類型（甘特圖，……）｜   40+ 實用公式（基於生日計算年齡，……）｜   19 插入工具（插入二維碼，從路徑插入圖片，……）｜   12 轉換工具（金額轉大寫，匯率轉換，……）｜   7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多

在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言！

運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……

Kutools for Excel 詳細資訊……免費下載……

---

Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！

• 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
• 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
• 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！

Office Tab 詳細資訊……免費下載……

---

所有 Kutools 增益集，一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！

• 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
• 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
• 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
• 30 天完整功能試用— 無需註冊，無需信用卡
• 超值之選— 比單獨購買各增益集更省費用

Kutools for Office 詳細資訊……免費下載……