Копирование выделенного диапазона

[6306617]

Подскажите макрос, который бы копировал выделенный диапазон в отдельный файл(xls, doc, txt), и при последующем использовании дополнял уже имеющийся. С учетом того, что в ячейках формулы, возвращающие текст.

[6306617]

...хотя бы в текстовый файл

[nilem]

Вот такой примерчик. Сохраняет в D:\text.txt

Sub IntoTxt()
Dim poz As Range, file As String
file = "D:\text.txt"
Open file For Append Shared As #1
For Each poz In Selection
    Print #1, poz.Value
Next
Close #1
End Sub

А еще воспользуйтесь поиском по форуму - примеров много.

[6306617]

Благодарю, возможно ли чтобы данные из столбцов в файл писались через табуляцию или разделитель?

[EducatedFool]

Здесь есть нужный вам код: http://excelvba.ru/code/Range2CSV

Только укажите нужный разделитель в строке

CSVtext$ = Range2CSV(ra, ";")    ' можно указать другой разделитель столбцов

и вместо функции SaveTXTfile используйте AddIntoTXTfile
в строке

 ' сохраняем текстовую CSV-строку CSVtext$ в файл с именем CSVfilename$
    SaveTXTfile CSVfolder$ & CSVfilename$, CSVtext$

[6306617]

Подскажите, как изменить код чтобы обрабатывался не заданный диапазон, а выделенный. ТК в VBA очень слаб

[IgorGO]

Selection - выделенный
вместо
...
CSVtext$ = Range2CSV(ra, ...
пишите
...
CSVtext$ = Range2CSV(Selection, ...

[6306617]

Благодарю, результат достигнут.