Excel - hacer un excel q incluya datos de otro excel

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