Перенос данных таблиц из Excel в Word - VBA

Узнай цену своей работы

Формулировка задачи:

Имеется Word''овский файл-отчет - текст, таблицы-источники для графиков (10 шт.) (по 2 строки и 15 столбцов, не отображаются), графики (10 шт.), таблицы информационные (5 шт.) (порядка 15 строк и 10 столбцов), все в перемешку. Раньше это все еженедельно заполнялось вручную. Решил автоматизировать. Написал макрос в Excel''е. Теперь исходные таблицы формируются в книге Excel на отдельных листах. Остался один вопрос - как переносить данные из этих таблиц в Word''овские таблицы на нужное место в рамках того же Excel''евского макроса? Не могу найти способ попасть в нужную Word''овскую таблицу. Помогите, пожалуйста.

Решение задачи: «Перенос данных таблиц из Excel в Word»

textual
Листинг программы
Dim shapeLoop As InlineShape
For Each shapeLoop In ActiveDocument.InlineShapes
    With shapeLoop
        If .Type = wdInlineShapeLinkedOLEObject Then
           '' .LinkFormat.Update
            .LinkFormat.BreakLink
        End If
    End With
Next

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.9 из 5