Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Web Scraping na página InfoMoney

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
PauloSemblano
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Dom Ago 12, 2018 9:46 am

Web Scraping na página InfoMoney

Mensagem por PauloSemblano »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
PRMPOKER
Consultor
Consultor
Mensagens: 206
Registrado em: Ter Dez 04, 2012 8:57 am

Re: Web Scraping na página InfoMoney

Mensagem por PRMPOKER »

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!


Edcronos
Manda bem
Manda bem
Mensagens: 122
Registrado em: Qua Abr 02, 2014 2:23 am

Re: Web Scraping na página InfoMoney

Mensagem por Edcronos »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder