Excel - Ayuda Boton Excel,abre archivos

   
Vista:

Ayuda Boton Excel,abre archivos

Publicado por adrian (16 intervenciones) el 22/01/2016 20:51:53
Hola,chicos estoy haciendo un boton para que abra otros excel en la misma pagina(Debajo del boton), el problema es q lo abre pero en otro archivo excel....adjunto el codigo y el archivo para q se guien

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Explora_y_abre_archivo()
 
 
 
 
    Set archivo = CreateObject("Scripting.filesystemObject")
    nombre_archivo = "Documentos\mdfk.xmls"
 
    If archivo.FileExists(nombre_archivo) Then
    Workbooks.Open nombre_archivo
    End
 
    Else
    responde = MsgBox("El archivo no existe en esta carpeta" _
                & Chr(13) & "¿DESEA BUSCARLO?", vbYesNo + vbExclamation)
    End If
 
    If responde = vbNo Then End
        Miarchivo = Application.GetOpenFilename
        'Workbooks.Open Miarchivo
 
    Set archivo = Nothing
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder