エクセルのマクロについて教えてください。

マクロの保存形式を変更する方法を教えてください。
Sub マクロ保存()
Range("D7").Select
Dim fname As String, fPath As String
Dim exte As String
fname = Worksheets("休日").Range("R2").Text
exte = ".xltm"
fol = ActiveWorkbook.Path
fPath = fol & "\" & fname & exte
ThisWorkbook.SaveAs Filename:=fPath, FileFormat:=xlOpenXMLTemplateMacroEnabled
If Workbooks.Count > 1 Then
ThisWorkbook.Close SaveChanges:=False
Else
Application.Quit
ThisWorkbook.Close SaveChanges:=False
End If

End Sub
を実行すると指定シートの措定セル値をファイル名として「マクロ有効テンプレｰ形式：.xltm」で保存されます。
が、マクロを「マクロ有効形式：.xlsm」で保存出来る方法を教えてください。
「.xltm」の部分を「.xlsm」に変更しましたが
コードの「ThisWorkbook.SaveAs Filename:=fPath, FileFormat:=xlOpenXMLTemplateMacroEnabled」部分が黄色くなりエラーが出て実行出来ませんでした。
解決方法を教えてください
よろしくお願いいたします。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2023/02/11 13:56

exte = ".xlsm"

FileFormat:=52

https://learn.microsoft.com/ja-jp/office/vba/api …

この回答へのお礼

回答ありがとう御座います。
参考にさせていただきます。

お礼日時：2023/02/11 13:59