Microsoft Excel

Herbers Excel/VBA-Archiv

Datei öffnen und umbenennen

Betrifft: Datei öffnen und umbenennen von: Pascal
Geschrieben am: 21.10.2020 14:12:54

Hallo zusammen

Ich habe folgendes Problem:
Ich öffne eine Datei via folgenden Code und kopiere ein Arbeitsblatt heraus:

Dim myFile As String
Dim YourFolderPath As Variant
YourFolderPath = "xxxx"
ChDir YourFolderPath
myFile = Application.GetOpenFilename
If myFile = "False" Then Exit Sub
Workbooks.Open Filename:=myFile

Sheets("Data").Select
Sheets("Data").Move After:=Workbooks( _
"KA.xlsm").Sheets(1)

Die Dateinamen sind variabel z.Bsp. 2010181758_32061.xlsx
Nun hätte ich gerne, dass die ausgesuchte Datei unter den neuen Namen 2010181758_32061_KAZAerledigt.xlsx die alte Datei ersetzt.

Kann hier jemand helfen? Vielen Dank!!
Pascal

Betrifft: AW: Datei öffnen und umbenennen
von: Hajo_Zi
Geschrieben am: 21.10.2020 14:17:19

Hallo Pascal,

die neue Datei hat einen neuen Namen, also lösche die alte Datei, die ja dann nicht geöffnet ist.
Speichern unter kann man mit Makrorecorder aufzeichnen.
Löschen ist Kill

GrußformelHomepage

Beiträge aus dem Excel-Forum zum Thema "Datei öffnen und umbenennen"