Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel Datei per Makro schließen
#11
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
Antworten Top
#12
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.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#13
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.
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#14
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
Antworten Top
#15
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
Antworten Top
#16
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!?
Antworten Top
#17
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
Antworten Top
#18
Hallo,

ich nehme an ich muss lediglich Deine Codezeile zum Öffnen der Datei anstatt meiner im bestehenden Code einfügen, oder?
Antworten Top
#19
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste