Hallo Leute,
ich bin sehr neu in dem Bereich. Ich zeichne über SAP Scripts auf die ich dann über Excel ausführen möchte.
Wenn ich das Script ohne Excel ausführe funktioniert alles - nur über Excel wird im letzten Schritt ein Fehler versursacht, also wenn die Datei geschlossen werden soll... kommt der Fehler und lässt die Datei offen.
SAP Script (Username habe ich rausgenommen):
Excel VBA:
End Sub
Fehler:
Vielen lieben Dank im Voraus.
ich bin sehr neu in dem Bereich. Ich zeichne über SAP Scripts auf die ich dann über Excel ausführen möchte.
Wenn ich das Script ohne Excel ausführe funktioniert alles - nur über Excel wird im letzten Schritt ein Fehler versursacht, also wenn die Datei geschlossen werden soll... kommt der Fehler und lässt die Datei offen.
SAP Script (Username habe ich rausgenommen):
Quellcode
- 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
- Dim objExcel
- Dim objSheet, intRow, i
- Set objExcel = GetObject(,"Excel.Application")
- session.findById("wnd[0]/tbar[0]/okcd").text = "LX02"
- session.findById("wnd[0]").sendVKey 0
- session.findById("wnd[0]/usr/ctxtS1_LGNUM").text = "ODH"
- session.findById("wnd[0]/usr/ctxtS1_LGTYP-LOW").text = "902"
- session.findById("wnd[0]/usr/ctxtWERKS-LOW").text = "4000"
- session.findById("wnd[0]/usr/ctxtWERKS-LOW").setFocus
- session.findById("wnd[0]/usr/ctxtWERKS-LOW").caretPosition = 4
- session.findById("wnd[0]/tbar[1]/btn[8]").press
- session.findById("wnd[0]/mbar/menu[0]/menu[1]/menu[1]").select
- session.findById("wnd[1]/usr/ctxtDY_PATH").text = "C:\Users\NAME\Desktop\ProjektFile\TestScript"
- session.findById("wnd[1]/usr/ctxtDY_FILENAME").text = "LX02.XLSX"
- session.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 9
- session.findById("wnd[1]/tbar[0]/btn[11]").press
- session.findById("wnd[0]/tbar[0]/btn[15]").press
- session.findById("wnd[0]/tbar[0]/btn[15]").press
- Set objSheet = objExcel.Workbooks("LX02.XLSX")
- objSheet.Close
- WScript.Quit
Excel VBA:
End Sub
Fehler:
Vielen lieben Dank im Voraus.