¿Cómo eliminar el libro activo (archivo actual) en Excel?
Supongamos que descargó un libro de trabajo de un sitio web y el libro de trabajo se abrió automáticamente. Sin embargo, es posible que el libro de trabajo no sea el adecuado, o que el libro de trabajo no contenga la información necesaria y desee eliminarlo. A veces, probablemente olvide el directorio predeterminado en el que se guardan automáticamente los archivos descargados. No se preocupe, podemos eliminar el libro de trabajo abierto / activo sin cerrarlo directamente en Excel.
Eliminar el libro de trabajo activo (archivo actual) con VBA
Un clic para abrir la carpeta que contiene el libro activo con este libro seleccionado
Para abrir rápidamente la carpeta / directorio que contiene el libro de trabajo actual y tener el libro de trabajo actual seleccionado en la carpeta de apertura, intente Kutools para Excel Abrir carpeta contenedora utilidad.
Eliminar el libro de trabajo activo (archivo actual) con VBA
Este método introducirá un VBA para eliminar el libro de trabajo abierto / activo sin cerrarlo en Excel. Haz lo siguiente:
1. presione el otro + F11 teclas simultáneamente para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Hacer clic en recuadro > Módulo, copie el siguiente código VBA y péguelo en la ventana del módulo de apertura.
VBA: elimine el libro activo sin cerrarlo en Excel
Sub DeleteActiveWorkbook()
Dim xFullName As String
xFullName = Application.ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill xFullName
Application.ActiveWorkbook.Close False
End Sub
3. presione el F5 o Ejecutar botón para ejecutar este VBA.
Notas:
(1) Este VBA puede eliminar el libro activo, pero no puede cerrar la ventana de Excel. Si no se abren libros de trabajo después de eliminar el libro activo, cierre la ventana de Excel manualmente.
(2) Si el libro de trabajo activo nunca se ha guardado antes, este VBA no puede eliminarlo. Sin embargo, puede eliminar este libro sin guardar directamente cerrándolo.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!