MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Capturar / obter cotação de moeda de website

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3430
    Registrado : 06/11/2009

    [Resolvido]Capturar / obter cotação de moeda de website

    Mensagem  Assis em Qua 23 Maio 2018, 16:48

    Boa tarde Amigos

    Como capturar o valor do cambio do Metical no campo do formulário desta BD.

    [Você precisa estar registrado e conectado para ver esta imagem.]
    Anexos
    CapturarCotaçãoMoeda.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (98 Kb) Baixado 2 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Capturar / obter cotação de moeda de website

    Mensagem  ahteixeira em Qua 23 Maio 2018, 16:53

    Olá Assis,

    Não falta exemplos no fórum, veja:
    [Você precisa estar registrado e conectado para ver este link.]

    é só ajustar, veja se é o pretendido:
    Código:
    Function CotacaoMZN() As String
    'ahteixeira 2018 para MaximoAccess
        
        Dim objIE As Object, objTb As Object
        Dim i As Integer, intPos As Integer

        Set objIE = CreateObject("InternetExplorer.Application")
        
        objIE.Visible = False
        objIE.Navigate "https://cotacao-euro.pt/cambio/MZN-metical-mocambique/"
        
        Do While objIE.Busy: DoEvents: Loop
        Do While objIE.ReadyState <> 4: DoEvents: Loop
        
        For i = 0 To objIE.Document.all.length - 1
            Set objTb = objIE.Document.all.Item(i)
            intPos = InStr(objTb.innerHTML, "1 MZN = ")
            If intPos > 0 Then
                CotacaoMZN = Mid(objTb.innerHTML, intPos + 8, 6)
                Exit For
            End If
        Next

        objIE.Quit
        Set objIE = Nothing
    End Function

    Abraço
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3430
    Registrado : 06/11/2009

    Re: [Resolvido]Capturar / obter cotação de moeda de website

    Mensagem  Assis em Qua 23 Maio 2018, 17:53

    Obrigado Teixeira


    Se não for ocupar muito tempo, com a data seria SUPER.

    Gostava de saber ler para executar, mas …… não sei. É aqui que vem ler ?


    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3430
    Registrado : 06/11/2009

    Re: [Resolvido]Capturar / obter cotação de moeda de website

    Mensagem  Assis em Qua 23 Maio 2018, 18:45

    Insisti e

    Obrigado Amigo, Teixeira, podia ficar melhor.


    Valor e

    Data

    Abraço


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3430
    Registrado : 06/11/2009

    Re: [Resolvido]Capturar / obter cotação de moeda de website

    Mensagem  Assis em Qua 23 Maio 2018, 19:47

    Até esqueci …….


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Capturar / obter cotação de moeda de website

    Mensagem  ahteixeira em Qua 23 Maio 2018, 22:48

    Olá Assis, que bom que conseguiu!

    Mostrei o caminho das pedras, para o pretendido era só ajustar.
    Quando tiver com pc vejo o seu exemplo.

    Abraço
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3430
    Registrado : 06/11/2009

    Re: [Resolvido]Capturar / obter cotação de moeda de website

    Mensagem  Assis em Sab 26 Maio 2018, 00:04

    Boa noite

    Será possível melhorar a performance da abertura (muito lento) deste formulário.


    Será por motivo da velocidade da minha internet ?

    Obrigador
    Anexos
    CapturarCotaçãoMoeda.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 10 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Capturar / obter cotação de moeda de website

    Mensagem  ahteixeira em Sab 26 Maio 2018, 13:59

    Ola Assis,

    O motivo é a chamada duas vezes do carregamento da pagina.
    Para a data, porque não usa date()  (data do sistema), é a mesma coisa.
    Se pretende mesmo obter a data da pagina web, então será ajustar o codigo para numa só chamada obter o(s) dado(s) pretendidos.

    Abarço
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3430
    Registrado : 06/11/2009

    Re: [Resolvido]Capturar / obter cotação de moeda de website

    Mensagem  Assis em Sab 26 Maio 2018, 19:16

    Olá Teixeira

    Já se deu o caso do cambio estar na Net com os dados do dia anterior.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Capturar / obter cotação de moeda de website

    Mensagem  ahteixeira em Sab 09 Jun 2018, 16:25

    Olá Assis, veja desta forma.

    Assim só faz um pesquisa na net.
    Código:
    Private Sub CmdConsultar_Click()
    'ahteixeira 2018 para MaximoAccess
    'Requer função CotacaoMZNv2
    Dim strMZN As String
    Dim intPos As Integer

        Me.CmdConsultar.Caption = "Aguarde por favor"
        strMZN = CotacaoMZNv2
        
        intPos = InStr(strMZN, "1 MZN = ")
        Me.Valorcotacao = Mid(strMZN, intPos + 8, 6)
        intPos = InStrRev(strMZN, ",")
        Me.DataCotacao = CDate(Replace(Trim(Mid(strMZN, intPos + 2, 8)), ".", "/"))

        Me.CmdConsultar.Caption = "Consultar cotação online"

    End Sub

    Função utilizada da Sub do botão:
    Código:
    Function CotacaoMZNv2() As String
    'ahteixeira 2018 para MaximoAccess
        Dim objIE As Object

        Set objIE = CreateObject("InternetExplorer.Application")
        objIE.Visible = False
        objIE.Navigate "https://cotacao-euro.pt/cambio/MZN-metical-mocambique/"
        Do While objIE.Busy: DoEvents: Loop
        Do While objIE.ReadyState <> 4: DoEvents: Loop
        CotacaoMZNv2 = objIE.Document.getElementById("kurzInfo").innerText
        
        objIE.Quit
        Set objIE = Nothing
    End Function

    Abraço
    Anexos
    CapturarCotacaoMoedaDaNet.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 2 vez(es)


    Última edição por ahteixeira em Dom 10 Jun 2018, 19:21, editado 3 vez(es) (Razão : Atualização código)
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3430
    Registrado : 06/11/2009

    Re: [Resolvido]Capturar / obter cotação de moeda de website

    Mensagem  Assis em Sab 09 Jun 2018, 17:10

    Obrigado Teixeira

    Já não   Sleep  tanto.


    Está +  bounce

    Bom fim de semana


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Capturar / obter cotação de moeda de website

    Mensagem  ahteixeira em Dom 10 Jun 2018, 19:25

    Olá Assis, obrigado pelo retorno.

    Verifcando melhor o código estava a ir buscar a primeira data "1 € =".

    Exemplo da mensagem n. 10 atualizado para a data "1 MZN ="

    Abraço

      Data/hora atual: Qua 20 Jun 2018, 12:42