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

當您想將工作表另存為文本文件時，可以使用 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 對話框中，選擇一個文件夾存放文本文件，並指定文本文件的名稱。請參見截圖：

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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