Aşağıda ki verdiğim kodlar ile çok rahat şekilde TC Merkez Bankası'ndan döviz bilgilerini çekebilirsiniz. Kodlarlı değiştirerek başka sayfalardan başka verileri de çekebilirsiniz tabi..
Ben örnek olarak Dolar, Euro ve Sterlin ekledim..
private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )
StrHTTP.Open "GET" , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
'XMLHTTP Close
URL = "http://www.tcmb.gov.tr/kurlar/today.html"
bilgicek = GETHTTP(URL)
a=InStr(1,bilgicek,"USD" )
dolar1=Mid(bilgicek,a+39,10)
dolar2=Mid(bilgicek,a+52,10)
c=InStr(1,bilgicek,"EUR" )
euro1=Mid(bilgicek,c+37,11)
euro2=Mid(bilgicek,c+52,11)
e=InStr(1,bilgicek,"GBP" )
sterlin1=Mid(bilgicek,e+34,11)
sterlin2=Mid(bilgicek,e+47,11)