尝试将图表,范围等插入word时,在Excel 2010 VBA中复制/粘贴时出错

在研究这个错误时,我得出的结论是,它与剪贴板有关,不应该像我们使用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”),首先选择一个空单元格,但没有运气.有没有办法我可以不使用复制/粘贴方法来执行此操作或以其他方式清除剪贴板?

最佳答案
我从2003年升级到2010年时开始出现此错误,但该宏在2003年仍然有效.

桌子在那里,但我注意到有时复制不起作用.由于这在调试模式下从未发生过,因此我在复制前增加了5秒的等待时间.

这使宏更慢,但至少它的工作原理.

转载注明原文:尝试将图表,范围等插入word时,在Excel 2010 VBA中复制/粘贴时出错 - 代码日志