Формирование документа Word на основе данных Excel

[gaevoy1]

Пожалуйста, помогите.

Я хочу с помощью макроса формировать отчет о командировке в виде документа Word на основании данных таблицы Excel, которую я буду постоянно обновлять.

Так как в програмировании не силен, воспользовался готовым шаблоном, который нашел на этом форуме, но, к сожалению, переделать его так как мне надо не могу.

У меня не получаеться сделать следующее:

Запускаю макрос, появляеться окно, в котором я выбираю позицию для формирования отчета, как результат - формируеться отчет, но не по той позиции которую я выбрал.

Так же у меня не получаеться сменить вид отображения позиций по которым нужно формировать отчет. Сейчас он следующего вида - "дата" + "клиент", когда я меняю местами эти поля, то что бы я не выбрал, отчет всегда формируется по самой первой позиции в списке.

[Teslenko_EA]

Здравствуйте gaevoy1.
Ваша задача требует корректировки структуры - работа с табличными данными без уникального идентификатора не возможна. Идентифицировать запись (строку) только по Date и Client не возможно, например "30.11.2009 - Перевальский МПЗ" может указывать на три строки, и это обрекает конструкцию неработоспособность.
Евгений.

[alyon_ka]

у меня есть собственный макрос, который подставляет данные из Excel в Word, он достаточно простой и универсальный, выбираете шаблон документа, и все необходимы данные из текущей строки Excel переносятся в Word, сохраняется вордовский документ с названием ячейки, которая была в момент запуска макроса активна. Если заинтересует - пишите.

[sergiksergik]

alyon_ka , Хотелось бы глянуть на макрос.
Покажи пожалуйста...

[Teslenko_EA]

gaevoy1, я "погорячился" утверждение "..это обрекает конструкцию.." относится только к методам работы с данными, применение поиска (.Find) не даст желаемого результат. Но отсутствие уникального ключа никак не скажется на работе с массивами.
В образце ссылка на строку листа осуществляется по индексу (номеру) в массиве списка.
Евгений.

[gaevoy1]

Уважаемый Евгений огромное спасибо. Буду далее сам разбираться в примудростях Excel и VBA

[gaevoy1]

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

gaevoy1, я "погорячился" утверждение "..это обрекает конструкцию.." относится только к методам работы с данными, применение поиска (.Find) не даст желаемого результат. Но отсутствие уникального ключа никак не скажется на работе с массивами.
В образце ссылка на строку листа осуществляется по индексу (номеру) в массиве списка.
Евгений.

Евгений, обьясните, пожалуйста, какая часть кода отвечает за генерацию имени doc файла. В приведенном Вами примере, файл называется автоматически по имени клиента, я хотел бы добавить в имя еще и дату, когда была сделана командировка.

Заранее спасибо.

[Teslenko_EA]

Здравствуйте gaevoy1.
измените строку кода :

sT = ThisWorkbook.Path + "\" + sName + sDog + sExt

на

... 
sT = Format(Cells(iRow, 1), "yymmdd") + "_" + sName + sDog + sExt
sT = ThisWorkbook.Path + "\" + sT
...

и имя файла будет начинаться с даты в формате ГГММДД, именно так потому, что это самый удобный формат для сортировки файлов, которая в будущем, уверяю Вас потребуется.
Евгений.

[annet1160]

А как вот эту таблицу переделать в Openoffice?

[Volodshan]

annet1160!
1 - это форум не по ООо.
2 - тема не ваша, это - ошибка и нарушение.
3 - таблицу просто открыть в Calc_3.1.1 или 3.2.0.
ps См. "http://community.i-rs.ru/index.php?board=5.0".