Hallo,
ich möchte gerne einige tägliche Aufgaben mithilfe von Makros automatisieren.
Habe jetzt mal mit etwas ganz einfachem angefangen:
Einen T-Code eingeben, Datum eingeben, ausführen, Resultat exportieren als Excel.
Ich habe das ganze mit dem MakroRecorder aufgenommen und dann angepasst -
also eigentlich nur das heutige Datum eingefügt.
Mein Problem jetzt ist, dass das Makro immer nur bis zum speichern unter geht,
aber die Datei nicht speichert. Dieser Teil wurde nicht mit aufgenommen.
Wie bekomme ich das Makro dazu die Datei mit dem heutigen Datum als Namen zu speichern?
Schon mal vielen Dank für eure Hilfe
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
Dim myDate
myDate = date
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "XXX"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/radP_DIFF").select
session.findById("wnd[0]/usr/ctxtS_WERKS-LOW").text = "XXX"
session.findById("wnd[0]/usr/ctxtS_LGORT-LOW").text = "XXX"
session.findById("wnd[0]/usr/ctxtS_BLDAT-LOW").text = myDate
session.findById("wnd[0]/usr/radP_DIFF").setFocus
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/tbar[1]/btn[45]").press
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").select
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").setFocus
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/usr/ctxtDY_PATH").setFocus
session.findById("wnd[1]/usr/ctxtDY_PATH").caretPosition = 0
session.findById("wnd[1]").sendVKey 4
session.findById("wnd[1]/tbar[0]/btn[0]").press
