Consulta masiva de acreditados EsSalud GRATIS

Hola a todos mis seguidores! Hoy les daré un regalo y es la macro de Consulta masiva de acreditados EsSalud

Consulta masiva de acreditados EsSalud
//ww4.essalud.gob.pe:7777/acredita/

Para descargar la aplicación de consulta masiva, puedes hacer click en el siguiente enlace DESCARGAR GRATIS APLICACIÓN ESSALUD XLSM

Esta macro es 100% desarrollada por mí, y como todos mi desarrollos no tiene problemas con los antivirus

A continuación explicaré en 6 sencillos pasos la creación de esta macro

#1 – Resumen del análisis de Acreditación EsSalud

En la anterior publicación que realicé llegué a la conclusión que sólo es necesario ingresar el captcha de EsSalud una vez.

Las consultas siguientes se pueden realizar sin ningún problema ingresando un captcha erroneo

Acreditaciones EsSalud
Captura de pantalla del POST anterior

Muy bien, para poder realizar una Consulta masiva de acreditados EsSalud usaremos esta opción

No coloco un lector de captcha POST LECTOR DE CAPTCHA DESDE EXCEL porque haríamos muchos bucles

Debido a la ofuscación del captcha, lo podríamos leer después de varias iteraciones

Pero de acuerdo a mi publicación anterior, sólo es necesario leerlo bien una vez

#2 – Diseñando la interfaz de consulta individual y masiva Excel

Sí mi querido lector, lo primero que debemos hacer es diseñar las interfaces

Consulta masiva acreditacion EsSalud Excel
Consulta masiva acreditacion EsSalud Excel

He agregado un objeto activex Image, una imagen con el símbolo de refresh y dos formas (Buscar y Limpiar)

La fecha de nacimiento y el sexo se obtienen del autogenerado

Para la consulta masiva realizaré el siguiente diseño:

Consulta masiva acreditados EsSalud
Consulta masiva acreditados EsSalud

#3 – Programando el actualizar de Captchas VBA

El nombre de ambos objetos Image será IMGcaptcha, como se encuentran en diferentes hojas no habrá conflicto

El objetivo es que valor Picture de los objetos IMGcaptcha se actualice cuando se presione la imagen de Refresh

Para ello usaremos laAPI URLDownloadToFile, la declaramos de la siguiente forma:

Código de actualización de captcha – consultas individuales

Código de actualización de captcha – Consultas masivas

El objetivo es obtener lo siguiente:

Actualizar captcha Excel VBA
Actualizar captcha Excel VBA

#4 – Código principal para la Consulta masiva de acreditados EsSalud

Muy bien! Como no me gusta programar dos veces lo mismo, haré que tanto la consulta individual como masiva accedan a una instrucción en común

Todos los valores obtenidos los almacenaré en un array y este será del tipo Private

Como necesito limpiar constantemente el array en las consultas masivas, necesitaré un variable numérica que recorra valores del 0 al 10 y me consuma poca memoria (Byte)

Necesitaré 5 variables del tipo String, las cuales serán las siguientes:

  • archivo : Ruta en donde se almacerá la web descargada
  • lineaTexto : Almacenará cada línea de la web descargada
  • contenido : Acumulará el contenido de lineaTexto
  • busqueda1 : Guardará el texto de la primera cadena a buscar en la web descargada
  • busqueda2 : Guardará el texto que limitará la cadena de texto a buscar en la web descargada

Programando el código principal de consultas EsSalud

La primera parte de nuestro código quedaría así

Enviamos dos parámetros a esta macro, DNI y Captcha

Después de esto debemos hacer una lectura del archivo descargado con extensión .web

Limpiar el arreglo, para ello usamos a i que es de tipo byte

El archivo con extensión web tendrá muchos espacios en blanco y saltos de línea, por lo que es necesario eliminarlos

Hasta este punto ya tenemos el archivo que necesitamos con extensión web, ahora debemos encontrar los datos que requerimos

Para agilizar el proceso usaré a una función

Mi función Resultado extraerá un texto contenido entre dos frases, el cual será el texto que deseamos obtener

Luego al resultado final le aplicacamos un Application.WorksheetFunction.Trim, que es la función espacios de Excel

Muy bien ahora sólo basta con encontrar el texto que necesitamos y lo haremos con el siguiente código

valores(3) y valores(4) se obtienen de una pequeña operación que hacemos a valores(2)

#5 – Programando la Consulta individual de acreditados EsSalud

Muy bien primero programaremos la consulta individual

Antes de realizar la consulta, debemos limpiar las casillas, por lo que usaremos este código

Esta macro la asignaremos al botón limpiar y también la llamaré al inicio de la consulta individual

Ahora, no deseo ver cómo se va imprimiendo la data, por lo que usaré a dos amigos

Inicio la llamaré antes de que realice la consulta, Fin la llamaré después de realizada la consulta

Y finalmente mi consulta individual será de la siguiente forma:

#6 – Programando la Consulta Masiva de acreditados EsSalud

De manera similar al caso anterior, primero programaremos la limpieza masiva, quedando de la siguiente forma

Uso a IIF por si el listado se encuentra vacío

Para la consulta masiva realizaremos lo siguiente:

He modificado el StatusBar para que se muestre qué consulta se está ejecutando, aunque no es necesario porque mi aplicativo es muy rápido

Descarga el aplicativo complemente GRATIS

Muy bien todo el código que necesitamos lo encontramos líneas arriba, si deseas el aplicativo lo puedes descargar en el siguiente enlace:

DESCARGAR GRATIS APLICACIÓN ESSALUD XLSM

EsSalud Búsqueda acreditados
Búsqueda individual EsSalud
Búsqueda masiva Acreditados EsSalud Excel
Búsqueda masiva Acreditados EsSalud

Lo único que deben realizar es completar correctamente el captcha antes de hacer cualquier consulta, ya sea individual o masiva

Espero te haya servido mi publicación, si te gustó por favor regálame un comentario, me ayudarías mucho

Jh

Cualquier consulta me la puedes realizar en los comentarios o al correo contacto@tutorialesexcel.com

Si deseas realizar consultas masivas de DNI, te aconsejo comprar mi aplicación: CONSULTA INDIVIDUAL Y MASIVA DNI RENIEC EXCEL

Dejar un comentario

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

2 ideas sobre “Consulta masiva de acreditados EsSalud GRATIS”