Excel请问VBA怎样实现清空剪贴板OptionExplicit#IfVBA7ThenPublicDeclarePtrSafeFunctionOpenClipboardLib”user32″(ByValhwndAsLongPtr)AsLongPublicDeclarePtrSafeFunctionCloseClipboardLib”user32″()AsLongPublicDeclarePtrSafeFunctionEmptyClipboardLib”user32″()AsLong#ElsePublicDeclareFunctionOpenClipboardLib”user32″(ByValhwndAsLongPtr)AsLongPublicDeclareFunctionCloseClipboardLib”user32″()AsLongPublicDeclareFunctionEmptyClipboardLib”user32″()AsLong#EndIfSubCallEC()DimlngRetAsLonglngRet=OpenClipboard(Application.hwnd)IflngRetThenEmptyClipboardCloseClipboardEndIfEndSub
先复制一段文字到剪贴板，然后运行CallEC过程，之后便会看到剪贴板被清空了。