FECHANDO O MS EXCEL
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 = False
Activeworkbook.close ([VBYes])
Application.DisplayAlerts = True
' Fecha o Workbook e salva as mudanças efetuadas.
Fonte: Experts-Exchange
André Luiz Bernardes
A&A® - Work smart, not hard.
Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-o. Agradecemos sua cooperação.
✔ VBA Excel Specialist® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance. Contate-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.
Views
...
Important:
Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.
E-mails
Deixe seu e-mail para receber atualizações...