VBA Scraping
Publicado por Orbis (2 intervenciones) el 13/08/2018 19:39:26
Buen dia compañeros del foro alguien que me pueda apoyar de favor para a través de código VBA manipular una pagina web con un un menú desplegable, el cual contiene un link para cada opción no he encontrado solución para mediante scraping elegir la opcion deseada.
Este es el cogido Html que quiero manipular.
Este es codigo que estoy usando aunque me coloca la opción requerida, no me toma el valor seleccionado como valido ya que debo hacer como un click en la opcion (para que cargue como el link que aparece diferente en cada opcion Ver Imagen arriba) no lo he logrado.
Este es el cogido Html que quiero manipular.
Este es codigo que estoy usando aunque me coloca la opción requerida, no me toma el valor seleccionado como valido ya que debo hacer como un click en la opcion (para que cargue como el link que aparece diferente en cada opcion Ver Imagen arriba) no lo he logrado.
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
36
37
38
39
40
Sub MisCuentaSAT()
'funcionando parcial
Dim MyHTML_Element, DropList As IHTMLElementDim MyHTMl_Elements As IHTMLElementCollection
Dim MyURL As String
Dim i As Long
On Error GoTo Err_Clear
MyURL = "https://pacsat.facturaelectronica.sat.gob.mx/Aplicacion/Miscuentas"
Set MyBrowser = New InternetExplorerMyBrowser.Silent = True
MyBrowser.navigate MyURLMyBrowser.Visible = True
Do
Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
Set HTMLDoc = MyBrowser.document
Do
Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
Set HTMLDoc = MyBrowser.document
Set opciones = DropList.getElementsByTagName("option")
For Each elem In opciones
valor = elem.Value
If elem.Value Like "COP060201DL4*" Then
elem.Selected = True
Exit For
End If
Next
Err_Clear:If Err <> 0 Then
Err.ClearResume Next
End If
End Sub
Valora esta pregunta
0