Option Explicit
Sub SaveActiveWorkbookAsXlsx()
With ActiveWorkbook
Dim strPath As String
Dim strNewName As String
'Dateipfad mit Backslash am Ende
strPath = IIf(Right$(.Path, 1) <> "\", .Path & "\", .Path)
'Dateiname ohne Dateiendung
strNewName = IIf(InStrRev(.Name, ".") > 0, Left$(.Name, InStrRev(.Name, ".") - 1), .Name)
Call .SaveAs(Filename:=strPath & strNewName, FileFormat:=xlOpenXMLWorkbook)
End With
End Sub
Hinweis: Die Dateiendung ergibt sich aus dem angegebenen FileFormat.
Wie ralf_b bereits anmerkte, man muss die Doku genau lesen (den Teil mit welche Methode hat welche Parameter). 
Grüße
|