Ich habe folgendes Problem und finde trotz langer Suche keine Lösung:
So sieht mein Makro aus:
Sub Datenholen()
Dim WshShell As Object
Range("A7:C8").Copy
Range("A16").Select
Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "Saperion"
WshShell.SendKeys "{ENTER}"
Application.Wait TimeSerial(Hour(Now()), _
Minute(Now()), Second(Now()) + 1)
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{End}"
Application.Wait TimeSerial(Hour(Now()), _
Minute(Now()), Second(Now()) + 1)
WshShell.SendKeys ("zei mitglied")
WshShell.SendKeys "{ENTER}"
Application.Wait TimeSerial(Hour(Now()), _
Minute(Now()), Second(Now()) + 1)
WshShell.SendKeys "^(v)"
WshShell.SendKeys "{ENTER}"
Application.Wait TimeSerial(Hour(Now()), _
Minute(Now()), Second(Now()) + 1)
Application.CutCopyMode = False
PrintTheScreen 'Makro für Hardcopy
ThisWorkbook.Activate
ActiveSheet.Paste
Set WshShell = Nothing
End Sub
Ich mache also in einer fremdem Anwendung eine Hardcopy.
Diese will ich dann bei Zelle A16 einfügen.
Alles klappt bis auf die Sache mit ThisWorkbook.Activate
Es wird also nicht zurück zu meiner Excel-Datei gewechselt.
Warum?
Gruß
Werner