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，他们将其打开，然后复制所需的范围，之后您便可以粘贴到您的选择中

下面的代码将帮助您理解操作方法，但是您需要从“范围”和“位置”中更改一些值以放置粘贴。

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

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

1 个答案: