Excel Makro (SAP Scripting API)

Hallo zusammen,
ich habe eine Fehlermeldung in meiner programmierten Makro mit SAP GUI Scripting und vielleicht hat jemand eine Idee wie ich es beheben kann.
Aktuell geht die erstellte Excel Makro in ein bestimmte Transaktion im SAP System und klickt auf den Button "Tabellenkalkulation". Daraufhin öffnet sich Excel und die Daten aus dem SAP System werden in der Excel Datei dargestellt und abgespeichert. Jedoch lass ich die Makro durchlaufen, öffnet sich nicht automatisch die Excel Datei sondern ich müsste die Datei mit dem Befehl open erneut öffnen. Das Problem ist nur dass ich die Daten aus der gedownloadeten Excel Datei in meine Hauptdatei kopiere und anschließend mit den Kill Befehl lösche. Wenn die Makro ohne Fehler durchgelaufen ist, möchte im Anschluss Excel die gedownloadete Excel Datei öffnen welche es aber gar nicht mehr gibt. Hat jemand ähnliche gehabt bzw. eine Idee das Problem zu lösen?
Danke für alle Ideen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() If Not IsObject(SAPApplication) Then Set SapGuiAuto = GetObject("SAPGUI") Set SAPApplication = SapGuiAuto.GetScriptingEngine End If If Not IsObject(sapConnection) Then Set sapConnection = SAPApplication.Children(0) End If If Not IsObject(SAPsession) Then Set session = sapConnection.Children(0) End If If IsObject(WScript) Then WScript.ConnectObject SAPsession, "on" WScript.ConnectObject Application, "on" End If session.findById("wnd[0]").maximize session.findById("wnd[0]/tbar[0]/okcd").Text = "kob1" session.findById("wnd[0]").sendVKey 0 session.findById("wnd[0]/tbar[1]/btn[8]").press session.findById("wnd[0]/tbar[1]/btn[43]").press session.findById("wnd[1]/tbar[0]/btn[0]").press session.findById("wnd[1]/usr/ctxtDY_PATH").Text = "C:\SAP\scc20" session.findById("wnd[1]/usr/ctxtDY_PATH").SetFocus session.findById("wnd[1]/usr/ctxtDY_PATH").caretPosition = 12 session.findById("wnd[1]/tbar[0]/btn[0]").press session.findById("wnd[0]/tbar[0]/okcd").Text = "/n" session.findById("wnd[0]").sendVKey 0 MsgBox ("test") End Sub

Hier die vollständige Makro:
Option Explicit
Public SapGuiAuto, WScript, msgcol
Public objGui As GuiApplication
Public objConn As GuiConnection
Public session As GuiSession


Sub test()
Application.DisplayAlerts = False
Workbooks("xyz").Worksheets("Einstellungen").Range("O4:O40").Copy
Set SapGuiAuto = GetObject("SAPGUI")
Set objGui = SapGuiAuto.GetScriptingEngine
Set objConn = objGui.Children(0)
Set session = objConn.Children(0)
session.FindById("wnd[0]").Maximize
session.FindById("wnd[0]/tbar[0]/okcd").Text = "/nksb1"
session.FindById("wnd[0]").SendVKey 0
session.FindById("wnd[0]/tbar[1]/btn[8]").Press
session.FindById("wnd[0]/tbar[1]/btn[43]").Press
session.FindById("wnd[1]/usr/cmbG_LISTBOX").SetFocus
session.FindById("wnd[1]/tbar[0]/btn[0]").Press
session.FindById("wnd[1]/usr/ctxtDY_PATH").Text = "hier der Dateipfad"
session.FindById("wnd[1]/usr/ctxtDY_FILENAME").Text = "export.XLSX"
session.FindById("wnd[0]/tbar[0]/okcd").Text = "/n"
session.FindById("wnd[0]").SendVKey 0
Workbooks.Open ("hier der Dateipfad")
Workbooks("export").Worksheets("Sheet1").Range("A1:O10000").Copy
Workbooks("xyz").Activate
Workbooks("xyz").Worksheets("xx").Select
Workbooks("xyz").Worksheets("xx").Range("A1").PasteSpecial Paste:=xlPasteValues
'Datei schließen
Workbooks("export").Close savechanges:=False
'Löschen der erstellen Excel Datei
Kill "hier der Dateipfad"
End Sub

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel Makro (SAP Scripting API)

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread