cerrar excel.

10/10/2003 - 21:26 por AGUAVERDE | Informe spam
Me podríais indicar como puedo desarrollar una macro en
Excel con Visual Basic, para que una vez guardado los
cambios y cerrado el libro me cierre tambien Excel, y
vuelva el escritorio de Windows. Se como salvar el libro
y la hoja, se como cerrar el libro de trabajo y quedarme
en Excel puro y duro, lo que no se es como cerrar Excel
atraves de una macro.
Os agradecería una respuesta.

Preguntas similare

Leer las respuestas

#1 gti
10/10/2003 - 21:44 | Informe spam
por ejemplo application.quit


"AGUAVERDE" escribió en el mensaje
news:083c01c38f64$64526990$
Me podríais indicar como puedo desarrollar una macro en
Excel con Visual Basic, para que una vez guardado los
cambios y cerrado el libro me cierre tambien Excel, y
vuelva el escritorio de Windows. Se como salvar el libro
y la hoja, se como cerrar el libro de trabajo y quedarme
en Excel puro y duro, lo que no se es como cerrar Excel
atraves de una macro.
Os agradecería una respuesta.
Respuesta Responder a este mensaje
#2 Héctor Miguel
11/10/2003 - 00:10 | Informe spam
¿que tal, chicos?

... que una vez guardado los cambios y cerrado el libro me cierre tambien Excel [...]

por ejemplo application.quit





==> lo realmente importante es donde [o cuando] aplicar el Application.Quit

1.- la siguiente forma, cierra el libro [guardar cambios es opcional], pero... NO cierra la aplicacion :((
Sub Cerrar_Todo()
ThisWorkbook.Close False ' o True para salvar los cambios '
Application.Quit ' <== esta línea 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 ' ó 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:
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 '
Next
Application.Quit
ThisWorkbook.Close False ' ó True para salvar los cambios '
End Sub

Saludos,
Héctor.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida