Hjælp til SendKeys - Kopiering

Hej Alle,

Jeg sidder med en opgave hvor jeg skal bruge access til at hente noget tekst fra et andet program. Jeg bruger følgende kode:

SendKeys ("%{TAB}")

PauseTime = 1
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop

SendKeys ("%R")
SendKeys ("A")

PauseTime = 1
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop

SendKeys ("^(C)")

Det den skal er at TAB'e over til mit andet program. Gå ind i Rediger menuen, Trykke A (for så at markere alt) og trykke CTRL + C for at kopiere det markerede til mit clipboard. Jeg ved at jeg kan gøre det manuelt så den del virker. Og med det her system går den over, får markeret det hele og så forsvinder markeringen (Dette sker også når jeg manuelt kopierer) - Men når jeg så går over i notepad eller lign så har den ikke kopieret noget.

Er der nogen der kender grunden til dette eller har en bedre løsning?