Nach workbooks.open wieder schliessen
06.12.2016 09:12:37
Julia
arbeite mit einer Hauptdatei, in der sich auch das Makro befindet (Thisworkbook) und einer zweiten Datei, die ich öffnen will, bestimmte Dinge kopiere und anschließend, nach dem Einfügen in die Hauptdatei, wieder schließen will.
Jetzt ist es aber so, dass diese zweite Datei immer einen anderen Dateinamen hat (siehe Filename "...Range("A1").Text..."
Wie bekomme ich die zweite Datei wieder geschlossen (soll nicht gespeichert werden)bevor das Makro fertig durchgelaufen ist?
Ich wäre dankbar wenn mir da jemand hilft.
Viele Grüße an alle
Julia
Hier der entspr. Ausschnitt aus dem Code:
Workbooks.Open Filename:="D:\" & "\" & Worksheets("DATEN-IN").Range("A1").Text & ".xlsx", UpdateLinks:=3, Notify:=False
Range("12:300").Copy
ThisWorkbook.Activate 'Datei in der sich auch das Makro befindet wieder aktiv setzen
Worksheets("DATEN-IN").Activate 'Arbeitsblatt Aktiv setzen
'einfügen in erste freie Zeile :
Sheets("DATEN-IN").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Anzeige