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
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
Zitat: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.
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.
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
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
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!?
Hallo,
(31.03.2017, 10:05)sunny01 schrieb: [ -> ]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
Hallo,
ich nehme an ich muss lediglich Deine Codezeile zum Öffnen der Datei anstatt meiner im bestehenden Code einfügen, oder?
Hallo,
(31.03.2017, 11:35)sunny01 schrieb: [ -> ]ich nehme an ich muss lediglich Deine Codezeile zum Öffnen der Datei anstatt meiner im bestehenden Code einfügen, oder?
ja.
Gruß Uwe