Makro Arbeitsblattnamen ändern
16.12.2021 12:27:35
JD
ich hoffe mir kann jemand helfen.
Ich erhalte monatlich 3 Dateien, die ich in einem leeren Ordner ablege, der Dateiname ist immer anders (immer mit aktuellem Datum und Uhrzeit).
In den 3 Dateien ist der erste Reiter "Facts & Figures - CN", "Facts & Figures - US" und "Facts & Figures - HUF".
Ich möchte nun mit einem Makro die 3 Dateien öffnen und den Arbeitsblättern den gleichen Namen geben z.B. "Facts & Figures".
Bisher bin ich soweit gekommen. Kann mir jemand helfen?
Sub OpenFiles()
Const FILE_PATH As String = "W:\06_ABC\Daten\"
Dim MyFile As String
MyFile = Dir$(FILE_PATH & "*.xlsx")
Do Until MyFile = ""
Workbooks.Open Filename:=FILE_PATH & MyFile
MyFile = Dir$
Loop
End Sub
Anzeige