bu daha kolay bir kod
Function kural()
Dim objXML As MSXML2.DOMDocument
Set objXML = CreateObject("MSXML2.DOMDocument")
objXML.async = False
objXML.validateOnParse = False
objXML.Load ("http://www.tcmb.gov.tr/kurlar/today.xml")
MsgBox objXML.documentElement.childNodes(0).childNodes(1).Text
MsgBox objXML.documentElement.childNodes(0).childNodes(3).Text
MsgBox objXML.documentElement.childNodes(0).childNodes(4).Text
MsgBox objXML.documentElement.childNodes(0).childNodes(5).Text
End Function
childNodes(0).childNodes(5) 0 ıncı satırın 5.stununa denk gelen veri yani doların efektif alışı
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz