如何将每个工作表另存为工作簿中的单独文本文件？

当您要将工作表另存为文本文件时，可以使用Excel的“另存为”功能将工作表另存为文本文件。 但是，如果要将工作簿的每一页另存为单独的文本文件，则另存为的步骤一定会让您感到恼火。 在这里，我为您介绍了一些有趣的技巧，可以快速解决Excel中的这项无聊工作。

使用VBA将工作表另存为文本文件

使用Kutools for Excel将工作簿的每个工作表另存为单独的文本文件

使用Kutools for Excel将选择的表格导出为文本文件

---

使用VBA将工作表另存为文本文件

如果您不喜欢使用“另存为”功能将工作表另存为文本文件，则可以使用VBA代码。

1.激活要另存为文本文件的工作表。

2。 按 Alt + F11键 显示键 Microsoft Visual Basic应用程序 窗口。

3。 点击 插页 > 模块 从窗口中，然后将下面的VBA代码粘贴到模块。

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“ 拆分工作簿 处理这项工作，这会给您带来意想不到的惊喜。

后 免费安装 Kutools for Excel，请执行以下操作：

1.启用要保存其工作表为独立文本文件的工作簿，然后单击“确定”。 Kutools 加 > 工作簿 > 拆分工作簿。 看截图：

2。 在里面 拆分工作簿 对话框中，选择要拆分的工作表并另存为文本文件，默认情况下，所有工作表均已选中，然后选中 指定保存格式，然后选择 Unicode文本（* .txt） 从下面的下拉列表中。 看截图：

3。 点击 分裂，然后选择一个文件夹将文本文件从 浏览文件夹 对话。 看截图：

4。 点击 OK。 现在，工作簿的每个工作表都作为单独的文本文件保存在所选文件夹中。

拆分工作簿 of Kutools for Excel，您可以拆分工作簿并将其另存为单独的xls文件，xlsx文件，PDF文件或CSV文件， 单击此处以了解有关此实用程序的更多信息。

点击这里免费下载Kutools for Excel

---

使用Kutools for Excel将选择的表格导出为文本文件

Kutools for Excel，您还可以使用表格的选定内容将其导出为文本文件 将范围导出到文件.

后 免费安装 Kutools for Excel，请执行以下操作：

1.选择要另存为文本文件的一个或多个范围，然后单击 Kutools 加 > 进出口 > 将范围导出到文件。 看截图：

2.然后在弹出的对话框中，检查 Unicode文本 选项下 文件格式 部分，然后转到 文本选项 部分以根据需要检查选项，然后选择保存位置。

3。 点击 Ok。 现在在弹出窗口中命名导出的文本文件 将范围导出到文件 对话框，然后单击 OK 按钮。

到目前为止，所选内容已导出为单独的文本文件。

有超过 120 工具在 Kutools for Excel，进行安装并进行60天试用，那么您可能会发现许多梦想中的有用功能。