Consulta DNI RENIEC descargar GRATIS (Actualizado Julio 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 cuarta versión de la aplicación de Consulta DNI RENIEC descargar GRATIS

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 cuarta 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
Fecha de nacimiento
Sexo
Código de verificación

A continuación explicaré cómo crear esta macro

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: Encontrar la web de consulta

Lo primero que tenemos que ubicar es una web a donde podamos conectarnos

En este caso, por recomendación de mi colega Jesús Pravia, nos conectaremos a https://www.facturacionelectronica.us

Este programa es completamente gratis al igual que muchas de mis aplicaciones

Esperemos no nos cierren la web de consulta esta vez jeje, las anteriores webs a donde nos hemos conectado han sido

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

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

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

Dim apep$, apem$, nom$, fnac$, sexo$, codval As Byte
Sub ConsultaIndividual(DNI$)
    Dim Respuesta$, web$, enviado$, Solicitud As Object
    Set Solicitud = CreateObject("winhttp.winhttprequest.5.1")
    
    web = "https://www.facturacionelectronica.us/facturacion/controller/ws_consulta_rucdni_v2.php?documento=DNI&usuario=10447915125&password=985511933&nro_documento=" & DNI
    enviado = ""
    Solicitud.Open "GET", web, False
    Solicitud.setrequestheader "Content-type", "application/x-www-form-urlencoded"
    Solicitud.send (enviado)

    Respuesta = Solicitud.responsetext

    nom = limpiarRespuesta(Respuesta, "Nombre", "Paterno")
    apep = limpiarRespuesta(Respuesta, "Paterno", "Materno")
    apem = limpiarRespuesta(Respuesta, "Materno", "FechaNac")
    fnac = limpiarRespuesta(Respuesta, "FechaNac", "Sexo")
    sexo = limpiarRespuesta(Respuesta, "Sexo", "distrito")
    
    Dim suma As Integer, resto As Integer, complemento As Byte
    suma = 5 + Val(Mid(DNI, 1, 1)) * 3 + Val(Mid(DNI, 2, 1)) * 2 + Val(Mid(DNI, 3, 1)) * 7 + Val(Mid(DNI, 4, 1)) * 6 + Val(Mid(DNI, 5, 1)) * 5 + Val(Mid(DNI, 6, 1)) * 4 + Val(Mid(DNI, 7, 1)) * 3 + Val(Mid(DNI, 8, 1)) * 2
    resto = suma Mod 11
    codval = IIf(resto = 1, 0, Val(Left(11 - resto, 1)))
    
End Sub

Para que mi hermoso código funcione, necesitaremos un código de limpieza de respuesta, el cual será ejecutado por la siguiente función

Function limpiarRespuesta(Resp As String, pi As String, pf As String) As String
    Dim devu$, posi%, posf%
    
    posi = InStr(Resp, pi) + Len(pi) + 1
    posf = InStr(Resp, pf) - 1
    devu = Mid(Resp, posi, posf - posi)
    devu = Replace(devu, ":", "")
    devu = Replace(devu, ",", "")
    devu = Replace(devu, Chr(34), "")
    devu = Replace(devu, Chr(10), "")
    devu = Replace(devu, Chr(13), "")
    devu = Replace(devu, Chr(92), "")
    
    devu = Application.WorksheetFunction.Trim(devu)
    limpiarRespuesta = devu
End Function

De esta forma asigno el valor correspondiente se asignará 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)

Y usaremos el siguiente código para realizar la consulta individual

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") = nom
        .Range("D7") = apep
        .Range("D8") = apem
        .Range("D9") = fnac
        .Range("D10") = sexo
        .Range("D11") = codval
    End With
End Sub

Y un pequeño código de limpieza

Sub LimpiarIndividual()
    wIndividual.Range("D6", "D11") = 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)

Con el siguiente código de consulta masiva

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) = nom: .Range("C" & i) = apep: .Range("D" & i) = apem: .Range("E" & i) = fnac: .Range("F" & i) = sexo: .Range("G" & i) = codval
            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", "G" & n) = Empty
        End If
    End With
End Sub

Para descargar el aplicativo gratis, puedes dar click en el siguiente enlace

No olvides suscribirte en nuestra cuenta de Youtube y unirte a nuestro grupo de Whatsapp

Esta entrada tiene 44 comentarios

Enrique 26 Jul 2020 Responder

Tendra o podria recomendar algun curso para realizar las diversas consultas a internet a través de vba
1. Ing. Luis Rojas 30 Jul 2020 Responder
  
  Será el próximo curso a realizarse 🙂
Maick Davila 2 Jul 2020 Responder

Excelente aporte !!!
Ana E 24 Jun 2020 Responder

Buenos Días Ingeniero, la macro dejo de funcionar otra vez.Le envíe un correo , si fuera amable de enviármelo sería de gran ayuda.
1. Ing. Luis Rojas 24 Jun 2020 Responder
  
  Hola Angie, sí parece que le dieron de baja a la web donde me conectaba, voy a crear otro código para poder desarrollar la versión 4, espero no demorar mucho
  Si necesitas urgente una aplicación de consulta de DNI puedes descargar la que se encuentra en el paquete gratuito de mi curso online https://www.udemy.com/course/tutorialesexcel_curso_excel_vba_nivel1/?referralCode=6B6593CADBE23EA13408
  Es muy rápida, ayer corrí más de 3000 registros en pocos minutos
  1. Ana E 25 Jun 2020 Responder
    
    Estaré a la espera que pueda acceder a una nueva versión.Gracias por su aporte.
  2. Virgilio 25 Jun 2020 Responder
    
    Ing, saludar y felicitar por su gran aporte, si por ahora efectivamente la macro sale un error, podría brindarme alguna otra ayuda para concluir con consulta masiva de DNI, muchas gracias
    1. Ing. Luis Rojas 25 Jun 2020 Responder
      
      Hola Virgilio, gracias por tus palabras, aún estoy buscando una web para hacer la consulta
      Estoy un poco corto de tiempo estos días, si necesitas un aplicativo de consulta masiva DNI rápido y seguro desde Excel puedes descargarlo desde mi curso virtual https://www.udemy.com/course/tutorialesexcel_curso_excel_vba_nivel1/?referralCode=6B6593CADBE23EA13408
  3. Franccesco 23 Jul 2020 Responder
    
    Gran aporte en verdad Luis! Te deseo lo mejor! Gracias.
Fer 24 Jun 2020 Responder

Excelente aporte, estoy usando el aplicativo pero me lanza un error y no logra hacer ninguna consulta lanzando error en la linea Solicitud.send (enviado) de la macro. gracias.
1. Ing. Luis Rojas 24 Jun 2020 Responder
  
  Hola Fer, sí parece que le dieron de baja a la web donde me conectaba, voy a crear otro código para poder desarrollar la versión 4, en la próxima semana ya debo tenerla desarrollada
  Si necesitas urgente una aplicación de consulta de DNI puedes descargar la que se encuentra en el paquete gratuito de mi curso online https://www.udemy.com/course/tutorialesexcel_curso_excel_vba_nivel1/?referralCode=6B6593CADBE23EA13408
Miguel 22 Jun 2020 Responder

Hola Jorge, muchas gracias por el aporte. He descargado hoy la versión 3 y me sale «Se ha producido un error ‘-2147012894 (80072ee2)’ en tiempo de operación» cada vez que corro la macro.

Muchas gracias de antemano
1. Ing. Luis Rojas 24 Jun 2020 Responder
  
  Hola Miguel, gracias por tu comentario, la fuente a la que me conectaba se ha dado de baja, voy a buscar otra fuente y actualizaré este útil aplicativo
Fernando 22 Jun 2020 Responder

Hola, excelente aporte, pero cuando le doy en consulta masiva sale un error en la linea de Solicitud.send (enviado), que sera? gracias.
Luis 22 Jun 2020 Responder

No funciona, demora bastante y nada. Eso si funciono unos dias, pero despues. Nada de nada.
1. Ing. Luis Rojas 24 Jun 2020 Responder
  
  Hola, la web de consulta fue dada de baja, esto sucede cuando se realiza un cambio en el código web
  Buscaré otra fuente para poder realizar las consultas
  1. Luis 2 Jul 2020 Responder
    
    Muchas gracias, esperamos que se logre ubicar otra solucion. Buen trabajo. Particularmente si lo use como un mes.
    1. Luis 2 Jul 2020 Responder
      
      Profesor, ya esta operativo nuevamente la pagina de RENIEC, lo acabo de verificar. Saludos.
VSAnubi 19 May 2020 Responder

Eres un maestrazo!
Solo una consulta y esperare respuesta pacientemente: En el futuro, los que nazcan después de la creación del Excel y el Macro, saldrán también? O solo hasta cierta fecha? Espero se entienda mi pregunta. Abrazos cordialesl.
edgar flores 11 Mar 2020 Responder

quisiera adaptarlo a visual studio vb.net
isaac 18 Feb 2020 Responder

Hola, me podrias explicar paso por paso, lo descargo pero no funciona.
1. Ing. Luis Rojas 19 Feb 2020 Responder
  
  Hola Isaac, la explicación del código se encuentra en el blog, descarga la versión 3 desde https://drive.google.com/file/d/1yq8bNuXPkuPwuApOU2bIVgRITxMWj5MU/view
Jaime 18 Feb 2020 Responder

Habia una version anterior, ya ha dejado de estar disponible?, mostraba donde votó el dni consultado.
1. Ing. Luis Rojas 18 Feb 2020 Responder
  
  Correcto Jaime, la versión dos ha sido suspendida porque la web de consulta eliminó su desarrollo, ahora la aplicación se conecta a una nueva web
  1. Jaime 19 Feb 2020 Responder
    
    ok, Gracias por contestar.
RAUL 17 Feb 2020 Responder

AMIGO NO FUNCIONA LA MACRO, SE CAYÓ LA PLATAFORMA. PUEDES SUBIR UNO NUEVO PORFAVOR
1. Ing. Luis Rojas 17 Feb 2020 Responder
  
  La página de consulta dejó de funcionar, ahora me he conectado a otra web, descarga el nuevo archivo por favor
  1. Justa 3 Jun 2020 Responder
    
    Hola tienes alguna forma de consultar el DNI pero teniendo el nombre, y de una forma masiva?.
    Busco alguien que me haga ese trabajo automatizado
Ana E 17 Feb 2020 Responder

Buenos Días Ingeniero, no he podido realizar la consulta masiva porque dejo de funcionar.
Sería de gran ayuda si tiene una actualizada.
Gracias por su atención.
1. Ing. Luis Rojas 17 Feb 2020 Responder
  
  Actualiza y descarga la nueva versión por favor, la web de consulta ha cambiado
REYLER 30 Nov 2019 Responder

y en php como sería?
1. M4ster VBA 2 Dic 2019 Responder
  
  El PHP scrapea la web de RENIEC, no puedo compartir el código PHP porque mostraría la web a la que se conecta y podrían cerrarla
2. Julino 8 Jun 2020 Responder
  
  Como puedo ver mi dni ambas caras
  1. Ing. Luis Rojas 9 Jun 2020 Responder
    
    Usa la App de Reniec, te piden una validación de rostro
jose 11 Nov 2019 Responder

Muchas gracias por la ayuda!
1. M4ster VBA 13 Nov 2019 Responder
  
  De nada José, hay que compartir conocimiento siempre 🙂
Giovanni 22 Oct 2019 Responder

Muchas gracias por el gran aporte que brindas a los usuarios. Me sirve mucho como apoyo masivo. Genial !
Una consulta, la actualizacion del mes de octubre no me permite generar bsuqueda, me sale error en las macros y en el tiempo de respuesta. Gracias, quedo atento a tus comentarios.
1. M4ster VBA 22 Oct 2019 Responder
  
  Hola Giovanni, gracias por tu comentario, el archivo hace una conexión a mi web http://luisrojas.hol.es/2ren/tutorialesexcel.php, por favor verifica si tienes acceso a esa web, podría ser que tu antivirus este bloqueando la comunicación
Julio 21 Oct 2019 Responder

Estimado, podrías confirmarme si existe alguna versión que brinde los apellidos separados, o en su defecto si se podría hacer ese ajuste, cual sería el precio? 🙂 Gracias por los contenidos, son muy educativos.
1. M4ster VBA 27 Oct 2019 Responder
  
  Hola Julio, en vista que hay bastante demanda por este tema, he creado una nueva publicación https://tutorialesexcel.com/descargas/consulta-dni-reniec-excel/ en detallo el funcionamiento del aplicativo consulta DNI de pago
JOHNNY 24 Jun 2019 Responder

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.
1. Programador 24 Jun 2019 Responder
  
  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
  1. JORGE 26 Oct 2019 Responder
    
    Por favor me podrias enviar informes. gracias
    1. M4ster VBA 27 Oct 2019 Responder
      
      Hola Jorge, hay una versión de paga que puedes revisar en el siguiente enlace https://tutorialesexcel.com/wp-content/hostinger-page-cache/descargas/consulta-dni-reniec-excel/_index.html, el video del funcionamiento lo puedes ver en https://www.youtube.com/watch?v=xBK6Nnfm-yA&feature=youtu.be