MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

    Cotação atual da ação

    avatar
    fernandojsbs
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 08/08/2014

    Cotação atual da ação Empty Cotação atual da ação

    Mensagem  fernandojsbs 30/8/2020, 17:39

    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 ?
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7930
    Registrado : 15/03/2013

    Cotação atual da ação Empty Re: Cotação atual da ação

    Mensagem  Alvaro Teixeira 1/9/2020, 14:14

    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
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    Cotação atual da ação Empty Re: Cotação atual da ação

    Mensagem  bigfill 1/9/2020, 14:18

    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 Smile .
    Anexos
    Cotação atual da ação AttachmentDesktop.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (113 Kb) Baixado 34 vez(es)
    avatar
    fernandojsbs
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 08/08/2014

    Cotação atual da ação Empty Re: Cotação atual da ação

    Mensagem  fernandojsbs 2/9/2020, 00:04

    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.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7930
    Registrado : 15/03/2013

    Cotação atual da ação Empty Re: Cotação atual da ação

    Mensagem  Alvaro Teixeira 2/9/2020, 09:36

    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
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    Cotação atual da ação Empty Re: Cotação atual da ação

    Mensagem  bigfill 2/9/2020, 13:12

    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 & "#")
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    Cotação atual da ação Empty Re: Cotação atual da ação

    Mensagem  bigfill 4/9/2020, 12:57

    Bom dia fernandojsbs,

    Conseguiu resolver ?
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7930
    Registrado : 15/03/2013

    Cotação atual da ação Empty Re: Cotação atual da ação

    Mensagem  Alvaro Teixeira 8/9/2020, 16:09

    Olá a todos,

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

    Abraço a todos
    avatar
    Rodsviotto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 25/11/2020

    Cotação atual da ação Empty Função consultar cotação atual na WEB

    Mensagem  Rodsviotto 11/11/2022, 21:23

    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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7930
    Registrado : 15/03/2013

    Cotação atual da ação Empty Re: Cotação atual da ação

    Mensagem  Alvaro Teixeira 11/11/2022, 23:10

    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

    Rodsviotto gosta desta mensagem


    Conteúdo patrocinado


    Cotação atual da ação Empty Re: Cotação atual da ação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/6/2024, 04:58