vba - 尝试将图表、范围等插入到 Word 时，Excel 2010 VBA 中的复制/粘贴错误

Question

在研究这个错误时，我得出的结论是，它与剪贴板没有像应有的那样清除有关，这在我们使用 2003 时不是问题，但现在我们正在使用 2010。(我也从不再在这里工作的人那里继承了此代码)

Run-Time error "4605":
This method or property is not available because the clipboard is empty or not valid.

这是我的代码:

Worksheets("Exec Sum").Range("B140:I186").Copy

With myDoc.Bookmarks
  .Item("b3").Range.PasteSpecial Link:=True, DataType:=wdPasteMetafilePicture, Placement:=bmark, DisplayAsIcon:=False
End With

' Clears Clipboard
Application.CutCopyMode = False

我尝试过使用 sendkeys ("^C") 首先选择一个空单元格，但没有成功。有什么方法可以让我不使用复制/粘贴方法来执行此操作，或者使用其他方法来清除剪贴板？

Answer 1

当我从 2003 年升级到 2010 年时，我开始收到此错误，但该宏在 2003 年仍然有效。

表格就在那里，但我注意到有时复制不起作用。由于这种情况在 Debug模式下从未发生过，因此我在复制之前添加了 5 秒的等待时间。

这会使宏变慢，但至少它可以工作。