如何将复制的对象粘贴到Excel中的特定单元格

Question

我在下面写了代码来复制outlook EMail中的表：

        Set objApp = GetObject(Class:="Outlook.Application")
        Set objDoc = objApp.ActiveInspector.WordEditor

        objDoc.Tables(1).Range.Copy

我知道我们可以使用以下行粘贴这个复制的objDoc（这是一个对象）：excWkSht.Paste这是在excel表中随机粘贴的。

我正在尝试使用以下内容将其粘贴到第一个单元格中：excWkSht.Cell(1, 1).Range.Paste但是会​​抛出错误

  

“运行时错误'438'：对象不支持此属性或方法”

有人可以帮我解决这个错误吗？

Answer 1

每https://msdn.microsoft.com/en-us/library/office/ff821951.aspx

Worksheet.Paste允许我们选择目的地作为提供的范围。对于您的示例，您可以使用：

excWkSht.Paste Destination:=excWkSht.Cells(1, 1)