Abrir un archivo excel desde otro

potypoty · #1 (**permalink**) 15/03/2006, 03:40

La problemática no me parece muy difícil de entender.
Tengo un archivo excel (A) donde tengo unos datos y otro (B) donde quiero copiar algunas hojas. Para ello, me he creado un botón con el que copio sin problema las hojas. Vamos que funciona. El inconveniente es que para poder hacerlo bien, tanto el archivo A como el B deben estar abiertos y esto depende de la persona que utilice el programa.
Como todos no conocemos excel de la misma forma antes de comenzar la copia hago una pregunta para advertir, pero me gustaría evitarme posibles errores si se pudiera abrir automáticamente el archivo B desde A y no dejárselo al usuario.
Supongo que se habrá entendido lo que pretendo, ahora sólo falta la solución

. Gracias por anticipado por mover vuestras neuronas en mi favor.

3pies · #2 (**permalink**) 15/03/2006, 03:53

Pues utilizando la grabadora de macros (de gran utilidad, para aquellos a los que nos falla la memoria, y no nos acordamos de la sintaxis exacta de algunas cosas), me ha salido esto (o casi esto):

Código:

Sub Abrir_el_otro_fichero()
        'Abrimos el fichero de marras...
        Workbooks.Open Filename:="C:\Mis documentos\Probatinas\Probatina1.xls"
        'Lo minimizamos
        ActiveWindow.WindowState = xlMinimized
End Sub

Creo que era eso lo que buscabas...

Salu2

potypoty · #3 (**permalink**) 15/03/2006, 04:19

Pues gracias.
Yo también suelo utilizarla bastante, pero no me salía nada de lo que yo necesitaba. En cuanto salía del archivo para ir a l otro no me grababa.
Después del cafetito lo pruebo y te comento si se adapta a mis necesidades, o en que me falla.

potypoty · #4 (**permalink**) 15/03/2006, 05:15

Lo que me has dado funciona perfectamente, pero no lo puedo aplicar a mi programa por un pequeño detalle. En el código debes especificar la dirección completa donde está el archivo y en mi caso no siempre es la misma. Si se pudiera indicarle que está en la misma carpeta en la que estamos trabajando, me sería más útil.

3pies · #5 (**permalink**) 15/03/2006, 06:25

Ha costado lo suyo, pero creo que con esto, se resuelve el problema...

Código:

Sub Abrir_el_otro_fichero()
    'Creamos una variable, que contendrá el nombre del archivo necesario,
    'es decir, el otro archivo que utilizaremos aparte de este que está abierto
    archivo_complementario = "Probatina1.xls"
    'Pasamos la ruta del archivo donde está este macro, a una variable,
    'por defecto, el otro archivo complementario deberá estar en esa misma ruta
    ruta = ActiveWorkbook.Path
    'Creamos el objeto FileSystemObject que entre otras cosas,
    'nos permite manipular, y leer ficheros
    Set FSO = CreateObject("Scripting.FileSystemObject")
    'Si existe el archivo complementario, que lo abra y lo minimice a continuación
    If FSO.FileExists(ruta & "\" & archivo_complementario) Then
        'Abrimos el fichero de marras...
        Workbooks.Open Filename:=ruta & "\" & archivo_complementario
        'Lo minimizamos
        ActiveWindow.WindowState = xlMinimized
    Else
        'Si el archivo complementario no está en la mmisma carpeta
        'que el archivo donde se encuentran estas líneas de código,
        'mostramos un mensaje, indicándolo
        MsgBox (Chr(13) + "     El archivo """ & archivo_complementario & """ no existe, o" & _
        Chr(13) + "     no se encuentra en la carpeta donde debería estar." & _
        Chr(13) + Chr(13) + "     La ruta donde debería hallarse es:" & _
        Chr(13) + "     " & ActiveWorkbook.Path & "\" & "     " & _
        Chr(13) + Chr(13)), vbOKOnly, " FICHERO NO ENCONTRADO"
    End If
    'Limpiamos el objeto
    Set FSO = Nothing
End Sub

Salu2

Editado: Añadido lo que está en rojo, para su correcto funcionamiento.

potypoty · #6 (**permalink**) 15/03/2006, 06:45

Muchas gracias. Veo que te defiendes bastante bien con el Excel y el VBA.

3pies · #7 (**permalink**) 15/03/2006, 08:39

Que va, eso de FSO es porque lo he aplicado en alguna página ASP.
Por cierto, he editado el anterior post, como podrás ver. Me dejé una cosita imprescindible para el buen funcionamiento de la macro (si te ha funcionado antes, es porque el último fichero abierto estaba en la misma ruta que ese llamado "probatina1".

Salu2