Click en un elemento de pagina WEB
Publicado por carlos (36 intervenciones) el 05/06/2020 17:33:50
Un saludo,
Tengo la siguiente macro que intenta entrar a la informacion de un expediente de una pagina web. En el primer paso se digita el numero del expediente y este lo lleva a una pagina en donde sale los expedientes que coinciden con el criterio, despues se debe entrar al expediente objetivo a traves de hacer un click sobre el texto que esta en color azul, es aqui en donde quedo bloqueado para poder programarlo. He buscado en foros y youtube pero no doy. Algunos me sugieren hacerlo con sendkeys, ('SendKeys "{Enter}", True 'SendKeys "{TAB}"), True, otros que busque el ID del elemento pero no se que como identificarlo en el codigo HTML, no hallo como hacerlo. Alguien que me pueda dar una manito. Bendiciones.
Tengo la siguiente macro que intenta entrar a la informacion de un expediente de una pagina web. En el primer paso se digita el numero del expediente y este lo lleva a una pagina en donde sale los expedientes que coinciden con el criterio, despues se debe entrar al expediente objetivo a traves de hacer un click sobre el texto que esta en color azul, es aqui en donde quedo bloqueado para poder programarlo. He buscado en foros y youtube pero no doy. Algunos me sugieren hacerlo con sendkeys, ('SendKeys "{Enter}", True 'SendKeys "{TAB}"), True, otros que busque el ID del elemento pero no se que como identificarlo en el codigo HTML, no hallo como hacerlo. Alguien que me pueda dar una manito. Bendiciones.
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
Sub Rechercher_Web_Structure()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "http://seao.ca"
Do Until ie.readyState = 4
DoEvents
Loop
Application.Wait (Now + TimeValue("0:00:01"))
No_Structure = "7007-18-sh01"
With ie
.document.getElementById("ctl00_ctl00_UCOpportunitySearch_txtSearch").Value = No_Structure
.document.getElementById("btnSimpleSearch").Click
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.Visible = True
End With
End Sub
Valora esta pregunta
0
