vba - 如何检查剪贴板是否为空文本？

Question

如果我尝试从空剪贴板粘贴，则会收到错误消息。我想在粘贴之前检查剪贴板是否为空文本，以便避免这种情况。如何才能做到这一点？我知道这可以通过错误处理来完成，但我更喜欢一种避免错误的方法。

编辑 - 根据请求，添加创建错误和错误消息的代码:

导致问题的代码:

Sub PasteFromEmptyClipBoard()

    Selection.Paste

End Sub

我收到的错误消息:

“运行时错误‘4605’此方法或属性不可用，因为剪贴板为空或无效。”

Answer 1

非常重要:在实现此代码之前，您必须首先设置对“Microsoft Forms 2.0 对象库”的引用(如下面所附的屏幕截图所示)。当您滚动浏览引用库时，您可能会发现它不是一个选项。要使其显示，只需向项目添加一个表单(您可以稍后删除该表单)。

Sub CheckClipboard()

        Dim myDataObject As DataObject

        Set myDataObject = New DataObject


        myDataObject.GetFromClipboard


        If myDataObject.GetFormat(1) = True Then 

            '''There is text on clipboard, so it's safe to paste

        Else 
            '''there is no text on the clipboard, so you may get error.

        End If

End Sub