Copy a cell to the clipboard: simple macro stopped working

[terrypin]

I can't recall where I pasted it from last year, possibly here, but the macro below used to work sweetly. However it now fails consistently, placing '??' on the clipboard instead of the text in cell B3.

<code>Sub CopyTrackDescrToClipbrd()
' Copies text contents of B3 in active TrackDataSheet to clipboard
' Remains on clipboard after macro finishes
Dim MyData
Set MyData = New DataObject
MyData.SetText Range("B3")
MyData.PutInClipboard
End Sub</code>

Elsewhere I read this: "There is a known bug in the Dataobject if you are using Windows 8 or later. It is safer to use Windows API calls for copying text from the clipboard."
But, as a VBA novice and non-programmer, I don't know how to do that.

I've done quite a lot of searching and am surprised I've so far not found a simple (reliable) piece of code to do such a commonplace task as copy a cell to the Windows clipboard!

Terry, East Grinstead, UK

 

[MickG]

Ref:- later versions of Office/windows:-
If you have "File Explorer" or possibly other applications OPEN this is what happens with "DataObjects"!!!!

 

[RoryA]

Please read and comply with the forum rules on cross-posting. This is not the first time, so please make sure it's the last time you need to be reminded.

 

[terrypin]

Ref:- later versions of Office/windows:-
If you have "File Explorer" or possibly other applications OPEN this is what happens with "DataObjects"!!!!

Thanks. Sounds a severe limitation then! Is there a suggested solution?

Terry, East Grinstead, UK

 

[terrypin]

Well, this was not really what I understand as a cross-post! It was a follow-on from the one I made two days ago in the Excel Forum.
https://www.excelforum.com/excel-pr...tents-to-clipboard-now-fails.html#post4915059

As you see, I've failed so far to get a solution there. So I came here, adding more information, and hoping to make further progress.

And I'll probably pursue the problem elsewhere too.

If that puts subscribers off trying to help, so be it.

Terry, East Grinstead, UK

 

[RoryA]

A cross-post is simply posting the same question in more than one forum. The forum rules explain why we ask you to provide links so, should you pursue it on other forums too, we'd expect links to those posts as well as a courtesy.

 

[terrypin]

Solution by xlnitwit in post #12 of the earlier thread. My working code is now:

Sub CopyTrackDescrToClipbrd()
' Copies contents of B3 in active TrackDataSheet to clipboard
' Remains on clipboard after macro finishes
    Range("B3").Copy
End Sub

Terry, East Grinstead, UK