从Word在同一文件夹中打开Excel工作簿并复制粘贴一些单元格

Question

我想从Word中的宏打开Excel工作簿。 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，打开它，然后复制你想要的范围，之后你可以粘贴你的选择

下面的代码将帮助您了解如何执行此操作，但您需要更改Range和Locations中的某些值以放置Paste。

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