Merhaba arkadaşlar,
aşağıdaki kod ila kurları alıyoruz yalnız
bulunduğumuz günü alıyor,
tarih seçerek, istediğim tarihin kurlarını nasıl alabilirim.
Dim HTTP As Object, Html As Object
Dim URL As String
URL = "https://yorum.altin.in/tum/dolar"
Set HTTP = CreateObject("MSXML2.XMLHTTP")
Set Html = CreateObject("HTMLFILE")
HTTP.Open "GET", URL, False
HTTP.Send
If HTTP.Status = 200 Then
HTML.body.innerHTML = HTTP.responseText
[Dolar] = (HTML.getelementById("sabitDolar").innerText) / 10000
[Euro] = (HTML.getelementById("sabitEuro").innerText) / 10000
End If
Me.Listem.Requery
MsgBox "Veriler Güncellendi"
Set Html = Nothing
Set HTTP = Nothing
Adı Soyadı:
Konum:
Adana
Ofis Versiyonu:
Ofis 2010 32 Bit
Son Oturumu:
25/12/2024,00:15
Cevapla