Запись массива данных из Excel в файл txt

[Maxx]

Всем Доброго дня!

Dim txtoutput_array()
txtoutput_array() = Range([A2], Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))

NewFilename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "" & имя моего будущего файла & ".txt")
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.CreateTextFile(NewFilename, True)
    ts.Write 123
    ts.Close
    Set ts = Nothing: Set fso = Nothing

Как вместо

ts.Write 123

подставить массив txtoutput_array() ?

[The_Prist]

Dim sTxt as String, li as long
    for li = lbound(txtoutput_array) to ubound(txtoutput_array)
        sTxt = sTxt & txtoutput_array(li)
    next li
    ts.Write sTxt
    ts.Close
    Set ts = Nothing: Set fso = Nothing

[SAS888]

Вместо строки

ts.Write 123

в Вашем случае можно использовать

ts.Write Join(Application.Transpose(Application.Index(txtoutput_array, 0, 1)), " ")

[Maxx]

The_Prist,
на строке sTxt = sTxt & txtoutput_array(li) вылетает ошибка "Скрипт аут оф рейндж"

SAS888, все работает, только пишет непрерывной строкой.
А можно ли массив записать в txt построчно, как в Excel?

[doober]

ts.Write Join(Application.Transpose(Applicat ion.Index(txtoutput_array, 0, 1)), vbCrLf)

[Maxx]

Всем огромнейшее СПАСИБО!!!
Все отлично работает! Закончил большой проект