Macro para obtener el nombre del Libro

Ya hemos pasado por los Eventos y Métodos del Objeto Workbook el cual hace referencia al Libro de trabajo con todos sus componentes. Vamos a ver ahora en las siguientes entregas algunos códigos asociados al uso de Propiedades de este Objeto Workbook. En esta ocasión vamos a ver la aplicación de la Propiedad Name.

Obtener nombre de archivo en Excel con Vba.

Propiedad Name: Con la aplicación de esta propiedad, lo que estamos obteniendo es el Nombre del Libro de trabajo actual y que podemos utilizar para mostrar en un mensaje o para hacer una validación de algún proceso masivo de guardado.

Desde Excel abrimos el Editor VBA (Alt + F11), insertamos un Módulo (Clic derecho sobre el proyecto Excel, Insertar, Módulo:

Ingresamos el siguiente código:

Queda de la siguiente manera en el Módulo:

Veamos lo que significan cada una de las líneas:

1. La primera línea Sub ObtenerNombredelLibro(), indica el inicio de la macro.
2. En esta segunda línea se aplica la propiedad Name en un cuadro de mensaje al combinarlo con el Objeto ActiveWorkbook y tomar de este el nombre (Name)
3. La última línea marca el fin (End) de la Macro o Subrutina (Sub).

Podemos ejecutar esta macro vinculándola a una autoforma dando clic derecho sobre ésta y seleccionamos la opción Asignar Macro:

Del listado de Macros que aparece seleccionamos ObtenerNombredelLibro; luego clic en Aceptar y ahora al dar clic en la autoforma nos aparece un mensaje informativo como el siguiente:

Descargar archivo de trabajo.

Recuérdese que para hacer referencia a la hoja actual de trabajo utilizamos el objeto Worksheet, de modo que el objeto VBA que representa una hoja de un libro se llama Worksheet como por ejemplo Worksheets("Hoja1").Activate.