excel怎么使用vba清除剪贴板的内容

VBA 参考代码：

Option Explicit

#If VBA7 Then
    Public Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
    Public Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
    Public Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
#Else
    Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
    Public Declare Function CloseClipboard Lib "user32" () As Long
    Public Declare Function EmptyClipboard Lib "user32" () As Long
#End If

Sub CallEC()
    Dim lngRet As Long
    
    lngRet = OpenClipboard(Application.hwnd)
    
    If lngRet Then
        EmptyClipboard
        CloseClipboard
    End If
End Sub

先复制一段文字到剪贴板，然后运行 CallEC 过程，之后便会看到剪贴板被清空了。

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vf3efxfvrv3fxjjry77.html