Перенос таблицы из эксель в ворд

antrakt1989 Пользователь Сообщений: 28 Регистрация: 02.08.2013	#1 11.09.2013 19:27:35 Нужно перенести таблицу из эксель в ворд с помощью макроса, есть какой то типовой способ для этого? С таким же форматированием в виде таблицы Прикрепленные файлы перенос таблицы в ворд.xlsx (8.98 КБ)

EducatedFool

Пользователь

Сообщений: 3697 Регистрация: 23.12.2012

11.09.2013 19:37:37

В Excel копируете таблицу, - например, так: Range("a1:c8").Copy
Потом программно открываете Word, и вставляете таблицу в документ методом PasteExcelTable

По ключевому слову PasteExcelTable вы найдете примеры кода:
http://programmersforum.ru/showpost.php?p=229849&postcount=4
http://programmersforum.ru/showpost.php?p=274493&postcount=2

Код

Sub main()
    Set wa = CreateObject("Word.Application")
    wa.Visible = True: Set wd = wa.Documents.Add
    wd.PageSetup.Orientation = 1
    [a1:c8].Copy
    wd.Range.PasteExcelTable False, False, False
    Application.CutCopyMode = False
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему