如何在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+ 浏览量

启动您的职业生涯

完成课程获得认证

开始
广告