Extraer nombre de archivo

hola, Paolita !

... tengo una macro y necesito extraer el nombre del archivo excel en una variable ...

1) declara una variable de tipo cadena de texto (p.e.)
Dim elArchivo As String

2) obten el nombre y asignalo a la variable dependiendo de "el archivo" -???-

a) el nombre del archivo donde estan tus macros ???
alArchivo = ThisWorkbook.Name

b) el libro activo (aun si no es el que contiene tus macros) ???
elArchivo = ActiveWorkbook.Name

saludos,
hector.

On 28 jul, 21:23, "Héctor Miguel"
wrote:

hola, Paolita !

> ... tengo una macro y necesito extraer el nombre del archivo excel en una variable ...

1) declara una variable de tipo cadena de texto (p.e.)
  Dim elArchivo As String

2) obten el nombre y asignalo a la variable dependiendo de "el archivo"    -???-

  a) el nombre del archivo donde estan tus macros ???
    alArchivo = ThisWorkbook.Name

  b) el libro activo (aun si no es el que contiene tus macros) ???
    elArchivo = ActiveWorkbook.Name

saludos,
hector.

Como extraigo solo el nombre sin la extensión ¿?

hola, Paolita !

Como extraigo solo el nombre sin la extension ?

(p.e.)
With ActiveWorkbook
elArchivo = Left(.Name, InStr(.Name, ".xl") - 1)
End With

saludos,
hector.

__ OP __

> ... tengo una macro y necesito extraer el nombre del archivo excel en una variable ...

1) declara una variable de tipo cadena de texto (p.e.)
Dim elArchivo As String

2) obten el nombre y asignalo a la variable dependiendo de "el archivo" -???-

a) el nombre del archivo donde estan tus macros ???
alArchivo = ThisWorkbook.Name

b) el libro activo (aun si no es el que contiene tus macros) ???
elArchivo = ActiveWorkbook.Name