Hallo,

aus Excel gehe ich nach SAP um mir einen Bericht zurück nach Excel zu holen und diesen dann in Excel zu formatieren und zu sortieren.
In SAP anmelden und den Export aus SAP erstellen funktioniert.
Wenn ich am Ende des Scripts dann versuche die Datei anzusprechen, z. Bsp. mit 'Workbooks.("export.xlsx").activate oder irgendeinen anderen Befehl, erhalte ich einen Fehler und die Datei export.xlsx ist nicht sichtbar, auch wenn ich vorher ein Application.wait oder wscript.sleep verwende. Setze ich aber einen Halt beim activate-Befehl, wird die "export.xlsx" sichtbar, ist aktiv und kann bearbeitet werden. Der activate-Befehlt funktioniert dann auch und das Script läuft weiter. Ein Workaround wäre sicherlich das Script an der Stelle zu beenden und den Rest über ein zusätzliches Script zu starten.
Das wäre aber unschön.
Hat jemand von Euch eine Idee, wie ich das lösen kann?
Ich habe heute auch schon einige Stunden recherchiert, konnte aber keine Lösung finden.
Versionen: Excel 365 und SAPGui 750.

Vielen Dank und Gruß
Wolfgang

Hallo Scriptman,

vielen Dank für Deine Antwort und sorry, dass ich Thema unter der falschen Rubrik eingegeben habe. Vielleicht könntest Du das korrigieren und der richtigen Rubrik zuordnern.
Ich habe den von Dir genannten Link angesehen und den Code bei mir angepasst. Der Code läuft auch im Debugging-Modus, wenn ich einen Halt einfüge bei mir durch. Sobald ich es durchlaufen lasse, kommt die Fehlermeldung, dass die personal.xlsb gesperrt ist, da die Export-Datei in einer neuen Instanz geöffnet wird. Auch wenn ich application.enableevents und application.displayalerts auf false setze, führt das zu keiner Verbesserung. Excel hängt sich auf und kann auch nicht mehr mit der Tastenkombi STRG-Pause unterbrochen werden. Es hilft nur ein Killen des Prozesses. Ich habe bei der Recherche keinen Hinweis gefunden, wie ich via VBA verhindern kann, dass bei einer neuen Instanz die Inhalte des XLSTART-Ordners nicht mitgestartet werden.
Anbei der Ausschnitt aus meinem Code:
...................
.findById("wnd[1]/tbar[0]/btn[11]").press
End With

'# Export-Datei beenden
Application.EnableEvents = False
Application.DisplayAlerts = False
SAP_Workbook = "export.xlsx"
On Error Resume Next
Do
Err.Clear
Set xclApp = GetObject(, "Excel.Application")
If Err.Number = 0 Then Exit Do
'msgbox "Wait for Excel session"
WScript.sleep 2000
objSess.findById("wnd[0]").Iconify
objSess.findById("wnd[0]").Maximize
Loop
' Application.EnableEvents = True
' Application.EnableEvents = False

Do
Err.Clear
Set xclwbk = xclApp.Workbooks.Item(SAP_Workbook)
If Err.Number = 0 Then Exit Do
'msgbox "Wait for SAP workbook"
WScript.sleep 2000
Loop
Application.DisplayAlerts = True
Application.EnableEvents = True

On Error GoTo 0
Set xclsheet = xclwbk.Worksheets(1)

xclApp.Visible = True
xclApp.DisplayAlerts = False

xclApp.ActiveWorkbook.Close


Set xclwbk = Nothing
Set xclsheet = Nothing
xclApp.Quit
Set xclApp = Nothing
...............
Ich möchte mich noch einmal besonders bei Dir bedanken, weil mir Deine Antworten in diesem Forum schon oft geholfen und mich weiter voran gebracht haben.

Viele Grüße
Wolfgang

Hallo
Ich neu hier im Forum und das ist sozusagen mein erster Beitrag. Eigentlich habe ich mich hier angemeldet weil ich auf der Suche nach einer Anbindung für Kyocera Drucker unter SAP bin und dann fiel gleich dieser Beitrag ins Auge. Ich bin keine großer SAP User oder VBA Programmierer aber dennoch habe ich es geschafft ein Tool für unser Unternehmen zu schreiben bei dem man mit einem Scanner TA-Nummern erfasst und diese dann mit LT12 automatisch quittiert und danach wird mit LT22 eine Liste mit noch allen offenen Positionen gezogen. Ich glaube oder ich vermute mal das Problem zu kennen.Im VBA Script kommt die Anweisung zB. wie bei mir eine LT22 Liste zu exportieren und du versuchst die Daten dann einzulesen und Excel findet die Instanz nicht denn sie ich nicht da , oder noch nicht da denn die Instanz kommt von SAP. Seltsamerweise hatte ich diese Probleme vorher nicht und mit vorher meine ich vor Office365. Zusätzlich zu Office365 kam noch dazu das die Export.xlsx sich immer in den Vordergrund geschoben hatte. Gelöst habe ich das bzw. der Zufall hat es für mich gelöst indem ich das Script in eine Userform gepackt und diese beim starten Excel mit Application.visible = false versteckt habe.
Eine zweite Möglichkeit wäre, die mir jetzt gerade beim schreiben einfällt und die ich später mal testen werde ist: Ich erstelle eine leere Access Datenbank und in dieser eine Verknüpfung zur Export.xlsx. Access schließen und Export löschen und im Script in einer Schleife bis dir(exportt.xlsx)=true und dann in Excel mit ADODB zugreifen.
Soviel zu meinem ersten Beitrag und ich hoffe mal er ist nützlich