Consulta DNI RENIEC descargar GRATIS (Actualizado Febrero 2020)

Hola a toda mi linda gente de Perú, en especial a Gustavo que es mi fan #1 (Ya que sus publicaciones son muy ‘similares’ a las mías).

Hoy les traigo la tercera verisón de la aplicación de Consulta DNI RENIEC descargar GRATIS

Descargar consulta DNI RENIEC GRATIS (Contraseña: tutorialesexcel.com)

En anteriores publicaciones les he hablado sobre cómo realizar de diferentes formas consultas a la pagina de RENIEC LEER PUBLICACIÓN

Menciono que ésta es la tercera versión del aplicativo, porque ha tenido variaciones en el tiempo, y si en caso las fuentes de consulta que tenemos cambian, esta publicación también lo hará

La aplicación que crearemos nos permitirá obtener los siguientes campos

• Apellido Paterno
• Apellido Materno
• Nombre
• Código de verificación

A continuación explicaré cómo crear esta macro, puedes descargarla AQUÍ (Contraseña: tutorialesexcel.com)

Puedes descargar éste y todos los archivos de mis publicaciones desde Repositorio Tutoriales Excel, la contraseña de todos los archivos es tutorialesexcel.com

M4ster VBA

Paso #1: Crear el código en PHP

Vale, la primera pregunta que te harás será… ¿Qué diablos es PHP?, te comento rápidamente que es un lenguaje de programación web, y yo también programo en ese lenguaje

No te explicaré a detalle el código que usaré porque no le veo importancia a ello, sólo te comento que he programado un aplicación en PHP que permite obtener los datos que necesitamos

Y por supuesto no está en venta, es completamente gratis al igual que muchas de mis aplicaciones

No publicaré la web a la cual hago la consulta porque podrían cerrarla, similar a las web a las que nos conectamos antes:

• JNE – http://aplicaciones007.jne.gob.pe/srop_publico/Consulta/Afiliado/GetNombresCiudadano?DNI=XXXXXXXX
• RENIEC – http://clientes.reniec.gob.pe/padronElectoral2012/padronPEMDistrito.htm

La forma en la cual nos conectaremos no será por una petición GET, sino por una POST, usaremos a https://reqbin.com para ilustrarlo

Paso #2: Crear procedimiento que obtenga la información de DNI RENIEC

Muy bien, programemos! Primero crearé cinco variables y un pequeño y poderoso procedimiento

Dim cod$, apep$, apem$, nom$

Sub ConsultaIndividual(DNI$)
    Dim Respuesta$, web$, enviado$, Solicitud As Object
    Set Solicitud = CreateObject("winhttp.winhttprequest.5.1")
    
    web = "http://luisrojas.hol.es/2ren/tutorialesexcel.php"
    enviado = "dni=" & DNI & "&token=tutorialesexcel.com"
    Solicitud.Open "POST", web, False
    Solicitud.setrequestheader "Content-type", "application/x-www-form-urlencoded"
    Solicitud.send (enviado)

    Respuesta = Solicitud.responsetext
End Sub

Muy bien, con este código ya obtenemos la respuesta, y aplicaremos una lógica similar a cuando leemos un JSON

Dim cod$, apep$, apem$, nom$
Sub ConsultaIndividual(DNI$)
    Dim Respuesta$, web$, enviado$, Solicitud As Object
    Set Solicitud = CreateObject("winhttp.winhttprequest.5.1")
    
    web = "http://luisrojas.hol.es/2ren/tutorialesexcel.php"
    enviado = "dni=" & DNI & "&token=tutorialesexcel.com"
    Solicitud.Open "POST", web, False
    Solicitud.setrequestheader "Content-type", "application/x-www-form-urlencoded"
    Solicitud.send (enviado)

    Respuesta = Solicitud.responsetext
     persona = Split(Respuesta, "|")

    cod = persona(1)
    apep = persona(2)
    apem = persona(3)
    nom = persona(4)
    
End Sub

De esta forma asigno el valor correspondiente a cada variable

Paso #3: Realizar una consulta individual utilizando el procedimiento creado

Muy bien ya vamos a poder realizar una Consulta DNI RENIEC descargar desde Excel

Crearé una hoja y le asignaré el nombre Individual (Name: wIndividual)

Sub EjecutarIndividual()
    With wIndividual
        If .Range("D4") = Empty Or Len(.Range("D4")) <> 8 Then
            MsgBox "Error en el DNI", vbInformation, "TutorialesExcel.com"
            Exit Sub
        End If
        
        ConsultaIndividual .Range("D4")
        .Range("D6") = apep
        .Range("D7") = apem
        .Range("D8") = nom
        .Range("D9") = cod
    End With
End Sub

Y un pequeño código de limpieza

Sub LimpiarIndividual()
    wIndividual.Range("D6", "D9") = Empty
End Sub

Paso #4: Realizar una consulta DNI RENIEC masiva utilizando el código del paso #1

De manera similar al paso#2 crearé una hoja y le asignaré el nombre Masivo (Name: wMasivo)

Sub EjecutarMasiva()
    Dim i%, n%
    With wMasivo
        n = .Range("A1").CurrentRegion.Rows.Count
        For i = 2 To n
            Application.StatusBar = "Consultando " & i - 1 & " de " & n - 1
            ConsultaIndividual .Range("A" & i)
            .Range("B" & i) = apep: .Range("C" & i) = apem: .Range("D" & i) = nom: .Range("E" & i) = cod
            apep = Empty: apem = Empty: nom = Empty: cod = Empty
        Next
    End With
    Application.StatusBar = Empty
    MsgBox "Proceso terminado", vbInformation, "Tutoriales Excel"
End Sub

y el código de limpieza correspondiente

Sub LimpiarMasiva()
    Dim n%
    With wMasivo
        n = .Range("A1").CurrentRegion.Rows.Count
        If n > 1 Then
            .Range("A2", "E" & n) = Empty
        End If
    End With
End Sub

Descargar consulta DNI RENIEC GRATIS (Contraseña: tutorialesexcel.com)

Recuerda que puedes descargar éste y todos mis aplicativos desde Repositorio Tutoriales Excel, la contraseña de todos mis archivos es tutorialesexcel.com