xlsmからxlsxへの変換方法（

Question

）xlsmからxlsxへの変更方法を教えてください。 xlsx拡張子を持つxlsmファイルのコピーを保存するスクリプトが必要ですが、ファイル名を入力する必要はありません。元の名前を保持する必要があります。ユーザーが保存する場所を選択するだけですファイル。

Sub changeext() 

Dim s_as As String 

s_as = ThisWorkbook.FullName 

s_as = Left(s_as, InStrRev(s_as, ".") - 1) & ".xlsx" 

ThisWorkbook.SaveAs FileName:=s_as 

Application.DisplayAlerts = False 

End Sub 

Answer 1

マクロを有効にしたブックを上書きしないで、.xlxsコピーを追加したいと思うだけです。コードの下の行を試して、それが動作する必要があります、 "ワークブックの名前をここに"あなたのブック名を入れて、開いたままのファイルは、.xlsxファイルになります。

あなたはFolderPicker関数を作成する必要が

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

：

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