如何将工作簿中的每个工作表分别另存为独立的纯文本文件？
当您想将工作表另存为纯文本时，可以使用 Excel 的“另存为”功能轻松实现。但若需将工作簿中的每个工作表分别保存为独立的纯文本文件，反复执行“另存为”操作可能会显得繁琐又耗时。别担心！接下来，我将为您介绍一些实用技巧，助您在 Excel 中高效、快速地完成这项枯燥的任务。
使用 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 Sub4. 单击运行按钮以执行代码，随后在 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——通过 300 多款必备工具全面增强 Excel 功能，助您工作更快速、更轻松，并借助 AI 功能实现更智能的数据处理与高效办公！立即获取
使用 Kutools for Excel 将选定的工作表导出为纯文本
Kutools for Excel 的导出区域至文件工具可将选定区域轻松导出为纯文本。
Kutools for Excel——包含 300 多个 Excel 必备工具，并永久免费畅享 AI 功能！立即下载！
1. 选择您要另存为纯文本的一个或多个区域，然后点击 KUTOOLS PLUS > 导入/导出 > 导出区域至文件。参见截图：
2. 然后在弹出的对话框中，先勾选文件类型部分中的 Unicode 文本选项，再转到文本设置部分，根据需要勾选相应选项，最后选择一种保存区域。
3. 单击确定。在弹出的导出区域至文件对话框中，为导出的纯文本文件命名，然后单击确定按钮。
至此，所选内容已成功导出为单独的纯文本。
Kutools for Excel——通过 300 多款必备工具全面增强 Excel 功能，助您工作更快速、更轻松，并借助 AI 功能实现更智能的数据处理与高效办公！立即获取
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……
Office Tab 为 Office 带来标签式界面，让您的工作更轻松
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
- 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
- 将您的工作效率提升 50%，每天减少数百次鼠标点击！
所有 Kutools 插件，一个安装程序
Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱