Откройте книгу Excel из Word в той же папке и скопируйте несколько ячеек

Question

Я хочу открыть книгу Excel из макроса в Word.Книга Excel и документ Word помещаются в одну и ту же папку.

После открытия книги необходимо скопировать диапазон и специальным образом вставить его в курсор в документе Word и выполнить некоторое редактирование таблицы.

Последняя часть, я думаю, я могу сделать, но первая часть говорит: «Ошибка времени выполнения 424»: объект получен

Я не эксперт и не могу заставить это работать.

Заранее спасибо!

Я искал и нашел приведенный ниже код, за который люди голосовали, но по какой-то причине он не работает для меня.

    Sub Code()

    Workbooks.Open (ActiveDocument.Path & ".\source.xlsx")

    'Copy some cells and paste them into Selected place in word

    End Sub

Answer 1

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

Приведенный ниже код поможет вам понять, как это сделать, но вам потребуется изменить некоторые значения из диапазона и местоположения, чтобы разместить вставку.

Sub Code()
    Dim exc As Object
    Dim wb As Object

    Set exc = CreateObject("excel.application")
    Set wb = exc.workbooks.Open(ActiveDocument.Path & ".\source.xlsx")
    With wb
        .sheets(1).Range("A1:B3").Copy
    End With

    Application.Selection.Paste


End Sub