Перенести таблицу из Excel в Word

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Перенести таблицу из Excel в Word - Мир MS Excel

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

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

Перенести таблицу из Excel в Word (Макросы/Sub)

Перенести таблицу из Excel в Word

akobir

Дата: Суббота, 14.11.2020, 20:02 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 201

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

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

Excel 2010

Добрый день!

У меня имеется шаблон Word документа, где имеется шапка в виде текста.
Есть таблица в Excel и макрос в нем же.

Хочется, чтобы из Excel таблица скопировалась и вставилась после имеющегося текста в Word, после чего таблица расширилась по странице таблице, Word закрылся.

Не могу понять, как это можно сделать.
Буду признателен!

К сообщению приложен файл: 0470616.docx (17.2 Kb) · 0439997.xlsx (9.7 Kb)

e-mail: akobir.ismailov@gmail.com

Ответить

anvg

Дата: Воскресенье, 15.11.2020, 12:35 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

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

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

2016, 365

Доброе время суток.
Как-то так
[vba]

Код

Public Sub InstertExcelTableAtEndOfWordDocument()
    Dim pWord As Object, pDoc As Object, pBook As Workbook
    Set pBook = Application.Workbooks("0439997.xlsx")
    Set pWord = CreateObject("Word.Application")
    Set pDoc = pWord.Documents.Open("C:\Temp\0470616.docx")
    pDoc.Range.InsertAfter vbCr
    pBook.Worksheets(1).UsedRange.Copy
    pDoc.Paragraphs(pDoc.Paragraphs.Count).Range.PasteExcelTable False, False, True
    pDoc.Save
    pDoc.Close False
    pWord.Quit
    Set pWord = Nothing
End Sub

[/vba]

Сообщение отредактировал anvg - Воскресенье, 15.11.2020, 12:36

Ответить

Перенести таблицу из Excel в Word (Макросы/Sub)

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