Datei umbennen per VBA
19.04.2016 17:40:19
Chris
ich habe ein kleines Problem an dem ich derzeit hänge.
Ich wähle per Schaltfläche eine Import-Excel-Datei aus und kopiere ein paar Zellen in meine aktive Datei. Die Import-Excel-Datei kann in unterschiedlichen Verzeichnissen liegen und auch unterschiedliche Dateinamen haben.
Ich möchte jetzt nach dem Importieren die Import-Excel-Datei so umbennennen, daß hinter dem jetzigen Dateinamen "_importiert" steht.
Folgender Code öffnet die Datei:
ImportDatei = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Dateien (*.xlsx), *.xlsx", Title:="Eine Datei auswählen")
If ImportDatei = False Then Exit Sub
Set wbImport = Workbooks.Open(ImportDatei) 'ImportDatei ist kompletter Dateipfad inkl. Dateiname
Dann kommen die Kopieranweisungen und am Schluß:
wbImport.Close savechanges:=False
Set wbImport = Nothing
Könnt ihr mir hier bitte weiterhelfen?
Grüße Chris