Para usar VBA para cerrar un libro, use el método Workbook.Close y para salir de Excel, use el método Application.Quit.
A continuación se muestran algunos ejemplos de código: cierre el libro de trabajo activo y pregunte si desea guardarlo si hay cambios en el libro de trabajo:
Copie el código de código de la siguiente manera:
Sub cerrar libro de trabajo()
ActiveWorkbook.Cerrar
Subtítulo final
Si desea evitar mensajes, puede agregar el parámetro "SaveChanges", como guardar y cerrar directamente el libro de trabajo:
Copie el código de código de la siguiente manera:
SubClostAndSaveWorkbook()
ActiveWorkbook.Cerrar Guardar cambios:=Verdadero
Subtítulo final
Cambie "Verdadero" en el código anterior a "Falso" para cerrar el libro directamente sin guardarlo.
Cierre todos los libros abiertos y pregunte si desea guardar:
Copie el código de código de la siguiente manera:
Sub cerrarTodos los libros()
En caso de error Continuar siguiente
Libros de trabajo.Cerrar
Subtítulo final
Salga de Excel y se le pedirá que guarde el libro modificado:
Copie el código de código de la siguiente manera:
SubQuitExcel()
Aplicación.Salir
Subtítulo final
Guarde el libro activo y salga de Excel:
Copie el código de código de la siguiente manera:
SubGuardarActiveWorkAndQuit()
ActiveWorkbook.Guardar
Aplicación.Salir
Subtítulo final
El siguiente código no le preguntará si desea guardar el libro al salir de Excel.
Guarde todos los libros abiertos y salga de Excel:
Copie el código de código de la siguiente manera:
Sub GuardarTodoYSalir()
Para cada semana en libros de trabajo
wbk.Guardar
Próximo
Aplicación.Salir
Subtítulo final
Salga de Excel sin guardar ningún cambio:
Copie el código de código de la siguiente manera:
SubQutiAndNoAlerts()
Aplicación.DisplayAlerts = Falso
Aplicación.Salir
Subtítulo final
Aquí hay algunas operaciones comunes en VBA:
Abrir un nuevo libro de trabajo
Copie el código de código de la siguiente manera:
Libros de trabajo.Agregar
Obtenga el nombre del primer libro de trabajo.
Copie el código de código de la siguiente manera:
Libros de trabajo(1).Nombre
Obtener el número de libros abiertos
Copie el código de código de la siguiente manera:
Libros de trabajo.Contar
Activar el segundo libro abierto.
Copie el código de código de la siguiente manera:
Libros de trabajo(2).Activar
Activar libro de trabajo Chap02.xls
Copie el código de código de la siguiente manera:
Libros de trabajo("Chap02.xls").Activar
El libro de trabajo actualmente activo se guarda como NewChap.xls
Copie el código de código de la siguiente manera:
ActiveWorkbook.Guardar como nombre de archivo:="NewChap.xls"
Cerrar el primer libro
Copie el código de código de la siguiente manera:
Libros de trabajo(1).Cerrar
Cerrar el libro actualmente activo sin guardar los cambios
Copie el código de código de la siguiente manera:
ActiveWorkbook.Cerrar SaveChanges:=Falso
Cerrar todos los libros abiertos
Copie el código de código de la siguiente manera:
Libros de trabajo.Cerrar
Si ejecutó el último ejemplo, todos sus libros ahora estarán cerrados.
Asegúrese de abrir un nuevo libro antes de usarlo en una hoja de trabajo.
Cuando agrega una sola hoja de trabajo, debe saber cómo agregar una nueva hoja de trabajo al libro, saber cómo seleccionar una hoja de trabajo o un grupo de hojas de trabajo y saber cómo nombrar, copiar, mover y eliminar hojas de trabajo.
En VB, cada tarea requiere un método o propiedad especializada.
Agregar una nueva hoja de trabajo
Copie el código de código de la siguiente manera:
Hojas de trabajo.Agregar
Obtenga el nombre de la primera hoja de trabajo.
Copie el código de código de la siguiente manera:
Hojas de trabajo(1).Nombre
Seleccione la hoja de trabajo llamada "Hoja3"
Copie el código de código de la siguiente manera:
Hojas de trabajo(3).Seleccionar
Seleccione la primera, tercera y cuarta hojas de trabajo.
Copie el código de la siguiente manera: Hojas de trabajo (Array (1,3,4)). Seleccione
Active la hoja de trabajo llamada "Hoja1"
Copie el código de código de la siguiente manera:
Hojas de trabajo("Hoja1").Activar
Mover la hoja "Hoja2" antes de la hoja "Hoja1"
Copie el código de código de la siguiente manera:
Hojas de trabajo("Hoja2").Mover antes:=Hojas de trabajo("Hoja1")
Cambie el nombre de la hoja de trabajo "Hoja2" a "Gastos"
Copie el código de código de la siguiente manera:
Hojas de trabajo("Hoja2").Nombre = "Gastos"
Obtenga la cantidad de hojas de trabajo en el libro de trabajo actual
Copie el código de código de la siguiente manera:
Hojas de trabajo.Contar
Eliminar la hoja de trabajo "Gastos" en el libro de trabajo actual
Copie el código de código de la siguiente manera:
Hojas de cálculo("Gastos").Eliminar