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.
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.
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
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.
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