Как средствами VBA экспортировать данные из Excel в Word?

[Pavel_Ine]

Есть таблица в экселе, надо создать отчет в Worde. При чем в отчет вставляются данные из несмежных блоков ячеек. Хорошо бы еще чтобы вордовский файл тоже создавался программно.

[EducatedFool]

Без образцов файлов ответа Вы вряд ли дождётесь...

Прикрепите таблицу Excel, и то, что должно получится в Word-е.


--------------------- добавлено позже - вдруг кому окажется полезным ------------------------

Сделал программу для заполнения документов данными из таблицы Excel (из Excel в Word)

--------------------
Надстройка предназначена для формирования (подготовки) документов по шаблонам, с заполнением созданных файлов данными из текущей книги Excel.

В качестве шаблонов могут выступать следующие типы файлов:

• документы Word (расширения DOC, DOCX, DOCM)
• шаблоны Word (расширения DOT, DOTX, DOTM)
• книги Excel (расширения XLS, XLSX, XLSM, XLSB)
• шаблоны Excel (расширения XLT, XLTX, XLTM)
• текстовые документы (расширения TXT, DAT, XML и т.д.)

В качестве исходных данных для заполнения, используется открытый в Excel файл (с таблицей, содержащей строку заголовка)

Количество шаблонов документов не ограничено

ПРОГРАММА ПОДДЕРЖИВАЕТ ФОРМИРОВАНИЕ ДОКУМЕНТОВ В ФОРМАТЕ PDF
(создаётся файл DOC, и преобразуется в PDF средствами Word 2007 - 2010)
--------------------------------
В каких случаях вам может пригодиться эта надстройка:

• если у вас в таблице Excel хранится список контрагентов (с их реквизитами), и вы хотите нажатием одной кнопки формировать договоры, акты или коммерческие предложения для каждого из них
• если в вашей таблице Excel хранятся паспортные данные сотрудников, и вам необходимо быстро сформировать по шаблону приказы или прочие документы в формате Word, заполнив созданные документы данными сотрудников
• подготовить письма, уведомления, грамоты в формате PDF или Word, заполнив созданные файлы информацией с листа Excel
• и т.д. и т.п. - надстройку можно применять для создания любых документов на основе данных из Excel

--------------------------------

Скачать надстройку можно здесь:
http://excelvba.ru/programmes/FillDocuments

[ruavia3]

Открываем файл Word

Sub OpenWord(ByVal Имяфайла As String)
On Error Resume Next
Path = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, Имяфайла)
If Dir(Path) = "" Then MsgBox "Файл " & Имяфайла & " не найден", vbExclamation, "Файл не найден": Exit Sub

Path = Chr(34) & "Путь к файлу" & Chr(34)
CreateObject("WScript.Shell").Run Path

[ruavia3]

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