Excel Daten nach SAP senden SAP akt. Fenster
13.01.2009 10:45:14
Lutz
mit dem nachfolgendem Code soll von Excel aus eine Transaktion in SAP gestartet,
und mit einem Wert vorbelegt werden.
Das funktioniert auch.
Wie kann ich den Rechner jetzt so steuern, dass SAP als aktives Fenster angezeigt wird?
Danke für die Hilfe.
Lutz
'Technischen Platz in SAP-PM aufrufen
Private Sub CommandButton2_Click()
Dim thnr As String
Dim sh As Worksheet
Dim actzell As Range
Dim fehleranzeige
thnr = ActiveCell.Offset(0, 5)
Set sh = ActiveWorkbook.Sheets("Prüftabelle_TH")
Set actzell = ActiveCell
On Error GoTo fehler 'SAP-PM nicht aktiv
Dim SapGuiAuto, Application, connection, session, WScript
If Not IsObject(Application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set Application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = Application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject Application, "on"
End If
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "/nil02"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtIFLO-TPLNR").Text = thnr
session.findById("wnd[0]/usr/ctxtIFLO-TPLNR").caretPosition = 10
session.findById("wnd[0]").sendVKey 0
'Hier soll das SAP-Fenster aktiviert werden
Exit Sub
fehler:
Hide
actzell.Select
MsgBox "Bitte erst SAP-PM starten! ", vbExclamation, "Fehler"
End Sub
Anzeige