Wie in VBA Ende von Bat Datei abwarten?
Bat
auch wenn es nicht so heiß wäre, fiele mir keine Lösung für folgendes Problem ein.
Ich starte in meinem VBA Code eine oder mehrere Bat Dateien.
Bis diese allerdings ausgeführt sind, ist der VBA Code ja schon viel weiter.
Wie kann ich im Code festlegen, dass der VBA Code erst weitergeht, wenn
die Bat Datei ausgeführt wurde. Hier mal ein Auszug aus meinem Code:
Sub Bat
strShellBatches = Array("GetPublishesSMP.bat", "GetPublishesACC.bat", "GetPublishesPHO.bat", " _
_
GetPublishesHDS.bat")
strShellMasterFiles = Array("Master Publishes SMP.xlsx", "Master Publishes ACC.xlsx", " _
Master Publishes PHO.xlsx", "Master Publishes HDS.xlsx")
For lngT = LBound(strShellBatches) To UBound(strShellBatches)
strShellBatches(lngT) = Pfad & strShellBatches(lngT)
If Dir(strShellBatches(lngT)) = "" Then
MsgBox "Die erforderlichen Batchdateien sind nicht vorhanden, bitte prüfen!", _
vbCritical
End If
Shell strShellBatches(lngT), 1 'HIER HAKT ES!!!!!!!!!!
Next lngT
For lngT = LBound(strShellMasterFiles) To UBound(strShellMasterFiles)
For Each wb In Workbooks
If wb.Name = strShellMasterFiles(lngT) Then
Workbooks(strShellMasterFiles(lngT)).Save
Workbooks(strShellMasterFiles(lngT)).Close , False
End If
Next wb
Next lngT
OverViewWB.Activate
MsgBox "Alle erforderlichen SQL Statements wurden erfolgreich ausgeführt", vbInformation
End Sub