excel复制粘贴至word时，剪切板为空的疑问

z2xz2x · 发表于 2015-4-10 10:46

本帖最后由 z2xz2x 于 2015-4-10 11:00 编辑

通过在excel里对表格复制，再在word中粘贴，时不时就出现：
“此方法或属性无效，因为剪贴板是空的或无效的”的错误
按调试，并直接继续运行，却又可以继续运行粘贴，但不一会儿又出现此错误，再调试，并直接运行，又可以。。。不断这样的过程。
请问是怎么回事？

doitbest · 发表于 2015-4-10 11:16

请用附件说明，无从下手

z2xz2x · 发表于 2015-4-10 12:40

本帖最后由 z2xz2x 于 2015-4-10 12:41 编辑

doitbest 发表于 2015-4-10 11:16
请用附件说明，无从下手

elbook 是workbook，ed 是word.application
For loopcNums = 1 To cNums
For looprNums = 1 To rNums
      '。。。计算r和c
      elbook.ActiveSheet.cells(r,c).Copy
      wd.Selection.PasteAndFormat (wdChartPicture)'之后会出错就是在这行，但继续调试并运行有都可以继续下去
Next looprNums
Next loopcNums

zhic · 发表于 2017-2-5 10:15

同问，我在excel里复制表格以后，在word里粘贴，有时会报错，但不是每次都报。报错的时候，看excel里表格数据是被复制的状态，在excel里也能粘贴，但是在word里，右键-看粘贴项是虚的，不能选，按Ctrl+v也粘不上去。下面是复制和粘贴的语句
exlWBookTest 是 Workbook类型，wordAppl 是 Word.Application类型

exlWBookTest.Worksheets(pName).UsedRange.Copy
wordAppl.Selection.PasteExcelTable False, False, False

zstu_2007 · 发表于 2017-5-4 14:13

楼主后来解决了吗？同样的问题

nerosummer · 发表于 2017-5-8 20:48

跟上，同样的问题，在家里的电脑上就会出现，到了公司就不出现，是不是跟系统的状态有关系！

cgzn · 发表于 2017-5-16 09:08

逐行执行代码就不会出错。是不是copy后设置一个几秒的等待能解决这个问题？

jurdy001 · 发表于 2018-4-18 21:09

cgzn 发表于 2017-5-16 09:08
逐行执行代码就不会出错。是不是copy后设置一个几秒的等待能解决这个问题？

逐行执行代码就不会出错。是不是copy后设置一个几秒的等待能解决这个问题？

我试过也不能100%保证
不知道有没有解决办法？

zhenhuizh1991 · 发表于 2019-10-8 13:36

同样遇到了这个问题，求解决办法

张玉龙笨笨 · 发表于 2022-1-28 22:08

请问下这个问题解决了吗

		自动登录	找回密码
密码			免费注册

[求助] excel复制粘贴至word时，剪切板为空的疑问