Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.11.2022, 22:18   #1
Megokelvin
 
Регистрация: 11.01.2017
Сообщений: 7
По умолчанию Word VBA. Перенос данных из таблицы Excel в таблицу Word

Прошу прокомментировать код, хочу скопировать диапазон из Excel в таблицу Word, но ни как не получается...
в чём ошибка?

Код:
 WA = GetObject(, "Word.Application") ' -- Запускаем Word
 Set WD = WA.Documents.Open(Filename:=TemplAd)
 ActiveWorkbook.Sheets("Лист1").Range("A2:H3").Copy

 WD.Tables(1).Rows(1).Cells(3).Select
 WD.Tables(1).Selection.MoveRight Unit:=wdCharacter, Count:=7, Extend:=wdExtend
 WD.Tables(1).Selection.MoveDown Unit:=1, Count:=myLstCaptionCount, Extend:=wdExtend
 WD.Tables(1).Selection.Paste
Megokelvin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перенос данных из текстового файла Word в таблицу Excel Slavik7777 Microsoft Office Word 0 05.09.2017 16:29
Перенос данных из таблицы excel в word iamaxl Microsoft Office Excel 3 26.02.2016 16:26
перенос данных из таблицы Excel в строку в документе word driver_ok Microsoft Office Excel 1 03.12.2015 18:42
Перенос данных из Excel в таблицу Word troyan90 Microsoft Office Excel 3 30.01.2014 11:47
Перенос таблицы Excel в Word (2 вопроса) romahjvf Microsoft Office Excel 2 16.08.2011 15:43