方法一
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