Посоветуйте как экспортировать строки в txt файлы с имеющимся текстом.

[gremlintv2]

Есть "1.xls" файл c тремя столбцами.

Есть текст в виде нескольких строк (т.е. с абзацами), текст записан в файле "text.txt".


Из первого столбца нужно скопировать содержимое ячейки A2. И создать файл с именем 246.txt после чего скопировать в этот файл содержимое ячеек B2 и С2, создать абзац (чтоб текст из файла "text.txt" перенесся на новую строку в 246.txt файле), ну и соответственно скопировать текст из файла "text.txt".
НО! По сути это только верхняя часть айсберга. Поскольку мне нужно в результате создать массив A2:nn из которого будут копироваться имена txt файлов (247.txt, 248.txt, 249.txt итд) и еще 1 массив из которого будут копироваться содержимое ячеек B2:BN&C2:CN & содержимое файла text.txt. В результате должно получится вот так:

[gremlintv2]

На данный момент я "нарыл" только как создать txt файл из определенной ячейки.

pute = ThisWorkbook.Path
transkr = Cells(1, 1)
Open pute & "\text.txt" For Append As #1 'если файла нет, то
'создаётся новый файл, если файл существует, то значение ячейки А1 'записывается в конец документа.
Print #1, Format$(transkr)
Close #1

[gremlintv2]

Т.е. создается определенное к-чество задач с которыми я незнаком:
1. Как создать txt файлы с именами из диапазона ячеек A2:nn столбца excel.
2. Как скопировать СООТВЕТСТВЕННО содержимое массива ячеек B2:BN&C2:CN & содержимое файла text.txt в файлы с именами "A2:nn.txt".

[gremlintv2]

Нашел интересны документ: Миронов. Готовые макросы в VBA Excel http://www.twirpx.com/file/291320/
К сожалению готового варианта как и предполагалось там нет. =) Но есть частичное решение задачи 2.

[gremlintv2]

Подскажите, а реально ли решить задачу 1 создать txt файлы с именами из диапазона ячеек A2:nn столбца excel? потому что как то слабо верится. Ну создание одного файла из 1й ячейки еще понятно, а вот создание нескольких файлов из диапазона ячеек как то не представляется...

[EducatedFool]

Задача решается одним нажатием кнопки при помощи этой надстройки для Excel:
http://excelvba.ru/programmes/FillDocuments

(шаблоном там могут выступать не только файлы Word и Excel, но и обычные текстовые файлы)

[doober]

Подскажите, а реально ли решить задачу

Реально....

[gremlintv2]

Огромное всем спасибо!!! При возможности отблагодарю материально!