Cotação atual da ação

Pessoal, boa tarde!

Não consigo encontrar uma solução para conseguir a cotação atual de uma ação da bolsa de valores.

O meu objetivo é que todo o ticker que eu informar, o access me retorne o valor atual.

Alguem consegue me ajudar ?

Olá Fernando, seja Bem-Vindo ao fórum!

Veja se é isto que pretende:
https://www.maximoaccess.com/t33379-resolvidocapturar-obter-cotacao-de-moeda-de-website

Ou este excelente exemplo do nosso colega Alexandre Fim:
https://www.maximoaccess.com/t35161p2-vincular-cotacao-da-moeda-da-web-ao-banco-de-dados

São dois exemplos de obter dados através da web, pode sempre tentar a "Busca" aqui do fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Abraço

Bom dia fernandojsbs

Estou desenvolvendo um sistema para analise de ações.

Esta no inicio ainda mais pode lhe ajudar com o que deseja.

Segue anexo.


Montei da seguinte forma. Foi criado uma planilha online (planilha sheets) e publicada, com 444 tickers que atualiza altomatico com a formula (googlefinance).
Depois criei uma planilha no PC puxando este dados e atualiza em minuto a minuto, e vinculei ela no Access.
Criei uma rotina para abrir o excel oculto e ficar pegando estes valores e alimentando a Tabela "Dados".

Assim terei um historico para criar as analises e apontar os pontos de compras e vendas.

Não conheço muito sobre o Mercado de Ações mais gostaria de desenvolver este sistema para começar .

Boa noite pessoal!!

Ainda não é isso que procuro... as soluções acima são específicas e o que eu procuro é uma solução dinâmica, ou seja, após digitar qq ação o sistema retorne a cotação.


Obrigado pela atenção.

Olá a todos,

Fernando, os exemplos aborda como podemos capturar a informação através de websites de terceiros da internet.
Talvez seja melhor explicar o que tem em ideia.

Abraço a todos

Bom dia fernandojsbs,

Para sua necessidade basta vincular a planilha que lhe enviei e utilizar o "DLookup" para puxar o valor da ação.

Código:


Referencia a um Controle:

Para valores numericos: (sem aspas)

        DLookup("Campo", "Tabela", "CampoFiltro = " & forms!NomeDoFormulario!NomeDoCampo)

Para Texto: (aspas simples)

        DLookup("Campo", "Tabela", "CampoFiltro = '" & forms!NomeDoFormulario!NomeDoCampo & "'")

Para datas:

        DLookup("Campo", "Tabela", "CampoFiltro = #" & forms!NomeDoFormulario!NomeDoCampo & "#")

Bom dia fernandojsbs,

Conseguiu resolver ?

Olá a todos,

Fernando, como ficou a situação?
Os membros do fórum merecem e agradecem o feedback.

Abraço a todos

Olá amigos.
Utilizei um pouco de cada informação disponível e cheguei a uma solução para consultar a cotação.
A ideia é ter uma tabela (tblcot) com campo para os tickers dos ativos (cod_cot) e outro campo para receber a cotação (vlr_cot).
Se encontrarem falhas ou melhorias possíveis, é só avisarem.
Coloquei um loop a mais para quando houver falhas no carregamento ou leitura dos dados, resolveu o problema.
Para ler apenas um ativo digitado, basta usar reduzir o código.

Código:


Public Function AttCotDia()
On Error Resume Next

    Dim rs As Recordset
    Dim vlcot As Double 'Irá receber a cotação
    Dim ctg As Integer 'Irá definir se a consulta do próximo ativo pode ser iniciada
    Dim msgerro, endnav, codloc As String
    
    ctg = 1
    vlcot = Empty

    Dim iex
    Set iex = CreateObject("internetexplorer.application")
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblcot;") 'abre a tabela

Do While Not rs.EOF
    codloc = Replace(rs("cod_cot"), "13", "11")
    codloc = Replace(codloc, "14", "11")
    codloc = Replace(codloc, "15", "11") 'Caso haja algum recibo de subscrição de FIIs, será lido como o ticker padrão final 11
        
        Do While ctg = 1
        iex.Navigate "https://www.google.com/finance/quote/" & codloc & ":BVMF"
        
            Do While iex.Busy And iex.ReadyState <> "READYSTATE_COMPLETE" 'Aguarda o carregamento completo
            DoEvents
            Loop

       endnav = iex.LocationURL 'Lê a pagina aberta para confirmar se é a página do ativo
       If endnav = "https://www.google.com/finance/quote/" & codloc & ":BVMF" Then
       vlcot = iex.Document.getElementsByClassName("YMlKec fxKbKc")(0).innerText 'Copia a cotação do site
                
            If vlcot > 0 Then
            ctg = 2 'Cotação obtida, libera o avanço para o próximo registro
            Else
            msgerro = iex.Document.getElementsByClassName("b4EnYd")(0).innerText 'Caso não exista o ativo, libera o avanço baseado na mensagem padrão de falha do site
    
                If msgerro = "Não encontramos resultados para sua pesquisa." Then
                    ctg = 2
                    vlcot = 0
                End If

                msgerro = Empty
            End If

        End If

        endnav = Empty
        Loop
    
    rs.Edit
    rs("vlr_cot") = vlcot
    rs.Update 'Valor copiado para a tabela

    ctg = 1
    vlcot = Empty
    rs.MoveNext
Loop ' Vai para o proximo registro
    
Set rs = Nothing
iex.Quit
Set iex = Nothing
        
'MsgBox ("Finalizado")

End Function


Olá a todos

Rodrigo Viotto, apesar de já ser membro desde 2020 é a primeira mensagem, seja Bem-Vindo ao fórum!

Obrigado pela partilha, o fórum agradece.
Ficamos aguardar o feedback do colega que abriu o tópico.

Abraço a todos