清空剪切板代码

weliong

找了一下午，终于用1楼的代码，达到了自动清空OFFICE剪贴板的目的了，点赞

weliong

用楼主的代码，可以清空OFFICE剪贴板的内容，但清空之后，剪贴板会显示
只要在最后 end sub前一句，插入Application.CommandBars("Office Clipboard").Visible =false
就可以再隐藏 剪贴板了（此回复，仅对和我一样的初学者说，大牛们莫笑）

chartadd888

学习下。。。。。

hqlin65

留个脚印，学习了

czylhh

非常好,正在找这样的代码

liguibin

liucqa 发表于 2015-7-18 15:37
二楼是清空系统剪贴板，一楼代码是清空office剪贴板

二楼是清空系统剪贴板，一楼代码是清空office剪贴板
请问大神，如何用宏清空office剪贴板，麻烦你了！

liguibin

weliong 发表于 2017-6-13 17:26
找了一下午，终于用1楼的代码，达到了自动清空OFFICE剪贴板的目的了，点赞

你是怎么写代码，给一下成品可以吧，谢谢

jifdan

感谢楼主分享！！正好需要，学习了

remote88888

有没有批量写入OFFICE剪切板的代码?

q3698995

1. Option Explicit
   
2. 
   
3. #If VBA7 Then
   
4.     Public Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
   
5.     Public Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
   
6.     Public Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
   
7. #Else
   
8.     Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
   
9.     Public Declare Function CloseClipboard Lib "user32" () As Long
   
10.     Public Declare Function EmptyClipboard Lib "user32" () As Long
    
11. #End If
    
12. 
    
13. Sub CallEC()
    
14.     Dim lngRet As Long
    
15.      
    
16.     lngRet = OpenClipboard(Application.hwnd)
    
17.      
    
18.     If lngRet Then
    
19.         EmptyClipboard
    
20.         CloseClipboard
    
21.     End If
    
22. End Sub

复制代码