如何將多個純文字檔匯入至各自獨立的工作表？

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

假設您的電腦資料夾中有多個純文字檔，而您希望將它們全部匯入同一個 Excel 活頁簿，並讓每個純文字檔各自佔用一個獨立的工作表。若逐一複製貼上，不僅費時又沒效率；接下來，我將為您介紹幾種實用技巧，輕鬆解決這個問題。

使用 VBA 程式碼將多個純文本匯入至獨立工作表

使用 Kutools for Excel 將活頁簿分割為多個獨立的文字檔／PDF／CSV／XLSX 檔案

使用 VBA 程式碼將多個純文本匯入至獨立工作表

以下 VBA 程式碼可協助您一次將每個純文本匯入到新工作簿中的獨立工作表，請依下列步驟操作：

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

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

VBA 程式碼：將多個純文本匯入至獨立工作表：

Sub CombineTextFiles()
'updateby Extendoffice
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

3. 貼上上述程式碼後，按下 F5 鍵執行此程式碼，在彈出的視窗中指定包含純文本的資料夾，前往該資料夾選取您要匯入工作表的純文本，請參閱截圖：

選取多個文字檔以匯入 Excel 工作表的螢幕截圖

4. 接著點擊開啟按鈕，所有選取的純文字檔案將匯入至一個新工作簿，且每個檔案各自位於獨立的工作表中。

5. 最後，您可以根據需求儲存這個新工作簿。

使用 Kutools for Excel 將活頁簿分割為多個獨立的文字檔／PDF／CSV／XLSX 檔案

有時您可能需要執行與上述任務相反的操作，也就是將一個活頁簿分割成多個獨立的純文字檔。Kutools for Excel 的分割工作簿功能可協助您快速輕鬆地完成此作業！

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

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

1. 開啟您要分割為多個純文字檔的活頁簿。

2. 點擊企業＞ 活頁簿＞ 分割工作簿，請參閱截圖：

Excel 中 Kutools 功能表內「分割活頁簿」選項的螢幕截圖

3. 在分割工作簿對話方塊中：

（1.）勾選您想要分割的工作表。

（2.）勾選指定儲存格式，即可選擇您要儲存的文件類型，例如 txt、csv、pdf、xlsx 或 xls（依需求選擇）。

（3.）接著點擊分割按鈕，在接下來的提示方塊中指定獨立輸出檔案的資料夾。

4. 接著點擊確定按鈕，您選中的工作表便會依照所需格式分割，並儲存至指定資料夾。

使用 Kutools 從 Excel 活頁簿儲存的分離檔案螢幕截圖

Kutools for Excel－內含超過 300 項 Excel 必備工具，讓您的 Excel 作業更快速、更簡單、更高效！立即下載！

最佳 Office 生產力工具

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