как упростить копирование из excel в word

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » как упростить копирование из excel в word (Формулы/Formulas)

saf

Дата: Воскресенье, 12.02.2017, 12:26 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

У меня такая ситуация: по работе мне каждый день нужно обрабатывать 70 excel файлов, где надо тупо копировать в каждом excel файле одни и те же выбранные ячейки и вставлять эти данные из ячеек в один файл word . Можно как то автоматизировать этот процесс или упростить его? Вот этот файл ворд, где необходимо вставлять данные из этих excel в столбцы
Нашел в инете Макрос для передачи данных из Excel в Word:копирующий в активной рабочей книге Excel диапазон с данными A1:E2 и вставляющий его в открытый документ Word. После передачи данных из Excel в Word производится закрытие документа с сохранением изменений и выход из приложения.

[vba]

Код

Sub Peredacha_Dannyh_iz_Excel_v_Word()
Dim objWrdApp As Object
Dim objWrdDoc As Object
On Error Resume Next
Set objWrdApp = GetObject(, "Word.Application")
If objWrdApp Is Nothing Then
Set objWrdApp = CreateObject("Word.Application")
Set objWrdDoc = objWrdApp.Documents.Open("C:\Doc1.doc")
objWrdApp.Visible = False
End If
Set objWrdDoc = objWrdApp.Documents.Open("C:\Doc1.doc")
Range("A1:E2").Copy
objWrdDoc.Range(0).Paste
objWrdDoc.Close True
'True - с сохранением, False - без сохранения
objWrdApp.Quit
Set objWrdDoc = Nothing
Set objWrdApp = Nothing
End Sub

[/vba]

К сообщению приложен файл: 8442384.doc (38.5 Kb)

Сообщение отредактировал saf - Воскресенье, 12.02.2017, 14:38

Ответить

Pelena

Дата: Воскресенье, 12.02.2017, 13:12 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19184

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

saf, дайте теме более конкретное название в соответствии с Правилами форума и оформите код тегами (кнопка # в режиме редактирования поста)
Исправлено

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Страница 1 из 1
1