[已解决][求助]excel文件复制反复出现的剪贴板对话框的消除（VBA编码）

yangtf

各位大侠：
      将几个excel文件中的数据按序复制到一个新的excel文件中反复出现如下提示：
“在剪贴板上有大量信息。是否保存其内容，以便此后粘贴到程序中
       要保存剪贴板上信息，请单击“是‘’按钮
       要删除其中信息以释放内存，请单击“否”按钮‘’
     连续点“是”  则可以复制，点“否” 则不能复制，即使在程序中加入如下代码也不起作用：
  Application.DisplayAlerts = False
  ActiveWorkbook.Sheets(1).Paste
  Application.DisplayAlerts = True

最佳答案

月排行榜 / 总排行榜

吕?布

2012-3-29 20:55

估计你先粘贴再关闭便不会有提示了

跳转到最佳答案楼层

那么的帅

ActiveWorkbook.Sheets(1).Paste
'粘贴后，加上下面一句代码
Application.CutCopyMode = False

yangtf

那么的帅 发表于 2012-3-27 11:30
ActiveWorkbook.Sheets(1).Paste
'粘贴后，加上下面一句代码
Application.CutCopyMode = False

非常感谢老师的热忱帮助，只是情况没有改变。

那么的帅

yangtf 发表于 2012-3-27 11:51
非常感谢老师的热忱帮助，只是情况没有改变。

粘贴一次就使用一次

yangtf

那么的帅 发表于 2012-3-27 11:55
粘贴一次就使用一次

是的呀，在每次粘贴代码后面均加上一句所提供代码还是没用。要粘贴5个表出现5次对话框，而且必须点“是”程序才执行，挺麻烦，请老师帮忙！

无聊的疯子

如果你只需要复制值，可以使用数据来进行中转！

yangtf

无聊的疯子 发表于 2012-3-27 19:06
如果你只需要复制值，可以使用数据来进行中转！

确是只需要选择性复制粘贴，只需要复制值，不需要弹出对话框，那样会中断程序，请问老师如何用数据来中转？请写出代码，谢谢！

adders

yangtf 发表于 2012-3-27 19:30
确是只需要选择性复制粘贴，只需要复制值，不需要弹出对话框，那样会中断程序，请问老师如何用数据来中转 ...

2楼答案应该能解决问题的,但是如果你确定放置Application.CutCopyMode = False的地方是对的,仍没有解决问题的,再试试以下两种方法:

1) 在你关闭Workbook的那一行上面加上一行: ActiveSheet.Range("A1").Copy

或者

2) 在你关闭Workbook的那一行上面加上一行: ActiveWorkbook.Save

如果还不行,你就上附件或上全部代码给大家诊断下吧

无聊的疯子

假设被复制的区域是a5:f10
要写入的区域是h2:m7
a=[a5:f10]
[h2:m7]=a
也可以直接用等于
[h2:m7]=[a5:f10].value

yangtf

adders 发表于 2012-3-28 09:39
2楼答案应该能解决问题的,但是如果你确定放置Application.CutCopyMode = False的地方是对的,仍没有解决问 ...

感谢你，二楼办法通常情况应该能解决问题，只是我这个是在不同工作簿之间进行复制粘贴就不适用，不过用此方法在复制粘贴最后一个工作簿时没出现对话框。你的方法试了似也没用。仍然要谢谢你！不行就考虑上传。