Consulta DNI RENIEC descargar GRATIS (Actualizado Setiembre 2019)

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 una aplicación llamada 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

Hoy les mostraré una pequeña aplicación para hacer consultas masivas de sólo los siguientes campos:

Apellido paterno
Apellido materno
Nombre o nombres

Recuerda que si deseas adicionar los campos Fecha de nacimiento y sexo, puedes comprar mi aplicativo //tutorialesexcel.com/descargas/consulta-dni-reniec-excel/ a sólo S/ 50.00

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 procedimiento que obtenga la información de DNI RENIEC

Bueno, vamos a obtener la informacion de la página del JNE la cual es //aplicaciones007.jne.gob.pe/srop_publico/Consulta/Afiliado/GetNombresCiudadano?DNI=XXXXXXXX

Si cambiamos XXXXXXXX por un número de DNI podemos obtener la información de la persona

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

Dim apePat As String, apeMat As String, nombre As String
Sub ConsultaIndividual(DNI As String)
    Dim Respuesta$, web$, enviado$, Solicitud As Object
    Set Solicitud = CreateObject("winhttp.winhttprequest.5.1")

    web = "//aplicaciones007.jne.gob.pe/srop_publico/Consulta/Afiliado/GetNombresCiudadano"
    enviado = "DNI=" &amp; DNI
    Solicitud.Open "GET", web, False
    Solicitud.setrequestheader "Content-type", "application/x-www-form-urlencoded"
    Solicitud.send (enviado)
    Respuesta = Solicitud.responsetext
End Sub

Dim apePat As String, apeMat As String, nombre As String

Sub ConsultaIndividual(DNI As String)

Dim Respuesta$, web$, enviado$, Solicitud As Object

Set Solicitud = CreateObject("winhttp.winhttprequest.5.1")

web = "//aplicaciones007.jne.gob.pe/srop_publico/Consulta/Afiliado/GetNombresCiudadano"

enviado = "DNI=" & DNI

Solicitud.Open "GET", 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 apePat As String, apeMat As String, nombre As String
Sub ConsultaIndividual(DNI As String)
    Dim Respuesta$, web$, enviado$, Solicitud As Object
    Set Solicitud = CreateObject("winhttp.winhttprequest.5.1")

    web = "//aplicaciones007.jne.gob.pe/srop_publico/Consulta/Afiliado/GetNombresCiudadano"
    enviado = "DNI=" &amp; DNI
    Solicitud.Open "GET", web, False
    Solicitud.setrequestheader "Content-type", "application/x-www-form-urlencoded"
    Solicitud.send (enviado)
    Respuesta = Solicitud.responsetext
    persona = Split(Respuesta, "|")
    apePat = persona(0)
    apeMat = persona(1)
    nombre = persona(2)
End Sub

Dim apePat As String, apeMat As String, nombre As String

Sub ConsultaIndividual(DNI As String)

Dim Respuesta$, web$, enviado$, Solicitud As Object

Set Solicitud = CreateObject("winhttp.winhttprequest.5.1")

web = "//aplicaciones007.jne.gob.pe/srop_publico/Consulta/Afiliado/GetNombresCiudadano"

enviado = "DNI=" & DNI

Solicitud.Open "GET", web, False

Solicitud.setrequestheader "Content-type", "application/x-www-form-urlencoded"

Solicitud.send (enviado)

Respuesta = Solicitud.responsetext

persona = Split(Respuesta, "|")

apePat = persona(0)

apeMat = persona(1)

nombre = persona(2)

End Sub

De esta forma asigno el valor correspondiente a cada variable

Pero… También debemos considerar que se pueden realizar consultas de números inexistentes y la página nos devolvería este mensaje

Como obtenemos el código HTML en la respuesta, basta con hacer lo siguiente

Dim apePat As String, apeMat As String, nombre As String
Sub ConsultaIndividual(DNI As String)
    Dim Respuesta$, web$, enviado$, Solicitud As Object
    Set Solicitud = CreateObject("winhttp.winhttprequest.5.1")

    web = "//aplicaciones007.jne.gob.pe/srop_publico/Consulta/Afiliado/GetNombresCiudadano"
    enviado = "DNI=" &amp; DNI
    Solicitud.Open "GET", web, False
    Solicitud.setrequestheader "Content-type", "application/x-www-form-urlencoded"
    Solicitud.send (enviado)
    Respuesta = Solicitud.responsetext
    persona = Split(Respuesta, "|")
    apePat = persona(0)
    If InStr(apePat, "DOCTYPE") &gt; 0 Then
        apePat = Empty
        Exit Sub
    End If
    apeMat = persona(1)
    nombre = persona(2)
End Sub

Dim apePat As String, apeMat As String, nombre As String

Sub ConsultaIndividual(DNI As String)

Dim Respuesta$, web$, enviado$, Solicitud As Object

Set Solicitud = CreateObject("winhttp.winhttprequest.5.1")

web = "//aplicaciones007.jne.gob.pe/srop_publico/Consulta/Afiliado/GetNombresCiudadano"

enviado = "DNI=" & DNI

Solicitud.Open "GET", web, False

Solicitud.setrequestheader "Content-type", "application/x-www-form-urlencoded"

Solicitud.send (enviado)

Respuesta = Solicitud.responsetext

persona = Split(Respuesta, "|")

apePat = persona(0)

If InStr(apePat, "DOCTYPE") > 0 Then

apePat = Empty

Exit Sub

End If

apeMat = persona(1)

nombre = persona(2)

End Sub

Paso #2: 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") = apePat
        .Range("D7") = apeMat
        .Range("D8") = nombre
    End With
End Sub

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") = apePat

.Range("D7") = apeMat

.Range("D8") = nombre

End With

End Sub

Y un pequeño código de limpieza

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

Sub LimpiarIndividual()

wIndividual.Range("D6", "D8") = Empty

End Sub

Paso #3: 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
            ConsultaIndividual .Range("A" &amp; i)
            .Range("B" &amp; i) = apePat: .Range("C" &amp; i) = apeMat: .Range("D" &amp; i) = nombre
            apePat = Empty: apeMat = Empty: nombre = Empty
        Next
    End With
    MsgBox "Proceso terminado", vbInformation, "Tutoriales Excel"
End Sub

Sub EjecutarMasiva()

Dim i%, n%

With wMasivo

n = .Range("A1").CurrentRegion.Rows.Count

For i = 2 To n

ConsultaIndividual .Range("A" & i)

.Range("B" & i) = apePat: .Range("C" & i) = apeMat: .Range("D" & i) = nombre

apePat = Empty: apeMat = Empty: nombre = Empty

End With

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 &gt; 1 Then
            .Range("A2", "D" &amp; n) = Empty
        End If
    End With
End Sub

Sub LimpiarMasiva()

Dim n%

With wMasivo

n = .Range("A1").CurrentRegion.Rows.Count

If n > 1 Then

.Range("A2", "D" & 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 Cancelar respuesta

2 ideas sobre “Consulta DNI RENIEC descargar GRATIS (Actualizado Setiembre 2019)”

2 Comentarios

JOHNNY
junio 24, 2019, 6:37 pm

Gracias por publicar este aplicativo de VBA EXCEL, tu explicacion es general ya que se entiende que es para expertos, yo como PRINCIPIANTE en vba, veo lo potente que es la programacion en vba excel y me despiarta mas interes, gracias por compartir tus conocimientos.

Responder
- Programador Autor
  junio 24, 2019, 6:44 pm
  
  Hola Johnny gracias por seguir el blog
  Hago publicaciones de diferente nivel, pero me gusta más el VBA en web
  Si te interesa voy a dictar un curso de VBA presencial en Lima Perú, puedo pedir que te envíen informes
  
  Responder