none
Macro Extraer Path de Path+Filename RRS feed

 > 

  • Pregunta

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

     

    Hola a todos,

     

    Estoy trabajando con un macro que:

    1- Abro un ventana para seleccionar un archivo (por medio de Application.GetOpenFilename)

     

    stArchivoElegido = Application.GetOpenFilename("Hoja Excel , *.xls*", _
        , "Seleccione el archivo para copiar sus datos.")

    2- Abro el archivo (Application.FileWorkbooks.Open)

     

    Application.FileWorkbooks.Open (stArchivoElegido)

     

    3- Seleccionar un rango.

    He aquí mi problema, dado que debo indicar el nombre del archivo (sin el path). ¿Existe alguna función que realice justamente eso, dado un path+filename, obtener solo el filename?

     

     

    Gracias! Smile


    martes, 11 de septiembre de 2007 20:21
    |

Respuestas

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    En primer lugar, yo diria que en el punto 2- deberias usar mas bien:

     

    Code Snippet

    Workbooks.Open stArchivoElegido

     

    En cuanto al punto 3-, prueba lo siguiente:

     

    Code Snippet
    Workbooks(Dir(stArchivoElegido)).Sheets("Hoja1").Range("A1").Select

     

     

    o bien, en el punto 2- asigna el objeto Workbook a una variable

     

    Code Snippet

    Dim wb As Workbook

    Set wb = Workbooks.Open(stArchivoElegido)

     

     

    y luego usa la variable asi:

     

    Code Snippet

    wb.Sheets("Hoja1").Range("A1").Select

     

     

    Aunque casi seguro que lo de seleccionar no es estrictamente necesario Smile

    • Marcado como respuesta Ismael Borche miércoles, 6 de abril de 2011 16:40
    martes, 11 de septiembre de 2007 22:21
    |