将每个Excel列数据保存到单独的文本文件

Question

是否有一种简单的方法可以将N列中填充的Excel数据保存到N个相应的文本文件中？

假设N = 3，则数据分别保存为excelA，B和C列中的columnA.txt，columnB.txt和columnC.txt。

Answer 1

尝试使用下面的代码。我假设列数= 3；您可以通过修改“对于lngColumn = 1到3”行来更改它。所有3个txt文件都将保存到C：驱动器（也可以在“ strFile”行中更改）。

Sub SaveText()
    Dim lngColumn           As Long
    Dim lngRow              As Long
    Dim strFile             As String

    With Sheet1
        For lngColumn = 1 To 3
            strFile = "F:\Column" & lngColumn & ".txt"
            For lngRow = 1 To .Cells(1, lngColumn).End(xlDown).Row
                Open strFile For Append As #1
                Write #1, .Cells(lngRow, lngColumn).Value
                Close #1
            Next lngRow
        Next lngColumn
    End With
End Sub

希望有帮助。