Valor do Papel na Bovespa

Esta função personalizada (UDF) retorna, à partir de um do código do papel passado como parâmetro para a função.

Public Function RetornaValorAtual(Papel As String)
'Desenvolvida por Bruno Leite
'bruno_silva_leite@yahoo.com.br

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")

ie.Navigate "http://www.bmfbovespa.com.br/Pregao-Online/FormConsultaCotacoes.asp?idLapela=divLapelaCotacao&idPainel=divConteudoCotacao"

 'Aguardando o carregamento
 While ie.ReadyState <> READYSTATE_COMPLETE
  DoEvents
 Wend

ie.Visible = True


'Enviando as informações

ie.Document.forms.Item(0).all.Item("txtCotacao1").Value = Papel

ie.DocumentDoc.forms.Item(0).all.Item("btnCotacao4").Click


'Retornando o valor

RetornaValorAtual = ie.Document.getElementsByTagName("td").Item(ie.Document.getElementsByTagName("td").Length - 2).innerText

ie.Quit

Set ie = Nothing

End Function

Em uma célula qualquer digite = RetornaValorAtual("BVMF3"), a função irá retornar o valor da última cotação do Papel BVMF3.