Hallo liebes Forum,

ich habe folgendes Problem und hoffe ihr könnt mir helfen.
Mit einem VBA-Code greife ich auf SAP zu. Aus SAP werden nun verschiedene Stücklisten in Excel importiert. Dabei wird einen neue Instanz von Excel geöffnet. Meine Makros um die Dateien weiter zu verarbeiten befinden sich in der 1. Instanz. Die zu verarbeitenden Dateien in der 2.

Mit folgendem Code (im Netz gefunden) schließe ich aus der 1. Instanz heraus, die Datei MB52.xlsx (2. Instanz). Soweit funktioniert das sehr gut. Jetzt möchte ich aber, egal wieviele Dateien in der 2. Instanz geöffnet sind (also nicht nur die MB52) sondern alle geöffnenten Dateien schließen. Kann mir jemand sagen, wie ich den Code anpassen muss?

Sub closeForeignWB()
Dim objWB As Workbook, xlApp As Application

On Error Resume Next
Set objWB = GetObject("M:\MB52.xlsx")

If Not objWB Is Nothing Then
If objWB.Parent.Workbooks.Count = 1 Then Set xlApp = objWB.Parent
objWB.Close True
If Not xlApp Is Nothing Then xlApp.Quit
End If

Set objWB = Nothing
Set xlApp = Nothing

End Sub

Danke vorab für Eure Hilfe.
LG Nikki