Вставка таблицы Excel в документ Word с помощью кода VBA Excel. Метод Selection.PasteExcelTable: синтаксис, параметры, пример использования.
Работа с Word из кода VBA Excel
Часть 6. Вставка таблицы Excel в документ Word
[Часть 1] [Часть 2] [Часть 3] [Часть 4] [Часть 5] [Часть 6]
Метод Selection.PasteExcelTable
Метод Range.Paste, использующийся в VBA Word для вставки в документ таблиц, скопированных в буфер обмена из другого документа Word, не применим для вставки в документ таблиц, скопированных из книги Excel. Для этих целей используется метод Selection.PasteExcelTable.
Синтаксис
|
1 |
Expression.PasteExcelTable(LinkedToExcel, WordFormatting, RTF) |
Expression — переменная, представляющая объект Selection. В том числе, это может быть курсор или закладка.
Параметры
Все параметры метода Selection.PasteExcelTable логического типа и являются обязательными.
| Параметр | Описание |
|---|---|
| LinkedToExcel | True — вставленная таблица связывается с исходным файлом Excel, чтобы изменения, внесенные в файл Excel, отображались в Microsoft Word. False — связь между вставленной таблицей и таблицей в исходном файле не устанавливается. |
| WordFormatting | True — вставленная таблица будет отформатирована как таблица документа Word. False — вставленная таблица будет отформатирована в соответствии с исходным файлом Excel. |
| RTF | True — Excel-таблица будет вставлена в расширенном текстовом формате (RTF). False — Excel-таблица будет вставлена в формате HTML-таблицы. |
Пример вставки Excel-таблицы
Допустим, у нас есть таблица Excel, начинающаяся с ячейки A1 (или с любой другой), и нам необходимо скопировать эту таблицу в существующий документ Word, вставив ее на место закладки "Закладка1".
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub Primer() Dim myWord As New Word.Application, myDoc As Word.Document 'Открываем существующий документ Word Set myDoc = myWord.Documents.Open("C:\Тестовая\Документ1.docx") 'Копируем таблицу на активном листе в буфер обмена 'Вместо ячейки Range("A1") можно указать любую другую, расположенную внутри таблицы Range("A1").CurrentRegion.Copy 'Вставляем таблицу из буфера обмена на место закладки myDoc.Bookmarks("Закладка1").Range.PasteExcelTable False, False, False 'Отображаем программу Word myWord.Visible = True 'Очищаем переменные Set myWord = Nothing Set myDoc = Nothing End Sub |
Если необходимо таблицу вставить в конец документа, строку
|
1 |
myDoc.Bookmarks("Закладка1").Range.PasteExcelTable False, False, False |
следует заменить на
|
1 2 3 4 5 6 7 8 9 10 |
With myDoc 'Переводим курсор в конец документа .Range(.Range.Characters.Count - 1, .Range.Characters.Count - 1).Select 'Добавляем перенос строки, если необходимо .ActiveWindow.Selection.InsertAfter vbCr 'Переводим курсор в конец документа .Range(.Range.Characters.Count - 1, .Range.Characters.Count - 1).Select 'Вставляем таблицу из буфера обмена .ActiveWindow.Selection.PasteExcelTable False, False, False End With |
Здравствуйте, Евгений. Спасибо за статью. То, что надо. Только небольшую заметку надо по поводу подключения библиотеки (Tools -> References -> Microsoft Word xx.0 Object Library), а то будет появляться сообщение (User-defined type is not defined). И ещё я сделал для связи:
подскажите как сделать во вставленной таблице все тексты и значения по центру (повторюсь, в таблице количество строк меняется, поэтому диапазон должен быть ко всей таблице)? Или лучше это сделать макрорекордером ворд?
Тут же вопрос: можно ли обновить документ не открывая его? (я предполагаю уже макросами ворда надо пользоваться).
Отвечу сам себе по поводу вставленной таблицы в ворде: принимает формат того абзаца на котором закладка. Шаблон ворда поправил теперь как надо встаёт таблица. Но есть «но». Дальнейшее не имеет отношения к эксель, но я опишу для информативности. Шаблон в Ворде у меня построен на Слиянии так же из другого документа Эксель в шаблон Ворд, а таблица которую вставляю из другого документа Эксель, так вот при вставке Нашей Таблицы в шаблоне Ворд «теряется» исходный документ Слияния. Наверно «действия» вставки таблицы форматирует ссылку на документ Слияния.
Огромное спасибо за пример! То что нужно! Но столкнулся с проблемой, которую пока не могу решить: у меня в экселе несколько листов из которых нужно скопировать таблицы и вставить вместо соответствующих закладок в ворд. Так вот, после копирования первой таблицы и вставки ее на место первой закладки, программа по необъяснимой для меня причине вставляет скопированную таблицу вместо всех закладок. Названия закладок разные, но почему-то они заменяются все. Вот фрагмент кода:
Добрый день, Максим!
Попробуйте переопределить закладки. Выделите в документе текст закладки без пробела в конце и снова вставьте закладку с тем же именем. И так со всеми закладками.
Здравствуйте!
При использовании кода:
почему-то не сохраняется форматирование таблицы как в Excel, при вставке таблицы «руками» через «Сохранить исходное форматирование» все копируется, как надо. Подскажите как поправить код?
Как прикрепить скрин не знаю.
Здравствуйте, Kirill!
Попробуйте заменить последний параметр с
FalseнаTrue.Евгений, здравствуйте!
Спасибо большое за подсказку!
К сожалению не помогло(( Таблица вставляется «криво». Даже уже и не знаю как быть.
Upd.
Евгений, я был не прав! Помогло! Спасибо!
Здравствуйте, Евгений. Как можно из разных документов эксель в один ворд вставлять таблицы по закладкам. По отдельности для каждого документа ваш код работает хорошо. Пробовал переделать код из урока «VBA Excel. Bookmarks – закладки в документе Word» 5-й части, не получилось. Посмотрел, что вам писал здесь «Максим от 14.04.2022 в 17:06» у меня похожая ситуация, но у меня разные файлы эксель и «Максим» выложил часть кода. Если сможете, помогите.
Здравствуйте, Алексей!
Примерный код будет таким:
Код расположен в отдельной книге «Книга1.xlsm». Все книги должны быть открыты.
Здравствуйте, Евгений. Это замечательно с разных книг вставить в один документ. А как начать работу с открытым документом ворд? У меня задача сделать мини отчёт в ворд: 1. Из 1-го файла эксель сделать 1-ую страницу в ворд и часть отчёта, файл эксель я закрываю (чтобы не путаться). 2. Из 2-го файла эксель сделать 2-ую часть отчёта в том же документе ворд. Первая часть задачи выполняется и остаётся открытым файл ворд. Вторую часть задачи не могу осилить.
Ещё попробую перефразировать, из другого файла эксель макрос на вставку в уже открытый файл ворд.
Думал через этот код выполнить :
но здесь не проект.
Добрый день, Алексей!
Это проблема тоже решаема:
Если открытого приложения Word нет, выполнение функции GetObject приведет к ошибке.
Здравствуйте, Евгений. Спасибо! Соединил ваши макросы в один и получил то, что надо.
Добрый день, Евгений!
Не нашел соответствующую тему и поэтому напишу здесь.
Подскажите пожалуйста, как из кода VBA Excel зайти в конструктор формул Word? Необходимо произвести несколько замен в формуле, которая создана конструктором в документе Word, но не получается.
Метки в тексте код находит замечательно, а вот метки в формуле игнорирует.
Добрый день, Kirill!
Попробуйте в самом Word записать макрос по созданию и редактированию формул. Если не получится, то вряд ли это вообще возможно через VBA. Проверить не могу, так как в моей версии Word конструктор формул отсутствует.
Спасибо большое за ответ!
Здравствуйте. Евгений, наконец-то вас нашла. Мне понравился ваш макрос, сохранила себе, а вот ресурс забыла.
Вы отвечали
этот макрос можно использовать для вывода табличек с разных листов одного файла?
Я сделала все ссылки под свой и у меня ничего не получается
Добрый день, Ната!
На какой строке кода у вас происходит ошибка?
Вот спасибо, за вопрос. Сразу перечитала статьи и поняла, что инструменты (библиотеку) ворда не подключила. Подключила и опять ошибка: Microsoft excel ожидает пока другое приложение завершит действие ole, и так циклично пока не попытаешься открыть файл ворд. И выходит ошибка 4198. Я думаю ошибка с открытием ворда.
Ната, попробуйте перезагрузить компьютер и запустить код только с открытием файла Word:
Всё сделала как вы сказали, открылся файл ворд. В этот же макрос добавила строчку:
и зависает долго около минуты работает и опять выдаёт: Microsoft excel ожидает пока другое приложение завершит действие ole.
в
Workbooks("Книга2.xlsm")я полностью прописываю путь к файлу так же:Ната, книги Excel для работы этого кода должны быть уже открыты и обращаться к ним нужно только по имени:
Workbooks("Книга2.xlsm"). Если предполагается, что книга будет закрыта, ее нужно предварительно открыть.Спасибо вам за разъяснения, поняла и многое не прочитала. Работает макрос только с открытым листом. А я хотела чтобы макрос с разных страниц-листов собирал таблички, у меня их три. Можно такое организовать? А выполнение макроса запускала с четвёртой. Простите, что доставила вам столько неудобств.
Здравствуйте, Евгений. Извините за назойливость. Подскажите, решение по этому макросу сложное? У вас в статьях я нашла «Вызов подпрограмм с аргументами в пределах одного модуля»:
я в правильном направлении двигаюсь?
Добрый день, Ната!
А по какой причине вам не подходит код, который вы разместили в первом комментарии?
Евгений, спасибо Вам огромное за помощь!!! Дошло до меня :)))) Нашла свои ошибки.
Здравствуйте Евгений!
Подскажите пожалуйста как скопировать данные из excel в word с последовательным добавлением строк в word не применяя закладки (количество строк в Excel все время разное)?
Здравствуйте, Андрей!
Вам подойдет код из параграфа «Вставка текста без форматирования» статьи VBA Excel. Редактирование документов Word.
Спасибо большое!!!!!