Excelのマクロファイル（あ.xlsm）をアドインファイル（あ.xlam）で保存し、アドイン登録までするマクロ

はじめに

　せっかく作ったExcelのマクロファイル（あ***.xlsm***）ですが、必要な作業毎に起動するのがメンドクサイ。
　そこで、①アドインファイル（あ***.xlam***）に保存後、②アドイン登録しています。
　しかし、それすらメンドクサイ。
　そこで、①②を実施するマクロと実行ボタンを作りました。

パソコン環境

• Windows10 (64ビット)
• Office365　

実行ボタン（登録ボタン）

VBA本文

Option Explicit
Sub 特定フォルダにアドインの保存()

    Dim TWMname As String
    TWMname = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
    ActiveWorkbook.SaveAs "C:\Users\" & Environ("UserName") & "\AppData\Roaming\Microsoft\addIns\" & TWMname & ".xlam", FileFormat:=xlOpenXMLAddIn
                          
    ChDir "C:\users\" & Environ("USERNAME") & "\appdata\roaming\microsoft\addins"
    TWMname = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
    
    AddIns.Add Filename:="C:\Users\" & Environ("USERNAME") & "\AppData\Roaming\Microsoft\addIns\" & TWMname & ".xlam"
    
    AddIns(TWMname).Installed = True
    MsgBox (TWMname & ".xlamをアドイン登録しました。")
End Sub