Нужен макрос очень

[danika24]

Есть 28 столбцов и они заполнены,необходимо экспорт в txt так чтобы 1строка в таблице была как шапка у каждой записии выглядел так

ИдДок: ( информация из таблицы)
ДатаДок: ( информация из таблицы)

а таблица выглядит так
ИдДок ДатаДок
631570251 01.04.2011
631570251 01.04.2011




Помогите очень надо

[Hugo121]

Вероятно экспорт?
Транспонировать пробовали?

[danika24]

Сообщение от Hugo121

Вероятно экспорт?
Транспонировать пробовали?

да экспорт а как это сделать не знаю

[Hugo121]

Копировать спецвставкой с транспонированием на новый лист - это не то?
Вообще покажите два файла - как есть, как нужно.

[danika24]

[QUOTE=Hugo121;870084]Копировать спецвставкой с транспонированием на новый лист - это не то?
Вообще покажите два файла - как есть, как нужно.[/QUOT

вот файл форум.rar

[Hugo121]

Если транспонировать, то так и получится, только будет столько колонок, сколько строк в исходной таблице. Ну и двоеточия не будет.
Удалите лишние колонки, добавьте двоеточие формулой, и сохраните в текст.
Если нужно непременно макросм сделать - нагенерить кучу текстовых файлов на каждую строку, то ждите кода от кого-нибудь... Я пока занят работой.

[danika24]

Сообщение от Hugo121

Если транспонировать, то так и получится, только будет столько колонок, сколько строк в исходной таблице. Ну и двоеточия не будет.
Удалите лишние колонки, добавьте двоеточие формулой, и сохраните в текст.
Если нужно непременно макросм сделать - нагенерить кучу текстовых файлов на каждую строку, то ждите кода от кого-нибудь... Я пока занят работой.

При транспонировании получается не так мне надо чтобы чтобы каждый раз начиналась шапка а не столбиком

[Hugo121]

т.е. @@@ не хватает?
Так там ещё и внизу === добавлено.
И скажите определённо - Вам нужно 28 файлов нагенерить макросом, или есть время вручную делать?
От меня макрос быстро не будет... если вообще соберусь.

[Hugo121]

Нашлось чуть время, пробуйте (только с кодировкой не боролся - у Вас другая в файле):

Sub tt()
Dim a, i&, ii&

a = [a1].CurrentRegion.Value

For i = 2 To UBound(a, 1)
Open "c:\temp\" & a(i, 7) & ".txt" For Output As #1
Print #1, "@@@"

For ii = 1 To UBound(a, 2)
Print #1, a(1, ii) & ":" & a(i, ii)
Next ii

Print #1, "==="
' Не забываем закрыть файл
Close #1

Next i

End Sub

Есть лишнее двоеточие в конце:
@@@:
Если напрягает, то лучше в таблице проставить в заголовки двоеточия, а в коде их не добавлять. Иначе нужно добавлять проверку на элемент массива, и если последний, то двоеточие не добавлять.

[danika24]

Спасибо вам большое все супер нет нужен один файл со всеми запясями а он формирует только 1 запись за одну дату и все