Datei beenden nach Daten holen
René
ich habe eine Datei aus der ich Daten in eine andere Datei hole. Das Makro sieht wie folgt aus
Sub Schaltfläche 1_Klicken()
Dim lRow As Long
lRow = Workbooks("Tabelle1.xlsm") _
.Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Offset(1).Row
Workbooks.Open Filename:= _
"Y:\Test2.xlsm" _
, UpdateLinks:=3
Sheets("Daten").Range("A2:U500").Copy _
Workbooks("Tabelle1.xlsm") _
.Sheets("Daten").Cells(lRow, 1)
Sheets("Daten").Range("2:500").Copy
Workbooks("Tabelle1.xlsm") _
.Sheets("Daten").Cells(lRow, 1).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
Sheets("Daten").Range("A2:U500").Delete
End Sub
Nun möchte ich gern erreichen das nach dem Daten holen die Datei "Y:\Test2.xlsm" automatisch geschlossen und gespeichert wird und die Datei "Tabelle1.xlsm" offen bleibt.Kann mir da bitte jemand helfen?
Mit
ActiveWorkbook.Close
Application.Quit
oder
Workbooks("Y:\Test2.xlsm").Close Save Change = True
habe ich es nicht hinbekommen.
MfG René
End Sub