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

Boa tarde Amigos

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

Olá Assis,

Não falta exemplos no fórum, veja:
https://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

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 ?

Insisti e

Obrigado Amigo, Teixeira, podia ficar melhor.


Valor e

Data

Abraço

Até esqueci …….

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

Boa noite

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


Será por motivo da velocidade da minha internet ?

Obrigador

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

Olá Teixeira

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

Obrigado

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

Obrigado Teixeira

Já não    tanto.


Está +  

Bom fim de semana

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