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

Узнай цену своей работы

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

Добрый день, люди добрые) Подскажите как сделать правильную запись в txt. Вот есть такой вариант для таблицы 10 на 3. Идем по строкам и записываем 3 столбца с табуляцией.
Внимание вопрос: как сделать запись, если количество столбцов передается переменной? (т.е. я например заранее не знаю, сколько столбцов или их слишком много, чтобы в строке Print перечислять все и менять это постоянно) Заранее благодарен.

Решение задачи: «Запись таблицы в txt макросом»

textual
Листинг программы
Sub saveInTxt()
    Open ThisWorkbook.Path & "\ResultExcel.txt" For Output As #1
    StartRow = 1
    FinalRow = 10
    StartColumn = 1
    FinalColumn = 3
    For i = StartRow To FinalRow
    For j = StartRow To FinalRow
        Print #1, Cells(i, j).Value;
        Print #1,
        Next j
        Next i
    Close #1
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.769 из 5
Похожие ответы