Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Сохранение текста столбца в текстовый файл, В подпапке с книгой
 
Доброго времени суток!
Хочу попытаться решить такую задачу...
Подготовил со всех листов макросом данные на лист в 1 столбец.
Теперь хочу данные из этого столбца (от ячейки А1 до последней заполненной ячейки) сохранить в текстовый файл (отчет.txt), который расположен в подпапке (сводные) с книгой. Фиксированный путь до файла- увы роскошь, т.к. книгу буду запускать из сети, флешки и прочих источников.
Файл можно не дописывать, а стереть все его содержимое и записать новые данные.
Заранее спасибо всем откликнувшимся!
 
Добрый вечер
Код
Sub ww()
Dim i As Long, s As String
i = Cells(1, 1).End(xlDown).Row     'последняя строка
ReDim arr(1 To i) As String
For i = 1 To UBound(arr)
    arr(i) = Cells(i, 1)
Next i
s = Join(arr, vbCrLf)
Open ThisWorkbook.Path & "\сводные\отчет.txt" For Output As #1      'сохранение
Print #1, s
Close #1
End Sub
 
Александр, добрый вечер!
Спасибо Вам большое за помощь!
Вы очень сильно помогли мне ускорить частые повторяющиеся операции!
Код работает отлично!
Изменено: Владислав - 5 Май 2015 13:30:29
Страницы: 1
Читают тему (гостей: 1)