这是使用API函数来完全清空剪贴板内容的一个方法 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 Sub EraseClipboard() If (OpenClipboard(0&)) Then Call EmptyClipboard Call CloseClipboard End If End Sub