Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Перенос таблицы из Excel в Word при помощи макроса - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Перенос таблицы из Excel в Word при помощи макроса
Govard88 Дата: Пятница, 04.12.2015, 16:48 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Вечер добрый.
Столкнулся с задачей, что нужно переносить готовые сводные таблицы (которые создаются макросом) в файл Word, да и еще с готовым и динамичным оформлением.
Как связать VBA Word и Excel не знаю, таблиц много и задача ежедневная.
Будьте добры, расскажите как автоматизировать такую задачу.

Подготовил маленький пример, дабы было понятно о чем речь
В Excel что было и в Word что должно стать, таблицы более массивные, но это для примера.
К сообщению приложен файл: 9096903.xlsx (8.4 Kb) · Doc1.dotm (12.1 Kb)
 
Ответить
СообщениеВечер добрый.
Столкнулся с задачей, что нужно переносить готовые сводные таблицы (которые создаются макросом) в файл Word, да и еще с готовым и динамичным оформлением.
Как связать VBA Word и Excel не знаю, таблиц много и задача ежедневная.
Будьте добры, расскажите как автоматизировать такую задачу.

Подготовил маленький пример, дабы было понятно о чем речь
В Excel что было и в Word что должно стать, таблицы более массивные, но это для примера.

Автор - Govard88
Дата добавления - 04.12.2015 в 16:48
SLAVICK Дата: Пятница, 04.12.2015, 18:03 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Как-то так:
[vba]
Код
Sub d()
Dim appWD As Word.Application
Set appWD = CreateObject("Word.Application")
    Range("A1:C7").Copy
    appWD.Documents.Add
    appWD.ActiveDocument.Range.PasteSpecial , , wdInLine, , wdPasteOLEObject
    appWD.Visible = True
End Sub
[/vba]
Если не сработает - подключите библиотеку microsoft.word в vba

если нужна вставка как таблицы - то wdPasteOLEObject
- вставка как картинки wdPasteMetafilePicture
К сообщению приложен файл: 9096903-1-.xlsm (19.3 Kb)


Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Пятница, 04.12.2015, 18:07
 
Ответить
СообщениеКак-то так:
[vba]
Код
Sub d()
Dim appWD As Word.Application
Set appWD = CreateObject("Word.Application")
    Range("A1:C7").Copy
    appWD.Documents.Add
    appWD.ActiveDocument.Range.PasteSpecial , , wdInLine, , wdPasteOLEObject
    appWD.Visible = True
End Sub
[/vba]
Если не сработает - подключите библиотеку microsoft.word в vba

если нужна вставка как таблицы - то wdPasteOLEObject
- вставка как картинки wdPasteMetafilePicture

Автор - SLAVICK
Дата добавления - 04.12.2015 в 18:03
Govard88 Дата: Среда, 09.12.2015, 10:08 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
SLAVICK, Спасибо большое, все работает
А библиотеки не было, всегда считал, что VBA в офисе работает без доп.настроек между своими приложениями.
 
Ответить
СообщениеSLAVICK, Спасибо большое, все работает
А библиотеки не было, всегда считал, что VBA в офисе работает без доп.настроек между своими приложениями.

Автор - Govard88
Дата добавления - 09.12.2015 в 10:08
Dana0856 Дата: Вторник, 09.07.2019, 14:57 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
SLAVICK, буду вам благодарна если подскажите как создать макрос, который переводит данные построчно записи excel в новый созданный файл word. Каждой строке соответствует свой файл. То есть передать данные строки таблицы, а не всей таблицы excel в определенной форме в файле word.

Я пыталась сделать что-то такое на оснвое вашего кода. Сама программирую на с++. Если найдете время, буду очень вам благодарна.
 
Ответить
СообщениеSLAVICK, буду вам благодарна если подскажите как создать макрос, который переводит данные построчно записи excel в новый созданный файл word. Каждой строке соответствует свой файл. То есть передать данные строки таблицы, а не всей таблицы excel в определенной форме в файле word.

Я пыталась сделать что-то такое на оснвое вашего кода. Сама программирую на с++. Если найдете время, буду очень вам благодарна.

Автор - Dana0856
Дата добавления - 09.07.2019 в 14:57
Pelena Дата: Вторник, 09.07.2019, 16:37 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19405
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Dana0856, прочитайте Правила форума, создайте свою тему, приложите файл с примером.
Эта тема закрыта


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеDana0856, прочитайте Правила форума, создайте свою тему, приложите файл с примером.
Эта тема закрыта

Автор - Pelena
Дата добавления - 09.07.2019 в 16:37
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!