none
Macro para abrir archivo excel en la misma carpeta RRS feed

 > 

  • Pregunta

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

    Hola, necesito abrir un archivo excel con una macro para copir su contenido a otro archivo, el problema es que la carpeta origen del archivo de datos no es constante por lo que no puedo usar:

    workbooks.open filename("Z:\folder1\folder2\ARCHIVO.XLS")

    Alguien sabe como poder abrir el archivo sin tener que darle la ruta?, es decir los archivos estan en la misma carpeta.

    Muchas gracias

    viernes, 8 de diciembre de 2006 20:05
    |

Respuestas

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

    Prueba estas opciones:

    1) No pongas nada en la ruta

    workbooks.open filename("ARCHIVO.XLS")

    2)Lee la ruta del archivo abierto y guardala en una variable p.e StrRuta y luego:

    workbooks.open filename( StrRuta & "ARCHIVO.XLS")

    Un saludo.

    *******************************************************************************************************************

    Colabora con el foro: Si la respuesta te es de utilidad marca la pregunta como respondida.

    *******************************************************************************************************************

    Daniel Matey.

    MCSE, MCSA, MCSD, MCDBA.

    Blog: http://dmatey.spaces.live.com

     

    • Marcado como respuesta Ismael Borche martes, 5 de abril de 2011 20:53
    sábado, 9 de diciembre de 2006 9:47
    |

Todas las respuestas

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

    Prueba estas opciones:

    1) No pongas nada en la ruta

    workbooks.open filename("ARCHIVO.XLS")

    2)Lee la ruta del archivo abierto y guardala en una variable p.e StrRuta y luego:

    workbooks.open filename( StrRuta & "ARCHIVO.XLS")

    Un saludo.

    *******************************************************************************************************************

    Colabora con el foro: Si la respuesta te es de utilidad marca la pregunta como respondida.

    *******************************************************************************************************************

    Daniel Matey.

    MCSE, MCSA, MCSD, MCDBA.

    Blog: http://dmatey.spaces.live.com

     

    • Marcado como respuesta Ismael Borche martes, 5 de abril de 2011 20:53
    sábado, 9 de diciembre de 2006 9:47
    |
  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

     

     

    Prueba esto:

    workbooks.open filename(ThisWorkbook.Path & "\ARCHIVO.XLS")

    jueves, 28 de junio de 2007 16:29
    |
  • Question
    Inicie sesión para votar
    1
    Inicie sesión para votar

    Puede que es este caso el archivo simpre se llame igual y siempre esté en el mismo directorio, pero ¿te interesaría poder utilizar un archivo que esté en otro lugar y que se pueda llamar de cualquier manera?

    puedes hacer que aparezca el cuadro de diálogo "Abrir Archivo" para seleccionar el archivo que quieras, así puede estar en cualquier parte y llamarse de cualquier manera.

     

    para esto utiliza

    Application.GetOpenFilename

    es resultado de este método es una cadena de texto con la ruta hasta el archivo seleccionado.

     

    por ejemplo

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

     

    Espero que este consejo te sea útil. Aunque no es exactamente lo que preguntas creo que es más versátil que poner la ruta al archivo como una cadena de texto manualmente.

    viernes, 29 de junio de 2007 7:37
    |
  • Question
    Inicie sesión para votar
    1
    Inicie sesión para votar

    hola, a mi me funcionó así

     

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

    buen dato suerte a todos

     

    Huror

    sábado, 8 de marzo de 2008 13:05
    |
  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar
    y si no quiero abrir necesariamente un archivo de excel?? sino un block de notas u otro archivo??? saben que hacer en ese caso???
    domingo, 31 de enero de 2010 23:13
    |
  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    El codigo sería asi:


    Workbooks.Open Filename:=Application.GetOpenFilename("Block de Notas , *.txt*", _
        , "Seleccione el archivo para copiar sus datos.")

    las diferencias estan acentuadas de Negrita.

    Saludos.

    Trainer MS Office 2007
    lunes, 1 de febrero de 2010 3:09
    |
  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar
    Hola Huror:

    Aplique tu codigo y me funciono perfecto, pero si doy click en el boton Cancelar de la ventana de apertura del archivo, me genera el siguiente error:

    Se ha producido el error '1004' en tiempo de ejecucion

    No se encontro "Falso.xls". Compruebe la ortografia del nombre del archivo y si su ubicacion es correcta.

    Podrias indicarme como controlo este error?? es decir, que si hago click en Cancelar que no haga nada.

    Te agradezco enormemente tu colaboración y pronta respuesta...

    Saludos....
    "El espiritu de lucha es lo que nos impulsa cada día a emprender nuevos retos..." Alexsc007 Bogotá - Colombia
    martes, 6 de diciembre de 2011 16:17
    |
  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    Saludos.

    Para eliminar el error cuando cancelan el archivo a abrir, lo puedes hacer de la siguiente forma:

        stArchivoElegido = Application.GetOpenFilename("Block de Notas , *.txt*", , "Seleccione el archivo para copiar sus datos.")

        If stArchivoElegido <> False Then

        Workbooks.Open Filename:=stArchivoElegido

        Else

        End If

    jueves, 2 de febrero de 2012 22:07
    |
  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    buen dia

    yo tengo el mismo problema pero no tengo ni idea de como hacer la macro, ya lo hice con una formula pero debo de cabiar el valor a diario porque es un reporte y actualizo alrededor de 70015 celdas por eso me gustaria tener una macro.... me pueden ayudar??

    gracias

    jueves, 1 de noviembre de 2012 6:58
    |
  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    hola, a mi me funcionó así

     

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

    buen dato suerte a todos

     

    Huror

    Hola estoy probando con las macros y el código que tienes me es útil, pero después de seleccionar el archivo necesito leer la información que esta dentro de ese archivo como puedo realizar ese procedimiento. Si me puede ayudar sera de gran ayuda.
    miércoles, 19 de junio de 2013 22:14
    |