如何將多個檔案名稱匯入 Excel 儲存格？

作者Xiaoyang修改日期2024-09-10

假設您有一個包含數百個檔案的資料夾，想將這些檔案名稱快速匯入工作表的儲存格中。若逐一複製貼上，勢必耗費大量時間。本文將為您介紹幾種高效技巧，輕鬆將整個資料夾中的檔案名稱一鍵匯入工作表！

使用 VBA 程式碼將多個檔案名稱匯入工作表儲存格

使用 Kutools for Excel 將多個檔案名稱匯入工作表儲存格

使用 VBA 程式碼將多個檔案名稱匯入工作表儲存格

下列 VBA 程式碼可協助您將檔案名稱、副檔名及資料夾名稱匯入工作表儲存格，請依照以下步驟操作：

1. 建立一個新工作表，用來匯入檔案名稱。

2. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

3. 點選插入＞模組，並將下列程式碼貼到模組視窗中。

VBA 程式碼：將多個檔案名稱匯入工作表儲存格

Sub GetFileList()
'updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim i As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    ActiveSheet.Cells(1, 1) = "Folder name"
    ActiveSheet.Cells(1, 2) = "File name"
    ActiveSheet.Cells(1, 3) = "File extension"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xPath
        ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
        ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
    Next
End Sub

4. 接著按下 F5 鍵執行此程式碼，在彈出的瀏覽視窗中選擇您要匯入檔案名稱的資料夾，如下圖所示：

用於選取資料夾以匯入檔案名稱的 VBA 程式碼

5. 然後點選確定按鈕，即可取得下列結果：

所有檔案名稱均已列出

注意：若指定資料夾內包含子資料夾，其中的檔案名稱將不會被匯入。

使用 Kutools for Excel 將多個檔案名稱匯入工作表儲存格

若您需要同時匯入資料夾及其子資料夾中的檔案名稱，請放心！透過 Kutools for Excel 的檔名目錄功能，即可輕鬆將指定資料夾（含子資料夾）中的所有檔案名稱一次匯入，省時又高效！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

安裝 Kutools for Excel 後，請依下列步驟操作：

1. 點選 KUTOOLS PLUS> 匯入匯出> 檔名目錄，如下圖所示：

點擊 Kutools 的「檔案名稱清單」功能

2. 在檔名目錄對話方塊中，進行下列操作：

（1.）點選瀏覽按鈕按鈕以選擇要匯入檔案的資料夾；

（2.）勾選包括子目錄內的文件以匯入子資料夾的檔案名稱；

（3.）在文件類型區段中指定您要匯入的文件類型；

（4.）從文件大小的單位區段中選擇一種您要顯示的文件大小的單位；

（5.）若您希望為檔案名稱和資料夾建立超連結，請勾選建立超連結選項。

在對話方塊中設定選項

3. 完成設定後，請點選確定按鈕，此時資料夾與子資料夾中的檔案名稱皆已匯入至新工作表，如下圖所示：

資料夾及其子資料夾中的檔案名稱已匯入至新的工作表

提示：若您只想從特定資料夾匯入某一種類型的檔案，可在指定選項的檔名目錄對話方塊中勾選該選項並輸入副檔名，如此便只會匯入符合該副檔名的檔案（包含資料夾及其子資料夾中的檔案）。

立即下載並免費試用 Kutools for Excel！

相關文章：

如何將資料夾及其子資料夾中的所有檔案列於工作表中？

如何在 Excel 中列出資料夾內的所有檔案名稱，並為每個檔案建立超連結？

最佳 Office 生產力工具

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