数据结构
网络
关系数据库管理系统 (RDBMS)
操作系统
Java
MS Excel
iOS
HTML
CSS
Android
Python
C语言编程
C++
C#
MongoDB
MySQL
Javascript
PHP
物理学
化学
生物学
数学
英语
经济学
心理学
社会学
服装学
法学如何在Excel中将多个列导出到单个文本文件
Excel是由微软开发的一个强大的电子表格程序。它广泛用于组织、分析和处理各个行业和职业中的数据。要将Excel中的多个列导出到单个文本文件，可以使用VBA（Visual Basic for Applications）宏。
以下是如何操作的示例
步骤1
按Alt + F11键打开Excel中的Visual Basic编辑器。
点击“插入”，然后选择“模块”插入一个新的模块。
在模块窗口中，粘贴以下代码
Sub ExportColumnsToTextFiles()
Dim ws As Worksheet
Dim col As Range
Dim cell As Range
Dim outputPath As String
' Set the output path where the text files will be saved
outputPath = "E:\Assignments\3rd Assignments\How to export multiple columns
into individual text files in Excel\Output"
' Set the worksheet containing the columns you want to export
Set ws = ThisWorkbook.Worksheets("Sheet1")
' Set the range of columns you want to export (change the range as needed)
Set col = ws.Range("A:B")
' Loop through each column
For Each cell In col.Columns
' Get the last row in the column with data
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, cell.Column).End(xlUp).Row
' Check if the column has data
If lastRow > 1 Then
' Create a new text file
Open outputPath & cell.Column & ".txt" For Output As #1
' Loop through each cell in the column up to the last row and write
its value to the text file
For Each c In ws.Range(ws.Cells(1, cell.Column), ws.Cells(lastRow,
cell.Column))
Print #1, c.Value
Next c
' Close the text file
Close #1
End If
Next cell
MsgBox "Columns exported to individual text files."
End Sub
步骤2
修改`outputPath`变量以指定要保存文本文件的文件夹。确保包含尾部反斜杠（）。
修改`Set ws = ThisWorkbook.Worksheets("Sheet1")`行以指定包含要导出的列的工作表。将“Sheet1”替换为您的工作表名称。
修改`Set col = ws.Range("A:B")`行以指定要导出的列的范围。在此示例中，选择了A列到B列。根据需要调整范围。
关闭Visual Basic编辑器。
步骤3
按Alt + F8键运行宏，选择“ExportColumnsToTextFiles”，然后点击“运行”。
宏将把每一列导出到一个以列号命名的单个文本文件中。文本文件将保存在指定的输出文件夹中。
结论
提供的VBA代码允许您将Excel中的多个列导出到单个文本文件。通过指定输出路径、工作表和列的范围，代码循环遍历每一列，确定包含数据的最后一行，并将该列的值（直到该行）导出到单独的文本文件中。更正后的版本确保循环正确运行并避免连续循环。此解决方案能够高效地提取列数据，方便在外部应用程序中进一步分析或使用数据。
更新于：2023年7月12日
1K+ 浏览量
广告