Abrir un archivo de excel existente de acuerdo al nombre variable de una celda

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Abrir un archivo de excel existente de acuerdo al nombre variable de una celda

Notapor Dieguisxp » 25 Abr 2006 11:47

Necesito una macro que abra un archivo de excel existente de acuerdo al nombre variable de una celda, y que active una hoja de acuerdo al nombre variable de otra celda.

Adjunto los 2 archivos para explicarme mejor.
Para el ejemplo pegarlos en la unidad c:

Mil Gracias,

Dieguis xp
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Dieguisxp
Miembro Frecuente
Miembro Frecuente
 
Registrado: 26 Jul 2005 17:39
Ubicación: Cali

Notapor cubaezb » 25 Abr 2006 17:23

Cambia el procedimiento que tienes por:
Código: Seleccionar todo
Sub Abrir_Libro_y_Activar_Hoja()
 On Error Resume Next
    b = Range("B2").Text
    Workbooks.Open Filename:="C:\" & b & ".xls"
    Windows("Prncipal.xls").Activate
    If Err.Number <> 0 Then GoTo Errores
    a = Range("B3").Text
    Sheets(a).Activate
Errores:
    If Err.Number = 1004 Then 'Libro no existente
    'Cambialo por lo que necesitas
    MsgBox Err.Description
    ElseIf Err.Number = 9 Then 'Hoja no existente
    'Cambialo por lo que necesitas
    MsgBox Err.Description
    End If
End Sub


Hasta Luego
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
cubaezb
Miembro Frecuente
Miembro Frecuente
 
Registrado: 30 Nov 2005 19:46
Ubicación: Bogota, Colombia

Re: Abrir un archivo de excel existente de acuerdo al nombre variable de una celda

Notapor Dieguisxp » 26 Abr 2006 16:16

Hola Cubaezb

No me funciona, me sale un error...

Subindice fuera del intervalo

que puedo hacer ?

Muchas Gracias
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Dieguisxp
Miembro Frecuente
Miembro Frecuente
 
Registrado: 26 Jul 2005 17:39
Ubicación: Cali

Re: Abrir un archivo de excel existente de acuerdo al nombre variable de una celda

Notapor Dieguisxp » 12 May 2006 13:01

ya tengo la respuesta, hay que anteponerle
Dim a As String

1000 Gracias
Dieguisxp
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Dieguisxp
Miembro Frecuente
Miembro Frecuente
 
Registrado: 26 Jul 2005 17:39
Ubicación: Cali


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 11 invitados


cron