Вывод в текстовый файл столбца Ехсеl

Private Sub Test()
    With ThisWorkbook.Worksheets(1)
         'Укажите нужную рабочую книгу и рабочий лист
         Dim iSource As Range, iCell As Range
         Set iSource = .Range(.[A1], .[A65536].End(xlUp))
         'Укажите нужный столбец, при этом можно использовать и такой вариант
         'Set iSource = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
         'Set iSource = .Range(.Cells(1, "A"), .Cells(.Rows.Count, "A").End(xlUp))
         iFileName$ = "C:\Test.txt"
         'Укажите текстовый файл
         Open iFileName$ For Output As #1
              For Each iCell In iSource
                  Print #1, iCell
              Next
         Close #1
    End With
End Sub

Private Sub Test2()
    With ThisWorkbook.Worksheets(1)
         Open "C:\Test.txt" For Output As #1
              Dim iCell As Range
              For Each iCell In .Range(.[A1], .[A65536].End(xlUp))
                  Print #1, iCell
              Next
         Close #1
    End With
End Sub

Private Sub Test3()
    With ThisWorkbook.Worksheets(1)
         Dim iSource As Range, iCell As Range
         Set iSource = .Range(.Cells(1, 1), .Cells(65536, 1).End(xlUp))
    End With
    With CreateObject("Scripting.FileSystemObject") _
         .OpenTextFile("C:\Test.txt", 2, 1)
         For Each iCell In iSource
             .WriteLine iCell 'iCell.Formula
         Next
         .Close
    End With
End Sub