非常重要:在实现此代码之前,您必须首先设置对“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
.Paste
方法了。我通常使用范围,然后会用类似myRangeVariable.Text = "some text"
的东西将文本放置在那里。我可能是误导了,但我认为这种方式更快。但我知道当我需要粘贴时,尝试解决空剪贴板问题是很困难的。而且我更喜欢不使用错误处理来完成它。 - Jon