vba清空剪贴板方法

方法一
Private Declare Function OpenClipboard Lib “user32” (ByVal hWnd As Long) As Long

Private Declare Function CloseClipboard Lib “user32” () As Long

Private Declare Function EmptyClipboard Lib “user32” () As Long

Public Sub JustEmptyClipboard()

OpenClipboard (0)

EmptyClipboard

CloseClipboard

End Sub

方法二

Application. CutCopyMode= False