Запись таблицы в txt макросом - MS Excel - VBA
Формулировка задачи:
Добрый день, люди добрые)
Подскажите как сделать правильную запись в txt.
Вот есть такой вариант для таблицы 10 на 3. Идем по строкам и записываем 3 столбца с табуляцией.
Внимание вопрос: как сделать запись, если количество столбцов передается переменной?
(т.е. я например заранее не знаю, сколько столбцов или их слишком много, чтобы в строке Print перечислять все и менять это постоянно)
Заранее благодарен.
Решение задачи: «Запись таблицы в txt макросом - MS Excel»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д