Extracting data direct from the clipboard, to avoid Select and Paste

[richarddawson]

I want to avoid Copy and Paste, but I have to pick up a string from a third-party website. I am trying to do this by taking a value directly off the clipboard, using this procedure.

Public tfrString As String
Public dataObj As New MSForms.DataObject

Function clipIt()
Dim jString As String
dataObj.GetFromClipboard
tfrString = dataObj.GetText
End Function

This works fine as a standalone, but when I try to use it elsewhere –

Call clipIt
And then use tfrString

I get an error message
“DataObject: GetText OpenClipBoard Failed”.

Can anyone suggest why, please?

 

[rlv01]

What about something like this instead?

Function clipIt() As String
    Dim clipObj As New MSForms.DataObject
    Dim jString As String

    clipObj.GetFromClipboard
    jString = clipObj.GetText
    clipIt = jString
    Set clipObj = Nothing
End Function

BTW, I recommend you use code tags for clarity when posting code

 

[richarddawson]

Thanks for that. But, alas, I still get exactly the same trouble.

 

[Akuini]

Maybe this:

Function clipIt()
Dim dataObj As New MSForms.DataObject
dataObj.GetFromClipboard
clipIt = dataObj.GetText
End Function

Sub toGet()
MsgBox clipIt
End Sub

 

[richarddawson]

Thanks Akuini,

Very odd! It works fine on an older machine, but not a more modern one. Both are running Windows 10 & Office 365.

The older one is an HP, running 4 cores; the modern a Zoostorm, running 8 virtual - but I have tried restricting it to 4 cores - still no joy.

Any ideas?

 

[Akuini]

Thanks Akuini,

Very odd! It works fine on an older machine, but not a more modern one. Both are running Windows 10 & Office 365.

The older one is an HP, running 4 cores; the modern a Zoostorm, running 8 virtual - but I have tried restricting it to 4 cores - still no joy.

Any ideas?

I have no idea why that happen.
Let's try this one instead:

Function clipIt()
Dim dataObj As DataObject

Set dataObj = New DataObject
dataObj.GetFromClipboard
clipIt = dataObj.GetText
End Function

Note:
For using MSForms.DataObject in your code you need library “Microsoft Forms 2.0 Object Library”.
(in Visual Basic Editor (VBE) window, go to the Tools menu and select References from the drop down menu.)