Application.CutCopyMode = False 的作用

makelot

Application.CutCopyMode = False 的作用是清空剪切板，取消剪切或复制模式，并清除Excel待剪切或复制区域的动画边框 (Cancels Cut or Copy mode and removes the moving border)。

Application.CutCopyMode = False

但这条语句仅能清空ExcelVBA自身的剪贴板。Excel与其他程序如Word交互时使用的是Windows剪贴板，使用VBA清空Windows剪贴板需要调用API函数，代码如下：

1. Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
   
2. Declare PtrSafe Function EmptyClipboard Lib "user32" () As LongPtr
   
3. Declare PtrSafe Function CloseClipboard Lib "user32" () As LongPtr
   
4. Sub ClearClipboard()
   
5.     OpenClipboard 0&
   
6.     EmptyClipboard
   
7.     CloseClipboard
   
8. End Sub

复制代码

makelot

注意程序清空Windows剪贴板的同时，也会清空ExceVBAl自身的剪贴板。
实际工作中，我们经常使用VBA循环在Excel内部拷贝粘贴大量数据，有时也从Excel向Word或PPT拷贝大量数据。
如果是后者，系统会重复使用Windows剪贴板，经常报错，导致工作中断，
Run-time error '4605': This method or property is not available because the Clipboard is empty or not valid.
出现这种情况，不少人建议在复制粘贴过程中加上 Wait 或 DoEvents 语句，以便让操作系统等待剪贴板的响应。可这样做实际效果并不好，往往还是错误频发。
比较理想的解决办法，就是在复制粘贴之前清空Windows剪贴板。反正我测试多次，程序运行时再也没有出现过4605错误。
希望这个帖子能为大家提供一点有用的信息。

ykcbf1100

平时用到不多，先关注一下。

lizhipei78

感谢分享，这个好用

perfect131

Application.CutCopyMode = False  已经失效了

API 清空 有时候会不灵  （会遇到的)

所以最好的 方案就是 用 htmlfile 清空
12 楼
https://club.excelhome.net/forum ... 06&pid=11276369

1. '''清空 剪切板 就一行代码
   
2. CreateObject("htmlfile").parentWindow.ClipboardData.clearData("Text")

复制代码

makelot

perfect131 发表于 2024-2-23 12:55
Application.CutCopyMode = False  已经失效了

API 清空 有时候会不灵  （会遇到的)

多谢！这个办法好，但不知如果剪贴板里的内容是图片该用什么参数？刚才测试了一下，貌似"Text"参数也能把剪贴板里的图片清空，不过如果"Text"参数适用于清空一切数据类型，那这个参数就没有必要了。

morpheus126

感谢分享，有用

兰色的回忆

感谢分享，前几天还用Application.CutCopyMode = False这条语句呢，感觉不好用，原来是这个原因

Tony412

makelot 发表于 2024-2-22 22:27
注意程序清空Windows剪贴板的同时，也会清空ExceVBAl自身的剪贴板。
实际工作中，我们经常使用VBA循环在Ex ...

请问那怎样恢复到复制粘贴时就会有会动的那个虚框呢？我在网上看很多人都说用Application.CutCopyMode=True来恢复，可是操作下来不行啊

makelot

Tony412 发表于 2024-10-1 20:29
请问那怎样恢复到复制粘贴时就会有会动的那个虚框呢？我在网上看很多人都说用Application.CutCopyMode=Tr ...

应该直接不用 Application.CutCopyMode=False 这一句就可以了