Einen schönen guten Abend :)
Ich bin ein VBA-Neuling, kenne mich also kaum aus, versuche mich aber trotzdem an ein kleines Projekt:
Mittels SAP Recorder versuche ich gewisse Schritte im SAP ablaufen zu lassen.
Wo ich aktuell hänge: Es soll aus SAP eine Datei als Tabellenkalkulation gespeichert werden. Nachdem man aus SAP eine Datei speichert, wird diese mit einem Versatz von wenigen Sekunden auch automatisch geöffnet. Ich möchte nun, dass erst abgewartet wird, bis die Datei geöffnet ist, damit diese wieder geschlossen werden kann
(bei einer anderen Datei werde ich warten müssen, bis die Datei geöffnet wurde, anschließend soll der Inhalt einer Spalte kopiert und woanders eingefügt werden, anschließend Datei wieder schließen).
Könntet ihr mir hier bitte helfen? Ich komme nicht mehr weiter - so nervig!
Hier der Code, inkl. Zeilen vom SAP-Recorder sowie auch einige Versuche von mir, die aber irgendwie nicht klappten... :(
objSess.findById("wnd[1]/usr/ctxtDY_PATH").Text = "J:\Test\Test"
objSess.findById("wnd[1]/usr/ctxtDY_FILENAME").Text = "Input_Query_Masse1.xlsx"
objSess.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 18
objSess.findById("wnd[1]/tbar[0]/btn[11]").press
geladen = False
Do
For Each wb In Workbooks
If wb.Name = "Input_Query_Masse1.xlsx" Then geladen = True
Next wb
Loop Until geladen = True
End Function
Sub DateiSchließen_ohne_speichern()
' Datei schließen
Workbooks("Input_Query_Masse1.xlsx").Close SaveChanges:=False
End Sub
Function ProcessRow1(iRow)
Dim lineitems As Long
Dim W_Tagesdatum
Dim W_QuellID
' Workbooks(„Input_Query_Masse1.xlsx“).Close
' Set objWorkbook1 = Workbooks(Input_Query_Masse1.XLSX)
' Call objWorkbook1.Close
' Set objWorkbook1 = Workbooks(Input_Query_Masse1.XLSX) 'Open("J:\Kundenservice\Verbrauchsabrechnung\Abrechnung\MOS Billing\Durchführung MOSB\Input_Query_Masse1.XLSX")
' Call objWorkbook1.RefreshAll
' Call objWorkbook1.Close(SaveChanges:=True)
' Set objWorkbook1 = Nothing |