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

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 23/5/2018, 16:48

    Boa tarde Amigos

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

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


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

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 23/5/2018, 16:53

    Olá Assis,

    Não falta exemplos no fórum, veja:
    http://www.maximoaccess.com/t6499-resolvidoerro-ao-processar-me-webtimedate-navigate

    é 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
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 23/5/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 ?


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


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

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 23/5/2018, 18:45

    Insisti e

    Obrigado Amigo, Teixeira, podia ficar melhor.


    Valor e

    Data

    Abraço


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

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 23/5/2018, 19:47

    Até esqueci …….


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

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 23/5/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
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 26/5/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


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

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 26/5/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
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 26/5/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 ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 9/6/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
    [Resolvido]Capturar / obter cotação de moeda de website AttachmentCapturarCotacaoMoedaDaNet.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 6 vez(es)


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

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 9/6/2018, 17:10

    Obrigado Teixeira

    Já não   Sleep  tanto.


    Está +  bounce

    Bom fim de semana


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

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 10/6/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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/5/2019, 06:55