Тема: Макрос для Связывание таблиц Word и Excel по ячейкам
Макрос, упрощающий Связывание таблиц Word и Exce.
Выбираются ячейки в Excel и Word (можно только часть таблицы). После запуска, макрос сам формирует связи.
Sub CopyFromExcel()
'Связывание таблиц Word и Excel по ячейкам. Необходимо выделить ячейки в Excel и
' соответствующиие им ячейки в Word
Dim objExcel, c, i
'Если ошибка - В пункте меню Tools -> References отметить
' Microsoft Excel Object Library
Set objExcel = GetObject(, "Excel.Application.11")
For Each c In Selection.Cells
i = i + 1
objExcel.Selection.Cells(i).Copy
c.Select
Selection.PasteExcelTable True, True, True
Next c
End Sub
PS. Оставить комментарий в статье - не получилось. Если у кого нибудь получается коментировать - просьба продублировать сообщение в статье.