MyData.GetFromClipboard

[hawley]

I am trying to see if there is anything in the clipboard. The below code works when there is something in the clipboard but, if there is nothing I get a run time error on the bolded blue line of:
run time error'-2147221404(80040064)':
DataObject:GetText Invalid FORMATETC structure

Why is this and how can I change this so it won't blow up?
____________________________________
Dim MyData As New DataObject
Dim strClip As Variant

MyData.GetFromClipboard
strClip = MyData.GetText

If Not (IsNull(strClip)) Then
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
___________________________________________

Thanks in advance!!

 

[DRJ]

Try

If MyData.GetFromClipboard is nothing then
msgbox "Nothing in clipboard"
else
strClip = MyData.GetText
end if

If that doesn't work then try

On Error Resume Next

MyData.GetFromClipboard
strClip = MyData.GetText

If Err <> 0 then
msgbox "Nothing in clipboard"
else
end if

On Error Goto 0

 

[hawley]

Thanks for the suggestions. Here is what happened.

First one:
I get a compile error on the bolded blue line:
Compile Error:
Expected Function or variable
_______________________________
Sub Format_Sheet()
Dim MyData As New DataObject
Dim strClip As String

If MyData.GetFromClipboard Is Nothing Then
msgbox "Nothing in clipboard"
strClip = MyData.GetText
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
_______________________________



Second one:
I get the same run time error as I got the last time.
run time error'-2147221404(80040064)':
DataObject:GetText Invalid FORMATETC structure
_________________________________________________
Dim MyData As New DataObject
Dim strClip As String

MyData.GetFromClipboard
strClip = MyData.GetText

If Err <> 0 Then
MsgBox "Nothing in clipboard"
Else
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If

On Error GoTo 0
_________________________________________________________



I even tired a third option and get the same result as the first option.
________________________________________________________
MyData.GetFromClipboard
If (MyData.GetText) Is Nothing Then
strClip = MyData.GetText
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
________________________________________________________

 

[DRJ]

Dim MyData As New DataObject
Dim strClip As String

MyData.GetFromClipboard
strClip = MyData.GetText

If Err <> 0 Then
MsgBox "Nothing in clipboard"
Else
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If

On Error GoTo 0


You need to put On Error Rume Next to skip the error

Like

On Error Resume Next

MyData.GetFromClipboard
strClip = MyData.GetText

More code.

 

[hawley]

Thank you!!! It is always the small things that get me. Here is what I ended up doing.
______________________________________
Sub Format_Sheet()
Dim MyData As New DataObject
Dim strClip As String
On Error GoTo NotText
MyData.GetFromClipboard
strClip = MyData.GetText
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
NotText:
'don't want anything to happen.
End Sub
___________________________________________

 

[DRJ]

Glad to help.