Como cerrar libros de Excel guardando cambios con VBA

Hola, hoy vamos a ver como cerrar libros de Excel salvando los cambios pendientes automaticamente con VBA. Para ello vamos a crear un código donde a través muy sencillo que recorrera todos los objetos de tipo Worbook dentro de la coleccion Workbooks para cerrar cada uno de los primeros salvando todo aquello que no hayamos guardado.

Esta macro nos ayudará a aprender algo más sobre los objetos en memoria disponibles en Excel y todo ello reflejado en esta entrada y en un vídeo en mi canal de YouTube para que veas un ejemplo practico.

El código


 Sub CerrarLibrosYGuardarCambios()
Dim libroActual as Workbook
For Each libroActual in Workbooks
ThisWorkbook.SaveAs Filename:=nombreFichero 
Next libroActual
if libroActual.Name <> "CerrarLibrosYSalvar.xlms" Then
libroActual.Close SaveChanges:=True
End If
End Sub

El vídeo tutorial

¿Que hemos aprendido?

Con esta receta de Excel hemos aprendido algunas cosas interesantes, tales como:

  • Que existe en memoria una “coleccion de libros” instanciada en Workbooks
  • Que es posible asignar true al parametro SaveChanges del metodo Close de un libro
  • Suscribirnos al evento SheetChange

Como siempre os digo, espero que esta entrada os haya sido de utilidad, nos vemos pronto.

Leave a reply:

Tu dirección de correo electrónico no será publicada.

Site Footer

X

Suscribete al canal en YouTube

Con más de 90.000 suscriptores, encontrarás mas de 300 video tutoriales gratuitos sobre Excel, Informática, programación e Internet.

Suscribete