Tomás Vásquez Fórum

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

Enviado: **Seg Mai 20, 2019 12:54 pm**

Prezados, bom dia!

Caro PauloSemblano, poderia me explicar um pouco melhor a sua necessidade?

Essa rotina somente verifica se a opção "TODOS" está selecionada, mas não tem nada que indique ao programa, o que fazer.

Tenho uma solução em Excel que atualiza a planilha automaticamente, e então, analisa vários dados para indicar quais as melhores opções de compra/venda de ações.

Qualquer coisa, só entrar em contato!

Um abraço!

Enviado: **Seg Mai 20, 2019 3:24 pm**

paulo seria algo mais ou menos assim
Set oSelect = .Document.getElementById("tblStockWallet_length")
oSelect.Focus
oSelect.selectedIndex =5
oSelect.FireEvent "onchange"

não testei, mas o valor de todos seria 10000
mas para mim em outra pagina esses comando funcionou

Tomás Vásquez Fórum

Web Scraping na página InfoMoney

Web Scraping na página InfoMoney

Re: Web Scraping na página InfoMoney

Re: Web Scraping na página InfoMoney