Сохранение текста столбца в текстовый файл

Сохранение текста столбца в текстовый файл, В подпапке с книгой

Пользователь

Сообщений: 69 Регистрация: 08.02.2015

23.03.2015 22:09:03

Доброго времени суток!
Хочу попытаться решить такую задачу...
Подготовил со всех листов макросом данные на лист в 1 столбец.
Теперь хочу данные из этого столбца (от ячейки А1 до последней заполненной ячейки) сохранить в текстовый файл (отчет.txt), который расположен в подпапке (сводные) с книгой. Фиксированный путь до файла- увы роскошь, т.к. книгу буду запускать из сети, флешки и прочих источников.
Файл можно не дописывать, а стереть все его содержимое и записать новые данные.
Заранее спасибо всем откликнувшимся!

Alexander88

Пользователь

Сообщений: 400 Регистрация: 02.09.2014

23.03.2015 22:21:23

Добрый вечер

Код

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

Владислав Пользователь Сообщений: 69 Регистрация: 08.02.2015	#3 23.03.2015 22:28:30 Александр, добрый вечер! Спасибо Вам большое за помощь! Вы очень сильно помогли мне ускорить частые повторяющиеся операции! Код работает отлично! Изменено: Владислав - 05.05.2015 13:30:29