Copy and pasting using sendkeys with VBA

[ZaxAlchemist]

I'm trying to create a Macro to use sendkeys command to copy the value of a cell and paste on another application.

It goes like this:

Sub Inicio()

SendKeys "{F2}"
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "^a"
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "^c"
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys ("%{TAB}")
Application.Wait (Now + TimeValue("00:00:01"))
SendKeys ("^v")
Application.Wait (Now + TimeValue("00:00:01"))
SendKeys ("~")

End Sub

I'm using the sequence F2 > ^a > ^c, because I need to copy the CONTENT of the cell. If I try using "selection.copy", the destination application won't accept the value.

The code runs, but it basically only executes the "%{TAB}" command and the "~" command, everything else gets "missing"....

Do I need to have any specific reference marked? Is there something that I'm doing wrong?

 

[SofianeR]

ok thank you so much for your reply.
is the program above using sendkeys can be used for my problem ?

 

[Fluff]

Duplicate to: Copy and paste excell cell data to another software with sendkeys or API

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.