以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教vba复制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172573)
--  作者：hb8888
--  发布时间：2021/10/20 10:36:00
--  请教vba复制
大师：请问如下代码有时会报错？

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("B1:C4")
Rg.copy


而下一段不会报错？


Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("B1:C4")
rg.select
Rg.copy
--  作者：有点蓝
--  发布时间：2021/10/20 10:40:00
--  
具体原理我也不懂。正常应该是选中再复制
--  作者：chen37280600
--  发布时间：2021/10/20 11:38:00
--  
我感觉很直观，就是模拟你鼠标选中，然后ctrl+C复制
--  作者：hb8888
--  发布时间：2021/10/20 13:43:00
--  
当Excel与Word交互频繁（因为如果在代码中加入提示对话框测试时，就不报错）复制粘贴时，出现 “此方法或属性无效，因为 剪贴板是空的或无效的”错误。
请问如何解决？
--  作者：有点蓝
--  发布时间：2021/10/20 13:59:00
--  
贴出具体代码看看