全てのブックを保存してからExcelを終了する【Quitメソッド】【ExcelVBA】

Quitメソッド

Excelを終了するときはQuitメソッドを使用します。

構文
Object.Quit

保存していないブックが開かれている状態でQuitメソッドを使用すると、
保存するかどうかを確認するメッセージが表示されてしまいます。

Quitメソッドを使ったサンプルコード

'■全てのブックを保存してから終了する場合
Public Sub Sample()
    Dim wb As Workbook

　　'ブックの数だけ保存をループする
    For Each wb In Workbooks
        wb.Save		
    Next wb

    Application.Quit	'Excelを終了する
End Sub


'■確認メッセージを無視して終了する場合
Public Sub Sample2()
    ' 保存確認メッセージを表示させない
    Application.DisplayAlerts = False

    Application.Quit	'Excelを終了する
End Sub

注意点

• DisplayAlertsプロパティを使って確認メッセージを無視した場合、Excelを終了する前に加えた変更は
  保存されないので注意が必要です。
• Quitメソッドを使用した時点でExcelが終了するので、全てのブックが閉じます。

関連記事

• ブックを上書き保存する【Saveメソッド】
• ブックを閉じる際の確認ダイアログを表示させない(無視する)【Application.DisplayAlerts】