VBA Recuperar el nombre del archivo

Resuelto
pampiou Mensajes publicados 24 Estado Miembro -  
 gogodu75 -
¡Hola a los expertos en programación!

Actualmente estoy haciendo un programa en Visual Basic con Excel. Quisiera recuperar automáticamente el nombre del archivo y guardarlo en una variable para evitar cambiar todas las líneas de código donde se hace referencia al nombre del archivo.
Por el momento, he hecho esto:
Dim nombre As String
nombre = Workbooks.Application.Name

Pero el problema es que la variable "nombre" me devuelve "Microsoft Excel".

Si alguno de ustedes tiene una solución para recuperar el nombre del archivo (sin la ruta de acceso), ¡se lo agradezco!

¡Gracias de antemano por su ayuda!

1 respuesta

  1. pijaku Mensajes publicados 13513 Fecha de registro   Estado Moderador Última intervención   2 773
     
    Hola,
    Si no necesitas la extensión del archivo :
    Dim NomFic As String NomFic = ThisWorkbook.Name MsgBox NomFic
    Si necesitas la extensión :
    Dim NomFic As String NomFic = ThisWorkbook.Name & ".xls" 'o ".xlsm" etc... MsgBox NomFic

    --
    Franck P
    12
    1. pampiou Mensajes publicados 24 Estado Miembro 2
       
      ¡Muchas gracias!!!
      No había mucho que encontrar, pero después de una buena hora buscando sin éxito, me has salvado :p
      1
    2. gogodu75
       
      ¡Gracias BG de las playas!
      1