Datei öffnen, Daten kopieren, speichern, schließen
19.02.2016 11:08:57
Michael
ich habe folgendes Problem:
Ich habe eine Hauptdatei, die öffne ich und klick auf eine Schaltfläche. Diese Schaltfläche soll dann folgendes machen:
Öffnen einer weiteren xls-Datei.
Kopie aus dem Tabellenblatt Sheet1
Inhalt der Daten in die Hauptdatei unter Tabellenblatt Import
Speichern der xls-Datei mit Datum in einen anderen Ordner
Schließen dieser Datei
Rückkehr zur Hauptdatei
Ich habe nach und nach was gebastelt, leider speichert mir das Makro die Hauptdatei als Datei mit Datum in den anderen Ordner.
Was muss ich hier anpassen?
Vielen Dank für die Hilfe!
Gruß
Michael
Hier der Code:
Sub Import()
'Kopieren der Inhalte des Reportes von heute
Workbooks.Open Filename:="T:\CorporateActions\CapitalChange\Termindatenvorbereitung\NeoLink _
Report\ReportEarly.xls"
Workbooks("ReportEarly.xls").Sheets("Sheet1").Cells.Copy
Workbooks("Reporting.xlsm").Sheets("Import").Cells.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Windows("ReportEarly.xls").Activate
ThisWorkbook.SaveAs "T:\CorporateActions\CapitalChange\Termindatenvorbereitung\NeoLink Report\ _
_
_
_
Vergangene Reports\Reportimport_" & Format(Date$, "dd.mm.yy") & ".xls"
ActiveWorkbook.Close SaveChanges:=False
Sheets("Hauptansicht").Select
Range("A1").Select
End Sub
Anzeige