Сохранение данных каждого столбца Excel в отдельных текстовых файлах

Question

Есть ли простой способ сохранить данные Excel, заполненные N числом столбцов, до N числа соответствующих текстовых файлов?

Скажем, если N = 3, тогда данные сохраняются как columnA.txt, columnB.txt,columnC.txt, соответствующее данным в столбцах Excel A, B и C.

Answer 1

попробуйте использовать код ниже.Я предположил, что количество столбцов = 3;Вы можете изменить его, изменив строку «For lngColumn = 1 To 3».Все 3 текстовых файла сохраняются на вашем диске 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

Надеюсь, это поможет.