VBA-Code funktioniert nicht bei Punkt-Dateinamen
Wolfango
untenstehendes Makro habe ich vor einiger Zeit über dieses Forum bekommen.
Mit Hilfe des Makros lassen sich geöffnete Excel-2003-Datein mit einem Klick in das xlsx-2010-Format überführen.
Nun habe ich eine Reihe von Dateien bei denen der Dateiname ein bis drei Punkte enthält.
(z.B. 11.000.55.xls; aber uneinheitlich, was die Position der Punkte betrifft)
Und damit funktioniert der Code nicht mehr, da er offenbar darauf basiert, dass es nur einen einzigen Punkt zur Trennung der Dateinamenserweiterung gibt.
Gibt es eine Möglichkeit den Code so abzuändern, dass das keine Rolle mehr spielt wieviele Punkte im Dateinamen vorkommen?
Danke und Gruß,
Wolfgang Hahn
Sub Abspeichern_im_2010Format_dann_schließen__2()
Dim strWB As String
With ActiveWorkbook
strWB = Left(.Name, InStrRev(.Name, ".") - 1)
.SaveAs _
Filename:=ActiveWorkbook.Path & "\" & strWB & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
.Close
End With
End Sub