Caro Pedrobb,

Verifique se o link http://bvmf.bmfbovespa.com.br/fechamento-pregao/BuscarUltimosPregoes.aspx?Tipo=MercadoVistaDetalhe&Data=0616&Nivel=0&Ancora=A0&Idioma=pt-br traz o que você deseja.

O link trará as cotações das ações negociadas no dia com suas variações de preço. Basta alterar a data: Data=0616 (formato Data=mmdd) para o dia que você quiser as cotações. Obs.: Uns tempos atras essa data poderia voltar até um ano, mas agora o atraso é de poucos dias.

JoseMorato,

Obrigado pela dica.
Talvez exista solução via VBA.

Vixe,

Agora o Yahoo travou tudo. Vide mensagem:

"Chegou à nossa atenção que este serviço está sendo usado em violação dos Termos de Serviço do Yahoo. Como tal, o serviço está sendo descontinuado. Para todos os futuros mercados e pesquisa de dados de ações, consulte finance.yahoo.com."

Alguém tem solução pra capturar cotação de ações via Excel?

Grato,
Pedro

Bom dia!!

Eu fiz essa para um amigo.
Tente adaptar.

Sub PETR3()

Dim ie As New InternetExplorer
Dim getprice As String
Dim doc As HTMLDocument
    Application.ScreenUpdating = 0
        ie.Visible = False
        ie.Navigate "http://www.infomoney.com.br/petrobras-petr3"
        Do
            DoEvents
        Loop Until ie.ReadyState = READYSTATE_COMPLETE
        Set doc = ie.Document
        getprice = Trim(doc.getElementsByClassName("valor-ativo").Item.innerText)
        'Escreve os valores da cotação e Data/hora nas células
        Plan1.Range("A1").Offset(1, 0).Value = getprice
        Plan1.Range("B1").Offset(1, 0).Value = Now()
        Set ie = Nothing
        Set doc = Nothing
        'Mata os processos do IE
        Set objShell = CreateObject("Wscript.Shell")
        objShell.Run ("taskkill /im iexplore.exe"), 1, True
        'Copia os dados da contação para uma guia de historico
        Plan1.Range("A2:B2").Copy
        With Sheets("Historico").Range("A" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteColumnWidths
            .PasteSpecial Paste:=xlPasteValues
        End With
        Application.CutCopyMode = False
    Application.ScreenUpdating = 1
End Sub

Obs: Lembre se de fazer as referências necessárias!

Att

Alexandre,
Grato pela atenção!

Você poderia anexar planilha com o exemplo?

Grato,
Pedro

Bom dia!!

Segue..

At

Blza, muito bom!!!
agora só fazer um loop para carregar as cotações da carteira.
Obrigado

Blza, muito bom!!!
agora só fazer um loop para carregar as cotações da carteira.
Obrigado

Quem conseguir, favor publicar aqui no fórum.

alexandrevba

Boa noite,

Retomando este tópico, preciso de ajuda para preencher uma planilha de acompanhamento de ações que tenho. A planilha tem na coluna A uma sequencia de diversas ações selecionadas (PETR3, PETR4, ABEV3, etc) e as demais colunas ("B" a "G") são compostas pelas mesmas colunas disponiveis no site da infomoney em https://www.infomoney.com.br/petrobras-petr3/cotacoes , que são: Histórico / Fech. / Var.Dia(%) / Abertura / Mínimo / Médio / Máximo / Volume / Negócios.

Gostaria da fórmula / macro para preencher cada uma dessas colunas ("B" a "G") com as informações do último pregão de cada uma das ações. É que hoje eu entro manualmente nesse site e copio e colo tais valores de cada uma dessa lista de ações que acompanho.

Ou se possível, gostaria de uma macro que copiasse o histórico de todas essas ações que acompanho de determinado período e alimentasse minha planilha.

Obrigado

https://www.youtube.com/results?search_query=vba+obter+dados+online