Tutoriales en Excel | Excel Negocios | Aplicaciones en Excel
Tutoriales en Excel | Excel Negocios | Aplicaciones en Excel

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

Consulta DNI RENIEC Gratis

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)

Consulta individual RENIEC Excel
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)

Consulta nombres reniec dni
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

Dejar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

22 ideas sobre “Consulta DNI RENIEC descargar GRATIS (Actualizado Febrero 2020)”