Запись таблицы в txt макросом - MS Excel - VBA

Формулировка задачи:

Добрый день, люди добрые) Подскажите как сделать правильную запись в txt. Вот есть такой вариант для таблицы 10 на 3. Идем по строкам и записываем 3 столбца с табуляцией.
Sub saveInTxt()
    Open ThisWorkbook.Path & "\ResultExcel.txt" For Output As #1
    StartRow = 1
    FinalRow = 10
    For j = StartRow To FinalRow
        Print #1, Cells(j, 1).Value; Tab; Cells(j, 2).Value; Tab; Cells(j, 3).Value;
        Print #1,
        Next j
    Close #1
End Sub
Внимание вопрос: как сделать запись, если количество столбцов передается переменной? (т.е. я например заранее не знаю, сколько столбцов или их слишком много, чтобы в строке Print перечислять все и менять это постоянно) Заранее благодарен.

Код к задаче: «Запись таблицы в txt макросом - MS Excel - VBA»

textual
Sub saveInTxt()
    Dim a()
    Dim i&
'------------    a = ActiveSheet.UsedRange.Value
    Open ThisWorkbook.Path & "\ResultExcel.txt" For Output As #1
    For i = 1 To UBound(a)
        Print #1, Join(WorksheetFunction.Index(a, i), vbTab)
    Next
    Close #1
    Beep
End Sub

6   голосов, оценка 3.500 из 5


СОХРАНИТЬ ССЫЛКУ