Wie konvertiert man von xlsm zu xlsx mit dem gleichen Namen

Question

Wie kann ich das Format von xlsm zu xlsx ändern. Ich brauche ein Skript, das eine Kopie der Datei xlsm mit der Erweiterung xlsx speichert, aber den Benutzer nicht zur Eingabe des Dateinamens auffordert, der ursprüngliche Name muss beibehalten werden, das einzige, was der Benutzer tun muss, ist auszuwählen, wo er gespeichert werden soll Datei.

Answer 1

Ich denke, Sie möchten nur eine .xlxs Kopie hinzufügen nicht über Ihre Makro-fähigen Arbeitsmappe schreiben. Versuchen Sie die folgende Codezeile, es sollte funktionieren, legen Sie Ihren Arbeitsmappennamen in "Arbeitsmappenname hier eingeben", die Datei, die geöffnet bleibt, wird die XLSX-Datei sein.

Application.ScreenUpdating = False 
Application.DisplayAlerts = False 

ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & "Put Workbook Name here" & ".xlsx", FileFormat:=51, Password:="", WriteResPassword:="", _ 
ReadOnlyRecommended:=False, CreateBackup:=False 

Application.DisplayAlerts = True 
Application.ScreenUpdating = True 

Answer 2

Sie benötigen FolderPicker Funktion zu erstellen:

Sub changeext() 
Dim objFolder As Object, objFSO As Object 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder(ChooseFolder) 

ThisWorkbook.SaveCopyAs Filename:=objFolder & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "xlsx" 

End Sub 

Function ChooseFolder() As String 
Dim fldr As FileDialog 
Dim sItem As String 

Set fldr = Application.FileDialog(msoFileDialogFolderPicker) 
With fldr 
    .Title = "Select a Folder to save down the copy of this workbook" 
    .AllowMultiSelect = False 
    .InitialFileName = strPath 
    If .Show <> -1 Then GoTo NextCode 
    sItem = .SelectedItems(1) 
End With 

NextCode: 
    ChooseFolder = sItem 
    Set fldr = Nothing 
End Function