如何在Excel中将多列导出到单个文本文件？

网友投稿 181 2023-12-26

如何在Excel中将多列导出到单个文本文件？

通常，您可以使用“另存为”功能将工作表快速轻松地导出到Excel中的txt文件。但是，您是否曾经尝试过将每个列数据从Excel工作表分别保存到文本文件中？本文，我将讨论如何尽快解决此工作。

使用VBA代码将多列导出到单个文本文件

将多个工作表导出到单独的文本/pdf/csv 文件中 Kutools for Excel

使用VBA代码将多列导出到单个文本文件

以下VBA代码可以帮助您在Excel中将每个列数据分别保存到文本文件中，请执行以下操作：

1。按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。点击插页 > 模块，然后将以下宏粘贴到模块窗口。

VBA代码：将多列导出到单个文本文件中：

Sub SaveValueToText() Dim xFRNum, xFCNum As Long Dim xStrDir As String Dim xMaxR, xMaxC As Integer Dim xCells As Range Dim xIntX As Long Dim xObjFD As FileDialog Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker) With xObjFD .AllowMultiSelect = False .Show If .SelectedItems.Count > 0 Then xStrDir = .SelectedItems.Item(1) & Application.PathSeparator Else Exit Sub End If End With Set xCells = ActiveSheet.Cells xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column For xFCNum = 1 To xMaxC Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1 For xFRNum = 1 To xMaxR Print #1, Cells(xFRNum, xFCNum).Value Next xFRNum Close #1 Next End Sub

Copy

3。粘贴代码后，请按 F5 运行此代码的关键，以及 浏览器 弹出对话框，然后选择一个文件夹来放置导出的文本文件，请参见屏幕截图：

4。然后点击 OK 按钮，活动工作表中的每个列数据已分别导出到文本文件中，请参见屏幕截图：

将多个工作表导出到单独的文本/pdf/csv 文件中 Kutools for Excel

如果您需要将多个工作表导出为单个文本，pdf或csv文件，则 Kutools for Excel“ 拆分工作簿 功能可以帮您一个忙。

备注:申请这个 拆分工作簿，首先，您应该下载 Kutools for Excel，然后快速轻松地应用该功能。

安装后 Kutools for Excel, 请执行以下步骤：

1。点击 Kutools 加 > 工作簿 > 拆分工作簿，请参见屏幕截图：

2。在 拆分工作簿 对话框中，选中要另存为txt，pdf，csv文件的工作表，然后选中 保存类型 选项，然后选择您要另存为的文件类型，然后单击分裂按钮，在显示的 浏览文件夹 对话框中，选择一个文件夹来放置导出的文件，请参见屏幕截图：