如何將工作簿中的每個工作表另存為單獨的文本文件？

Author Sun Last modified 2025-08-23

當您想將工作表另存為文本文件時，可以使用 Excel 的「另存為」功能將工作表保存為文本文件。但是，如果您想將工作簿中的每個工作表都另存為單獨的文本文件，「另存為」的操作步驟可能會讓您感到煩躁。在這裡，我將介紹一些有趣的技巧，幫助您快速解決這個枯燥的工作。

使用 VBA 將當前工作表另存為文本文件

使用 Kutools for Excel 將工作簿中的每個工作表另存為單獨的文本文件

使用 Kutools for Excel 將選定的工作表區域導出為文本文件

使用 VBA 將當前工作表另存為文本文件

如果您不喜歡使用「另存為」功能將工作表保存為文本文件，您可以使用 VBA 代碼來完成。

1. 啟用要另存為文本文件的工作表。

2. 按 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

3. 在窗口中點擊插入 > 模組，然後將以下 VBA 代碼粘貼到模組中。

Sub SaveSheetToTxt()
'Updateby20150910
    Dim xRet As Long
    Dim xFileName As Variant
    On Error GoTo ErrHandler:
    xFileName = Application.GetSaveAsFilename(ActiveSheet.Name, "TXT File (*.txt), *.txt", , "Kutools for Excel")
    If xFileName = False Then Exit Sub
    If Dir(xFileName) <> "" Then
        xRet = MsgBox("File '" & xFileName & "' exists.  Overwrite?", vbYesNo + vbExclamation, "Kutools for Excel")
        If xRet <> vbYes Then
            Exit Sub
        Else
            Kill xFileName
        End If
    End If
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs xFileName, xlUnicodeText
    If ActiveWorkbook.Name <> ThisWorkbook.Name Then
        ActiveWorkbook.Close False
    End If
My_Exit:
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
End Sub

4. 點擊執行按鈕執行代碼，然後在 Kutools for Excel 對話框中，選擇一個文件夾存放文本文件，並指定文本文件的名稱。請參見截圖：

A screenshot of the Kutools for Excel Save As Text File dialog box

5. 點擊保存。現在，活動工作表已保存為文本文件。

提示：使用 VBA，每次只能將一個工作表保存為文本文件。

使用 Kutools for Excel 將工作簿中的每個工作表另存為單獨的文本文件

如果您有一個包含數百個工作表的大工作簿需要保存為單獨的文本文件，VBA 方法也會非常耗時。在這種情況下，您可以嘗試使用 Kutools for Excel 的 分割工作簿 功能來處理此任務，這會給您帶來意想不到的驚喜。

Kutools for Excel 提供超過 300 種進階功能，簡化複雜任務，提升創造力與效率。 結合 AI 能力，Kutools 能夠精準自動化任務，讓數據管理變得輕而易舉。Kutools for Excel 的詳細資訊...免費試用...

1. 啟動您想要將其工作表保存為獨立文本文件的工作簿，然後點擊 Kutools Plus > 工作簿 > 分割工作簿。請參見截圖：

A screenshot of the Split Workbook feature in Kutools Plus tab in Excel

2. 在 分割工作簿 對話框中，選擇您要分割並保存為文本文件的工作表，默認情況下，所有工作表都已被選中，然後勾選 指定保存格式，並從下方的下拉列表中選擇 Unicode 文本(*.txt)。請參見截圖：

A screenshot of the Split Workbook dialog box

3. 點擊分割，然後在 瀏覽文件夾 對話框中選擇一個文件夾存放文本文件。請參見截圖：

A screenshot of the Browse For Folder dialog

4. 點擊確定。現在，工作簿中的每個工作表都被保存為所選文件夾中的單獨文本文件。

使用 Kutools for Excel 的 分割工作簿 功能，您可以將工作簿分割並保存為單獨的 xls 文件、xlsx 文件、PDF 文件或 CSV 文件，點擊這裡了解更多關於此工具的信息。

Kutools for Excel - 超過 300 種必備工具，讓 Excel 功能更強大。永久免費享受 AI 功能！立即獲取

使用 Kutools for Excel 將選定的工作表區域導出為文本文件

使用 Kutools for Excel，您還可以通過其 導出區域至文件 功能將工作表的選定區域導出為文本文件。

Kutools for Excel - 包含超過 300 種 Excel 必備工具。永久免費享受 AI 功能！立即下載！

1. 選擇要保存為文本文件的區域或區域，然後點擊 Kutools Plus > 導入/導出 > 導出區域至文件。請參見截圖：

A screenshot of the Export Range to File option in Kutools Plus tab in Excel

2. 然後在彈出的對話框中，勾選 文件類型 部分下的 Unicode 文本 選項，然後進入 文本設置 部分選擇您需要的選項，並選擇保存位置。

A screenshot of the Export Range to File dialog box

3. 點擊確定。現在，在彈出的 導出區域至文件 對話框中命名導出的文本文件，然後點擊確定按鈕。

A screenshot of the Export Range to File dialog box for naming the exported file

至此，選定的區域已經被導出為單獨的文本文件。

Kutools for Excel - 超過 300 種必備工具，讓 Excel 功能更強大。永久免費享受 AI 功能！立即獲取

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多