Excel Datei per Makro schließen

[sunny01]

Hallo Schauan,

danke Dir für die Antwort. Ich habe den Code (siehe unten) ausprobiert und in Modul 1 integriert, funktioniert aber noch nicht. Vielleicht fällt Dir bei dem Code der Fehler auf!? 

Code:

Sub Close_Data()

   Application.DisplayAlerts = False
   Workbooks(ThisWorkbook.Path & "Test.xlsm").Close savechanges:=False
   ThisWorkbook.Saved = True
   ThisWorkbook.Close
   Application.DisplayAlerts = True
   
End Sub

[schauan]

Hallöchen,

Workbooks(ThisWorkbook.Path & "Test.xlsm").Close savechanges:=False

So geht das nicht. Maximal
Workbooks("Test.xlsm").Close savechanges:=False

und nochmal mein Hinweis

wenn Du über Fehler berichtest solltest Du sie auch genauer beschreiben.

In der Regel erhälst Du eine Meldung und eine Zeile im Code ist gelb hinterlegt.

[snb]

Wenn beide Dateien geöfnnet sind kannst du die speichern asl Namespace (.xlw).
Wenn du spater die .xlw öffnest werden alle Dateien simultan geöffnet.

[sunny01]

Hallo,

vielen Dank für Eure Antworten und den Hinweis auf die .xlw Dateien (ich werde das noch ausprobieren). Mittlerweile konnte ich die Ursache bei meinem Code einschränken. Wenn ich die zweite Datei "manuell" nach der ersten Datei starte funktioniert der zuletzt angegebene Code (mit der Ergänzung von Schauan). Es scheint also am Makro zum Starten der Datei zu liegen, ich habe den Code unten angegeben. Eventuell weiß jemand von Euch, was das Schließen der Datei ev. bereits im Code zum Starten verhindert !?

Code:

Sub Open()

   Application.ScreenUpdating = False
   Set obj = CreateObject(Class:="Excel.Application")

   obj.Workbooks.Open Filename:=ThisWorkbook.Path & "\Test.xlsm"
   obj.WindowState = xlMinimized

   Application.ScreenUpdating = True

End Sub

[Kuwer]

Hallo,

Sub Oeffnen()
 Application.ScreenUpdating = False
 Workbooks.Open(ThisWorkbook.Path & "\Test.xlsm").Windows(1).Visible = False
 Application.ScreenUpdating = True
End Sub

Sub Schliessen()
 Workbooks("Test.xlsm").Close False
End Sub

Gruß Uwe

[sunny01]

Hallo Uwe,

danke dir für die Rückmeldung. Das Wichtige in meinem Makro ist, dass ich die geöffnete Datei als Objekt in andere Codes integrieren möchte, da ich auf Daten in dieser Datei zugreife. Vielleicht lässt sich das in Deinen Code integrieren!?

[Kuwer]

Hallo,

Das Problem mir meinem Makro ist, dass ich die geöffnete Datei als Objekt in andere Codes integrieren möchte, da ich auf Daten in dieser Datei zugreife. Vielleicht lässt sich das in Deinen Code integrieren!?

wie hast Du es denn momentan integriert?

Gruß Uwe

[sunny01]

Hallo,

ich nehme an ich muss lediglich Deine Codezeile zum Öffnen der Datei anstatt meiner im bestehenden Code einfügen, oder?

[Kuwer]

Hallo,

ich nehme an ich muss lediglich Deine Codezeile zum Öffnen der Datei anstatt meiner im bestehenden Code einfügen, oder?

ja.

Gruß Uwe