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

网友投稿 616 2024-01-15

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

当您要将工作表另存为文本文件时，可以使用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

Copy

4。点击运行按钮执行代码，然后在 Kutools for Excel 在对话框中，选择一个文件夹以放置文本文件，然后为该文本文件指定一个名称。看截图：

5。点击优惠。现在，活动工作表将另存为文本文件。

提示： 使用VBA，一次只能将一张纸保存为文本文件。

将工作簿的每张纸另存为单独的文本文件 Kutools for Excel

如果您有一个大型工作簿，需要保存数百张纸才能保存到单独的文本文件中，则VBA方法也会浪费时间。在这种情况下，您可以尝试使用 Kutools for Excel“ 拆分工作簿 处理这项工作，这会给您带来意想不到的惊喜。

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。

免费下载免费全功能 30 天

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

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

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

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

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

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