#If VBA7 And Win64 Then
     Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As Integer) As Integer
     Declare PtrSafe Function EmptyClipboard Lib "user32" () As Integer
     Declare PtrSafe Function CloseClipboard Lib "user32" () As Integer
#Else
     Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Integer) As Integer
     Declare Function EmptyClipboard Lib "user32" () As Integer
     Declare Function CloseClipboard Lib "user32" () As Integer
#End If

Sub clearClipboard() '清空剪贴板
    Dim p As Integer
    OpenClipboard (p)
    EmptyClipboard
    CloseClipboard
End Sub