Kod:
Set xmlDoc = CreateObject("Msxml.DOMDocument")
Dim DovizListesi As Object
Dim Dovizler As Object
xmlDoc.async = False
xmlDoc.Load "http://www.tcmb.gov.tr/kurlar/today.xml"
Set DovizListesi = xmlDoc.documentElement.selectNodes("Currency")
Dim kod As String
For Each Dovizler In DovizListesi
DovizCinsi = Dovizler.selectSingleNode("Isim").Text
OrjIsim = Dovizler.selectSingleNode("CurrencyName").Text
Alis = Dovizler.selectSingleNode("ForexBuying").Text
Satis = Dovizler.selectSingleNode("ForexSelling").Text
Me.dovizal = Mid(Dovizler.selectSingleNode("ForexBuying").Text, 1, 1) & "," & Mid(Dovizler.selectSingleNode("ForexBuying").Text, 3, 3)
Me.dovizsat = Mid(Dovizler.selectSingleNode("ForexSelling").Text, 1, 1) & "," & Mid(Dovizler.selectSingleNode("ForexSelling").Text, 3, 3)
If DovizCinsi = "EURO" Then
Exit For
End If
Next
Set xmlDoc = NothingKod:
http://www.tcmb.gov.tr/kurlar/today.xml