copy string to clipboard

[cpampas]

hello,
Is there a way to copy a string to the clipboard, and after that to be able to press the keys ctrl+V to paste it ?

 

[theDBguy]

You can use Windows API.

Send information to the Clipboard

Office VBA reference topic

learn.microsoft.com

 

[GaP42]

Refer to this link:
https://www.access-programmers.co.uk/forums/threads/copy-text-to-clipboard.306859/

 

[kyforests]

hello,
Is there a way to copy a string to the clipboard, and after that to be able to press the keys ctrl+V to paste it ?

The code the theDBguy and GaP42 suggest works for me without issue. However, to use that code on my 64bit machines, I had to replace "Delcare Function" with "Declare PtrSafe Function". I also had to replace "long" with 'LongPtr". I can't say I understand why that is but that was the answer I found after not being able to make the original code work.

Good luck.

 

[Gasman]

A quick Google would reveal a lot of links, one of which would not be affected by the bitness of Access ?

How To Use VBA Code To Copy Text To The Clipboard

There may be instances where you create a macro that reads in text and sticks it in your computer's clipboard so you can manually paste it somewhere else. The most prominent way to do this, is to use a DataObject variable from the Forms library (language).

www.thespreadsheetguru.com

Even if you are affected by the bug mentioned, the API version is also there, amended for bitness.

 

[CJ_London]

However, to use that code on my 64bit machines

It is not because you have a 64bit machine but because you are using 64bit access.

 

[ebs17]

Codebeispiel - Zwischenablage und Text - MS-Office-Forum

Zwischenablage und Text Microsoft Access - Code Archiv

www.ms-office-forum.net

 

[cpampas]

thank you all. I used the code Gasman suggested that works great

 

[MarkK]

Sub WriteToWindowsClipboard(Text As String)
    ' uses a late bound MSForms.DataObject
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText Text
        .PutInClipboard
    End With
End Sub

 

[Gasman]

Sub WriteToWindowsClipboard(Text As String)
    ' uses a late bound MSForms.DataObject
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText Text
        .PutInClipboard
    End With
End Sub

@MarkK Does using the GUID remove the need to add the MS Forms library?
I had to add it it to test that code and then move it up the hierarchy for the code to work.

 

[MarkK]

Yeah, that code I posted should work as is, no need for any references.