VBA Excel - Fechando o MS Excel - Close MS Excel

| Blog Office VBA | Blog Excel | Blog Access | 

O simples neste caso é perfeito. Atende, resolve e nos livra da dor de cabeça e perda de tempo desnecessária.

Dim xlApp As Object
    Set xlApp = GetObject(, "excel.application")      xlApp.Quit
   set XlApp = nothing

' Fecha a aplicação MS Excel.
Application.DisplayAlerts = FalseActiveworkbook.close ([VBYes])  ' Fecha o Workbook e salva as mudanças efetuadas.
Application.DisplayAlerts = True 

Fonte: Experts-Exchange

Tags: VBA, Excel, close, quit