即効テクニック

その他関連のテクニック

Excelを終了する

(Excel 2000)
Excelを終了させるにはQuitメソッドを使用します。

構文 Object.Quit

設定項目  内容
Object   Applicationオブジェクト[省略不可]

次のサンプルは、保存されていないブックを上書き保存した上でExcelを終了します。
保存するかどうかの確認メッセージは表示されません。

●サンプル1●
Sub QuitSamp1()

    Dim wb As Workbook

    For Each wb In Workbooks            '開いている全てのブックに対して
        If wb.Saved = False Then wb.Save '保存されていないブックは上書き保存
    Next wb

    Application.Quit                     'Excelを終了します

End Sub
次のサンプルはは、保存が必要かどうかの確認メッセージを表示せず、ブックを保存しないでExcelを終了します。
●サンプル2●
Sub QuitSamp2()
  Application.DisplayAlerts = False     '---確認メッセージ非表示
  Application.Quit                      '---Excelを終了します

End Sub