SAP mit Excel (VBA) steuern
13.12.2004 11:51:54
Alex
Ich möchte gerne mittels eines VBA Scripts auf SAP/R3 zugreifen um einige Daten zu übertragen. Es sollen aus einer Excel Tabelle Materialnummern, Positionen usw übertragen werden. Davor muss die Auftragsnummer in ein Fenster eingegeben werden.
Ich habe das schon mittels SendKeys probiert, habe allerdings Probleme weil nur etwa jeder zehnte Versuch funktioniert. Warum es nicht klappt weiss ich nicht. Hat jemand eine Idee woran es liegt? Hier mein Script:
Sub SAP_Testbef()
Dim Nummer, Pos
Nummer = InputBox("Gib' bitte die WA Nummer ein.", "Hallo.", "...", 0, 1760)
Pos = Nummer & "-0" & Sheets("Start").Range("prof2").Value / 100
Sheets("Start").Select
Range("c25").Value = Nummer
Range("c26").Value = Pos
Range("c26").Select
Selection.Copy
AppActivate ("Servicemeldung ändern: Einstieg")
SendKeys "~^c", True
Application.WindowState = xlNormal
Sheets("Profitest KV2").Select
Rows("8:14").Select
Selection.Copy
Application.WindowState = xlMinimized
SendKeys "{down 2}", True
SendKeys "^{left 2}", True
SendKeys "~^v", True
SendKeys "^s", True
Application.WindowState = xlNormal
Sheets("Start").Select
End Sub
Ich habe auch schon versucht alle SendKey Anweisungen in eine Zeile zu schreiben, das hat aber auch keine Besserung gebracht.
Kann ich vielleicht auch was mit der "SAPOFFICEINTEGRATIONEXCEL97PROXYLib" anfangen? Im Objektexplorer gibt es dazu leider keine Hilfe.
Ach ja, Excel gut und VBA gut ist übertrieben, aber ich bin schon über das Macro aufzeichnen Stadium hinaus.
Vielen Dank für die Hilfe.
Alex