使用出现错误时转到，如下所示：

  Sub GetClipBoardText（）
 Dim DataObj As MSForms.DataObject 
设置DataObj = New MsForms.DataObject'< ~~根据jp的建议修改

出错时转到$ a 

从剪贴板获取数据。 
 DataObj.GetFromClipboard 

’~~>获取剪贴板内容
 myString = DataObj.GetText（1）
 MsgBox myString 

 Exit Sub 
哇：
如果Err< 0然后，MsgBox剪贴板上的数据不是文本或为空。 
结束子
 

您会注意到它也会处理一个空的剪贴板。

NB：要使代码正常工作，必须具有对 Microsoft Forms 2.0对象库的引用； （可以在32位计算机上的 C：\windows\system32\FM20.dll 或 C：＼中找到此文件64Windows\sysWOW64\FM​​20.dll （在64位计算机上），否则会出现错误未定义用户定义的类型。。 p>

您可以在使用以下代码测试上面的代码之前清空剪贴板。请粘贴到模块中。

 私有声明函数OpenClipboard Lib User32.dll _ 
（只要ByVal hWndNewOwner）

私有声明函数EmptyClipboard Lib User32.dll （）只要

私有声明函数CloseClipboard Lib User32.dll； （）As Long 

 Public Sub ClearClipboard（）
 Dim Ret 

 Ret = OpenClipboard（0&）
如果Ret< 0然后Ret = EmptyClipboard 
 CloseClipboard 
 End Sub 
 

编辑：您还可以确定剪贴板是否通过使用以下代码为空：

 私有声明函数CountClipboardFormats Lib user32； （）只要Long 

 Sub Sample（）
 If（CountClipboardFormats（）= 0）= True，则
 MsgBox剪贴板为空； 
其他
 MsgBox剪贴板不为空 
结束如果
结束子
 

I'm using code like this to get text from off the Clipboard.

Dim DataObj As New MSForms.DataObject
DataObj.GetFromClipboard
myString = DataObj.GetText

I use error handling to get the past the case where the Clipboard is empty, and everything is fine as long as I keep Error Trapping set to Break on Unhandled Errors.

However, for unrelated reasons I want to set Error Trapping to Break on All Errors, and this throws an error at DataObj.GetText when it finds the empty Clipboard. Is there any kind of test I can apply further upstream to avoid trying to process an empty Clipboard?

Handle the errors with On Error GoTo as shown here:

Sub GetClipBoardText()
   Dim DataObj As MSForms.DataObject
   Set DataObj = New MsForms.DataObject '<~~ Amended as per jp's suggestion

   On Error GoTo Whoa

   '~~> Get data from the clipboard.
   DataObj.GetFromClipboard

   '~~> Get clipboard contents
   myString = DataObj.GetText(1)
   MsgBox myString

   Exit Sub
Whoa:
   If Err <> 0 Then MsgBox "Data on clipboard is not text or is empty"
End Sub

You will notice that it will handle an empty clipboard as well.

NB: to make the code work, you must have a reference to "Microsoft Forms 2.0 Object Library" (this file can be found at C:\windows\system32\FM20.dll on 32-bit machines, or at C:\Windows\sysWOW64\FM20.dll on 64-bit machines), otherwise you'd get the error "User-Defined type not defined".

You can empty the clipboard before testing the above code by using the code below. Please paste it in a module.

Private Declare Function OpenClipboard Lib "User32.dll" _
(ByVal hWndNewOwner As Long) As Long
  
Private Declare Function EmptyClipboard Lib "User32.dll" () As Long
 
Private Declare Function CloseClipboard Lib "User32.dll" () As Long
 
Public Sub ClearClipboard()
    Dim Ret
  
    Ret = OpenClipboard(0&)
    If Ret <> 0 Then Ret = EmptyClipboard
    CloseClipboard
End Sub

EDIT: you may also determine if the clipboard is empty by using this code:

Private Declare Function CountClipboardFormats Lib "user32" () As Long

Sub Sample()
    If (CountClipboardFormats() = 0) = True Then
        MsgBox "Clipboard is empty"
    Else
        MsgBox "Clipboard is not empty"
    End If
End Sub