Nombre del archivo en una celda

En un módulo nuevo o existente pon la siguiente función:

Public Function Nombre() As String
Nombre = ThisWorkbook.Name
End Function

La puedes llamar desde cualquier celda del mismo libro como:
=Nombre()

El objeto ThisWorkbook es el único que puede devolver siempre bien el nombre
del archivo que contiene la función, cualquier otro puede fallar bajo ciertas
condiciones.

Saludos

"nose" escribió:

Hola a todo el foro

Cual seria la función, o la metodología para en una celda, el nombre del
Libro con que fue grabado


gracias

Juan

Prueba también con la siguiente fórmula:

=EXTRAE(CELDA("nombrearchivo"),ENCONTRAR("[",CELDA("nombrearchivo"))+1,ENCONTRAR("]",CELDA("nombrearchivo"))-ENCONTRAR("[",CELDA("nombrearchivo"))-1)

Esta se basa en que la función Celda("Nombrearchivo") te devuelve el path,
el nombre del archivo "entre corchetes", y el nombre de la hoja.



"nose" escribió:

Hola a todo el foro

Cual seria la función, o la metodología para en una celda, el nombre del
Libro con que fue grabado


gracias

Juan

hola, Juan !

Cual seria la función, o la metodología para en una celda, el nombre del Libro con que fue grabado

el uso de la funcion =celda("nombrearchivo") podria fallar en la busqueda de "[" y "]"
cuando el libro tiene una sola hoja y se llaman igual la hoja y el libro
[habria que *alargarla* unos cuantos caracteres mas] :-((

aqui tienes otra alternativa, definiendo un nombre y usando macro-funciones del *viejo* excel v.4

1) [menu] insertar / nombre / definir...
nombre: [p.e.] NombreArchivo o... NombreLibro o... ???
en el cuadro de edicion de referencias, usa cualquiera de las siguientes formulas [macro-funciones]

op1: =indicar.libro(16)
op2: =indicar.documento(68)
op3: =indicar.documento(88)

2) en la celda donde necesites *el dato*... =nombre_que_hayas_definido

saludos,
hector.