如何將資料夾中的多個純文字檔匯入至同一個工作表？

作者孫修改日期2025-09-30

假設您需要整合資料以進行報告或分析，而收到的資訊是以多個純文字檔的形式提供，且全部儲存在單一文件中。若手動將每個純文字檔的內容逐一複製貼上至同一張工作表，不僅極其耗時，還容易出錯——尤其在檔案數量龐大或經常更新的情況下更是如此。幸運的是，有高效的方法能自動將這些純文字檔匯入並合併至 Excel 的單一工作表中。本文將介紹幾種實用做法，協助您精準完成任務，大幅節省手動作業時間。這些方法適用於多種實際情境，例如整合問卷調查結果、匯入日誌資料，或將來自不同來源的零散文字匯出檔合併為單一資料集。

以下提供幾種快速將資料夾中多個純文字檔匯入 Excel 的方法，每種皆附有詳細步驟、實用技巧與注意事項，助您輕鬆避開常見錯誤。

使用 VBA 將多個純文本從單一資料夾匯入至同一張工作表

使用 Kutools for Excel 將純文本匯入至作用中儲存格

使用 VBA 將多個純文本從單一資料夾匯入至同一張工作表

將特定資料夾中的所有純文字檔匯入 Excel，最有效率的方式之一就是使用 VBA 巨集。此方案特別適合需要頻繁執行這項操作，或希望在不依賴額外增益集的情況下自動化重複性工作的使用者。它能迅速處理大量檔案，並盡可能減少手動介入。然而，使用 VBA 需要啟用巨集功能，這在某些環境中可能受到限制，同時也要求使用者對 Visual Basic for Applications 編輯器具備基本的熟悉度。

開始前，建議先備份您的活頁簿，因為巨集操作難以輕易復原。請確保純文字格式一致，否則結構不一致可能導致匯入後需手動清理。

1. 開啟您要匯入純文字的活頁簿，並按下 Alt + F11，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 VBA 編輯器中，點選插入 > 模組，然後將下列 VBA 程式碼複製貼上至模組視窗：

VBA：將多個純文本從單一資料夾匯入至同一張工作表

Sub Test()
'UpdatebyExtendoffice
    Dim xWb As Workbook
    Dim xToBook As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xFiles As New Collection
    Dim I As Long
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
    xFile = Dir(xStrPath & "*.txt")
    If xFile = "" Then
        MsgBox "No files found", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Do While xFile <> ""
        xFiles.Add xFile, xFile
        xFile = Dir()
    Loop
    Set xToBook = ThisWorkbook
    If xFiles.Count > 0 Then
        For I = 1 To xFiles.Count
            Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
            xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xWb.Name
            On Error GoTo 0
            xWb.Close False
        Next
    End If
End Sub

3. 當游標位於程式碼內時，按下 F5 即可執行巨集，系統將提示您選取包含目標純文字的資料夾。詳情請參閱以下截圖：
VBA 程式碼用於選取包含您要匯入之文字檔的資料夾

4. 點選確定，巨集將自動把每個純文字檔匯入為新工作表至您目前的工作簿中。請注意：若檔案數量眾多或體積龐大，此過程可能需要一些時間。請務必檢查匯入結果：
文字檔已匯入至作用中的活頁簿

提示：若您的純文字檔包含標題列或特定分隔符號，可能需調整 VBA 程式碼以符合資料結構。若發生錯誤，請確認文件路徑與檔案類型正確無誤，且系統中未於其他位置開啟該純文字檔。若存在同名檔案，可能導致工作表命名衝突。

使用 Kutools for Excel 將純文本匯入至作用中儲存格

當您只需將單一純文字內容插入工作表的特定位置時，Kutools for Excel 透過其在游標處插入文件功能，提供直覺又高效的解決方案！此方法特別適合合併選取的資料片段，或將參考註解快速匯入指定儲存格或範圍。有別於 VBA 解決方案，Kutools 無需撰寫任何程式碼，並搭配使用者友善的介面，讓您輕鬆將純文字匯入任意目標儲存格。

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

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

1. 點選您要匯入純文字內容的儲存格，然後前往 KUTOOLS PLUS > 匯入/匯出 > 在游標處插入文件。請參閱下方截圖：
按一下 Kutools 的「在游標處插入檔案」功能

2. 此時將彈出對話方塊，請點選瀏覽以開啟檔案選擇視窗。在「文件類型」下拉式選單中，選取純文字，並找到您要插入的純文字檔案。操作畫面請參閱以下截圖：
在對話方塊中設定選項

3. 點選開啟，再點選確定，您所選的純文字內容就會插入至指定儲存格。請參閱下方截圖：
指定的文字檔已插入至游標位置

注意事項：文字內容將匯入至所選儲存格，並盡可能保留原始格式。為確保最佳效果，請確認目標儲存格有足夠空間以顯示或展開匯入的資料。若需同時匯入多個檔案，請重複使用此功能，或搭配 Kutools 的批次處理工具。

總結：對於簡單或一次性單檔匯入作業，Kutools 提供直覺易用的操作選項，讓您直接在工作表中輕鬆完成；而 VBA 則最適合需要高度自訂化，或希望不依賴增益集即可執行批次處理的使用者。

最佳 Office 生產力工具

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