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

Question

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

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

我使用错误处理来解决剪贴板为空的情况,只要我将错误陷阱设置为未处理错误的中断,一切都很好.

但是,由于无关的原因,我想将错误陷阱设置为中断所有错误,这会在DataObj.GetText找到空剪贴板时引发错误.是否有任何类型的测试我可以进一步上游应用以避免尝试处理空剪贴板？

Answer 1

这有帮助吗？

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

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

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

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

编辑:OP的新请求

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

Answer 2

希望这有助于其他人:

我在siddharth-rout发布的代码上收到错误"用户定义的类型未定义"

原来"Microsoft Forms 2.0对象库"库丢失/未激活.

得到了它(http://excel-macro.tutorialhorizo​​n.com/vba-excel-reference-libraries-in-excel-workbook/):

"有时你不会在列表中找到所需的引用,比如在工具/引用列表中找不到"Microsoft Forms 2.0 Object Library",在这种情况下你需要从system32浏览FM20.DLL文件"