Dim xlApp As Object
Set xlApp = GetObject(, "excel.application")
xlApp.Quit
set XlApp = nothing
' Fecha a aplicação MS Excel.
Application.DisplayAlerts = False
Activeworkbook.close ([VBYes]) ' Fecha o Workbook e salva as mudanças efetuadas.
Application.DisplayAlerts = True
Fonte: Experts-Exchange
Tags: Excel, close, quit
André Luiz Bernardes
A&A® - Work smart, not hard.
Nenhum comentário:
Postar um comentário