主要代码:
Dim a
Set a = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
a.GetFromClipboard
On Error Resume Next
gx = a.GetText
If Err.Number = 0 Then
MsgBox "剪切板不为空", vbInformation
Else
MsgBox "空", vbInformation
End If
Err.Clear
附 件:
点击下载此附件
演 示: