I wanted to copy data onto the clipboard, so that it can be pasted into another application.
The pasted data will be transposed though.
I thought it could be done with an array.
The question is: If you take data, put it in an array, rearrange the array, can it be put into the clipboard so it can be pasted into another application?
The code below is for info only, so far I create another sheet and paste data in there, then copy again to clipboard.
Please Login or Register to view this content.
Hello. Look at the following code:
As the name implies, the above does a Copy without Paste (ie: Ctrl+C).Please Login or Register to view this content.
So you have to do the Ctrl+V "by hand" in that other application you didn't give more details about.
Thanks for providing the code.
It looks like a new workbook is opened in the background.
With the array that I had, I was I was going to create another 2 arrays, based on the first array.
But this would have been in VBA so it's not seen in Excel.
Then place the 2D range in the clipboard.
It could be done by pasting into the new workbook temporarily, as per your code I think.
Do you think that 2D arrays can be placed in the clipboard, like the COPY command in Excel?
Otherwise thanks for the solution.
Attachment 801261
That is what the provided code is doing.
For example:
> Select any range.
> Run the macro
> And when finished go to another application (Word, for example) and there do Ctrl+V (Paste)...
And regarding your link I get the following:
---> Invalid attachment specified.
OK thanks.
Regarding the link, I don't know why it does that. It was a snapshot to show a 2D range/2D array.
So we know that an Excel range can be placed on the clipboard, but could an array be placed on the clipboard.
In VBA there is an object that connects to the clipboard called a DataObject. It allows you to send or receive data:
The limitation of this is that it only works with texts.PHP Code:Sub Macro1()
Dim objDataObject
Set objDataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
objDataObject.SetText "Hello."
objDataObject.PutInClipboard
End Sub
Rem o0o-o0o
Sub Macro2()
Dim objDataObject
Set objDataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
objDataObject.GetFromClipboard
Range("A1") = objDataObject.GetText
End Sub
Last edited by beyond Excel; 10-19-2022 at 01:07 PM.
OK, thanks for looking into beyond Excel.
Couldn't get it to work but I can do more research on the DataObject.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks