Перенос таблицы из Excel в Word при помощи макроса

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос таблицы из Excel в Word при помощи макроса (Макросы/Sub)

Govard88

Дата: Пятница, 04.12.2015, 16:48 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Вечер добрый.
Столкнулся с задачей, что нужно переносить готовые сводные таблицы (которые создаются макросом) в файл Word, да и еще с готовым и динамичным оформлением.
Как связать VBA Word и Excel не знаю, таблиц много и задача ежедневная.
Будьте добры, расскажите как автоматизировать такую задачу.

Подготовил маленький пример, дабы было понятно о чем речь
В Excel что было и в Word что должно стать, таблицы более массивные, но это для примера.

К сообщению приложен файл: 9096903.xlsx (8.4 Kb) · Doc1.dotm (12.1 Kb)

Ответить

SLAVICK

Дата: Пятница, 04.12.2015, 18:03 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Как-то так:
[vba]

Код

Sub d()
Dim appWD As Word.Application
Set appWD = CreateObject("Word.Application")
    Range("A1:C7").Copy
    appWD.Documents.Add
    appWD.ActiveDocument.Range.PasteSpecial , , wdInLine, , wdPasteOLEObject
    appWD.Visible = True
End Sub

[/vba]
Если не сработает - подключите библиотеку microsoft.word в vba

если нужна вставка как таблицы - то wdPasteOLEObject
- вставка как картинки wdPasteMetafilePicture

К сообщению приложен файл: 9096903-1-.xlsm (19.3 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Пятница, 04.12.2015, 18:07

Ответить

Govard88

Дата: Среда, 09.12.2015, 10:08 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

SLAVICK, Спасибо большое, все работает
А библиотеки не было, всегда считал, что VBA в офисе работает без доп.настроек между своими приложениями.

Ответить

Dana0856

Дата: Вторник, 09.07.2019, 14:57 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

SLAVICK, буду вам благодарна если подскажите как создать макрос, который переводит данные построчно записи excel в новый созданный файл word. Каждой строке соответствует свой файл. То есть передать данные строки таблицы, а не всей таблицы excel в определенной форме в файле word.

Я пыталась сделать что-то такое на оснвое вашего кода. Сама программирую на с++. Если найдете время, буду очень вам благодарна.

Ответить

Pelena

Дата: Вторник, 09.07.2019, 16:37 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19181

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

Dana0856, прочитайте Правила форума, создайте свою тему, приложите файл с примером.
Эта тема закрыта

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос таблицы из Excel в Word при помощи макроса (Макросы/Sub)

Страница 1 из 1
1