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
- Explora-archivo.rar(14,5 KB)
Valora esta pregunta
0