Con permiso del maestro
JavierB, comentar que se puede omitir el
application, quedando simplemente así:
Código:
'pasamos el nombre a una variable
nombre_del_fichero = ThisWorkbook.Name
A veces es imprescindible utilizar el nombre del fichero, a través de un macro, pero otras veces, dependiendo de lo que queramos hacer, igual nos conformamos con obtener el nombre del archivo, para colocarlo en una celda.
Lo que quería comentar, es que se puede obtener el nombre del fichero sin necesidad de utilizar macros. Es un poco rebuscado el sistema, pero funciona perfectamente y es fiable al 100%. En cualquier celda donde desees mostrar el nombre del fichero, pon este código
de forma literal (haz directamente, un copiar y pegar):
Código:
=EXTRAE(CELDA("nombrearchivo";A1);ENCONTRAR("[";CELDA("nombrearchivo";A1))+1;ENCONTRAR("]";CELDA("nombrearchivo";A1))-ENCONTRAR("[";CELDA("nombrearchivo";A1))-1)
Observaciones:
1.- Si ponemos ese código en cualquier celda de la columna A, tendremos que cambiar la referencia A1, por otra celda que no sea de la columna A, es decir, podemos poner en lugar de A1, la celda B55, la J79, o la M125.
2.- Para que funcione la fórmula, debe estar guardado el libro de excel, porque en caso contrario dará error. Es decir, no te funcionará esa fórmula en un nuevo libro creado "al vuelo" si previamente no lo has guardado.
Salu2