Страницы: 1
RSS
Перенос таблицы из эксель в ворд
 
Нужно перенести таблицу из эксель в ворд с помощью макроса, есть какой то типовой способ для этого? С таким же форматированием в виде таблицы
 
В 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
Страницы: 1
Читают тему
Наверх