Web Scraping na página InfoMoney
Enviado: Sáb Mai 18, 2019 5:42 pm
Tenho o código abaixo que acessa a página da INfoMoney e seleciona a opção Todos do botão para retornar todos os resultados. O problema é que só seleciona, mas não clica para retornar todas as cotações.
Código: Selecionar todos
Sub GetHtmlDocument()
Dim IE As New SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLOptions As MSHTML.IHTMLElementCollection
Dim HTMLOption As MSHTML.IHTMLElement
IE.Visible = True
IE.navigate "https://www.infomoney.com.br/ibovespa"
Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop
Set HTMLDoc = IE.Document
Set HTMLOptions = HTMLDoc.getElementsByTagName("option") 'É um botão
For Each HTMLOption In HTMLOptions
If HTMLOption.innerText = "Todos" Then
HTMLOption.Selected = True
Exit Sub
End If
Next HTMLOption
End Sub