excel - 使用 GetText 从剪贴板获取文本 - 避免空剪贴板上出现错误

Question

我正在使用这样的代码从剪贴板获取文本。

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

我使用错误处理来解决剪贴板为空的情况，只要将“错误捕获”设置为“未处理错误时中断”，一切都很好。

但是，由于不相关的原因，我想将“错误捕获”设置为“发生所有错误时都中断”，这会在发现空剪贴板时在 DataObj.GetText 处引发错误。我可以在上游应用任何类型的测试来避免尝试处理空剪贴板吗？

Answer 1

使用 On Error GoTo 处理错误，如下所示:

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

您会注意到它也可以处理空剪贴板。

注意:要使代码正常工作，您必须 have a reference到“Microsoft Forms 2.0 对象库”(此文件可以在 32 位计算机上的 C:\windows\system32\FM20.dll 中找到，或在 C:\Windows\sysWOW64\FM20.dll(在 64 位计算机上)，否则您会收到错误“用户定义的类型未定义”。

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

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

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

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