Cerrar Excel

Gracias Héctor, me ha sido de gran ayuda tu ejemplo

"Héctor Miguel" escribió en el mensaje
news:
Mostrar la cita

hola, Mauro !

> Actualmente uso la instrucción activeworkbook.close savechanges:=false
> con esto cierro el libro actual, pero no cierra excel.
> Alguien sabe como cerrar excel por completo ?

por ejemplo: application.quit aunque... lo realmente importante es

donde [o cuando] aplicar el application.quit
Mostrar la cita

1.- la siguiente forma, cierra el libro [guardar cambios es opcional],

pero... NO cierra la aplicacion :((
Mostrar la cita

Sub Cerrar_Todo()
ThisWorkbook.Close False ' o True para salvar los cambios '
Application.Quit ' <== esta linea YA NO se ejecuta :(( '
End Sub

2.- pero... si inviertes el orden de los factores, SI funciona :))
Sub Cerrar_Todo()
Application.Quit
ThisWorkbook.Close False ' o True para salvar los cambios '
End Sub

Nota: si hay varios libros abiertos y alguno/s ha/n tenido cambios, se

necesitara algo +/- como lo siguiente:
Mostrar la cita

Sub Cerrar_Todo()
Dim Libro as Workbook
For Each Libro In Application.Workbooks
' alguna rutina para 'detectar' cual es el libro [excluyendo a este

libro] y decidir si se guardan [o no] los cambios '
Mostrar la cita

Next
Application.Quit
ThisWorkbook.Close False ' o True para salvar los cambios '
End Sub

saludos,
hactor.