Hallo zusammen,
ich habe folgendes Problem mit meinem an sich gut funktionierenden Code.
Mit einem VBS wird aus SAP eine xlsx-Datei erzeugt und anschließend geöffnet.
Set WSHShell = CreateObject("Wscript.Shell")
WSHShell.Run """X:\Pfad\Script.vbs""", , 1
Set WSHShell = Nothing
'
Workbooks.Open Filename:= _
"X:\Pfad\Datei.xlsx"
... es folgt weiterer Code mit dem die Daten aus der xlsx-Datei verarbeitet werden, anschließend wird die xlsx-Datei geschlossen.
Windows("Datei.XLSX").Activate
ActiveWindow.Close
Nach Beenden des Codes wird die xlsx-Datei erneut geöffnet. Erzeuge ich sie manuell aus SAP heraus, wird sie automatisch geöffnet. Mein Ansatz war daher Workbooks.Open Methode zu entfernen. Dies führt aber nicht zum gewünschten Erfolg. Ich vermute es hängt irgendwie mit dem Teil ", , 1" von WSHShell.Run ... zusammen.
Ich habe schon hier und auf ähnlichen Seiten:
https://www.script-example.com/themen/run_external_in_vbscript.php
nach anderen Varianten gesucht, bin aber nicht wirklich weiter gekommen.
Danke für eure Hilfe.
Thorsten