busquedas automaticas en la web
Publicado por mILTON cOYAGO (1 intervención) el 13/12/2018 21:25:22
Necesito en Excel (vba) hacer una macro o robot para ingresar unos datos en una pagina web tomando como valores un listado de data (cedula y fecha) que tengo en una hoja de Excel, esos parámetros ya lo logre pasar al formulario con esta elemento "IE.Document.getElementById", pero al intentar darle click al botón que aparece para poder completar la operación que quiero veo que el botón como tal no tiene variable id o el name para poder hacer el click desde Excel.
dejo la pagina web a la que intento acceder:
https://aplicaciones.msp.gob.ec/coresalud/app.php/publico/rpis/afiliacion/consulta
Hasta aqui la pagina busca solo la cedula que ingreso pero necesito que seleccione por si sola el siguiente numero de mi lista (cerca de 1000), y que cada busqueda copie los datos en una hoja diferente.
Esto e lo que he hecho hasta ahora
dejo la pagina web a la que intento acceder:
https://aplicaciones.msp.gob.ec/coresalud/app.php/publico/rpis/afiliacion/consulta
Hasta aqui la pagina busca solo la cedula que ingreso pero necesito que seleccione por si sola el siguiente numero de mi lista (cerca de 1000), y que cada busqueda copie los datos en una hoja diferente.
Esto e lo que he hecho hasta ahora
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub CARGAR_DATOS_WEB()
Dim ie As Object
Dim allelements As Object
Application.ScreenUpdating = False
'Creamos objeto internet explorer
Set ie = CreateObject("InternetExplorer.Application")
'abrimos web
ie.navigate "https://aplicaciones.msp.gob.ec/coresalud/app.php/publico/rpis/afiliacion/consulta"
'esperamos a que se carguen todos los elementos
Do Until ie.READYSTATE = 4
DoEvents
Loop
'si necesitamos más tiempo lo podemos configurar aquí
Application.Wait (Now + TimeValue("0:00:01"))
'localizamos el ID que hace referencia al cuadro de búsqueda
'esto lo hacemos buscando en el código HTML de la página web
'e igualamos el valor de la celda para realizar la búsqueda
ie.document.getElementById("identificacion").Value = "0105822712"
ie.document.getElementById("fechaconsulta").Value = "12-12-2018"
'también buscamos ID correspondiente al botón para buscar el valor
ie.document.getelementsbytagname("button")(1).Click
'hacemos visible la web.
ie.Visible = False
Set ie = NothingApplication.ScreenUpdating = True
End Sub
Valora esta pregunta
0