我想从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
答案 0 :(得分:0)
您需要实例化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