'確認メッセージを表示させない
Application.DisplayAlerts = False
'保存
ActiveWorkbook.Save
'Excelを終了する
Application.Quit
'確認メッセージを表示させない
Application.DisplayAlerts = False
'保存
ActiveWorkbook.Save
'Excelを終了する
Application.Quit