Excel VBA Application.QuitはExcelアプリケーションを終了するために使用

以下のようなシーンで利用されます。

・自動化スクリプトの最後にExcelを終了する場合。

・特定の条件下でExcelを終了させたい場合（例：エラーが発生した場合など）

Option Explicit

Sub CloseExcel()
    Application.Quit
End Sub

未保存のブックを保存して終了

Option Explicit

Sub SaveAndCloseExcel()
    Dim wb As Workbook
    
    ' すべてのブックを保存
    For Each wb In Workbooks
        If Not wb.Saved Then
            wb.Save
        End If
    Next wb
    
    ' Excelを終了
    Application.Quit
End Sub

エラーが発生した場合にExcelを終了

エラーハンドラを使用して、エラー発生時にメッセージを表示し、Excelを終了します。

Option Explicit

Sub CloseExcelOnError()
    Dim kotae As Long
    On Error GoTo ErrorHandler
    
    ' ここに通常の処理を記述
    kotae = 10 / 0
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました。Excelを終了します。"
    Application.Quit
End Sub