{"id":164,"date":"2022-05-25T22:16:42","date_gmt":"2022-05-25T19:16:42","guid":{"rendered":"http:\/\/www.cuneytbayrak.com\/?p=164"},"modified":"2025-02-21T00:37:17","modified_gmt":"2025-02-20T21:37:17","slug":"vba-xml-nesnesi-ile-tcmbden-kurlari-almak","status":"publish","type":"post","link":"http:\/\/www.cuneytbayrak.com\/?p=164","title":{"rendered":"VBA Xml Nesnesi \u0130le TCMB\u2019den Kurlar\u0131 Almak"},"content":{"rendered":"

TCMB\u2019den kurlar\u0131n tamam\u0131n\u0131 almaktan ziyade sadece dolar ve euro kurunu almak isteyebiliriz.<\/p>\n

\n
Sub kurlarigetir()\r\nDim xml As Object\r\nDim link As String\r\nDim tablo As Object\r\nDim ws As Worksheet\r\n \r\nSet xml = CreateObject(\"MSXML2.DOMDocument\")\r\nSet ws = Sheets(\"SPR\")\r\n \r\nxml.async = False\r\n \r\nxml.validateOnParse = False\r\n \r\nlink = \"https:\/\/www.tcmb.gov.tr\/kurlar\/today.xml\"\r\n \r\nxml.Load link\r\n \r\nSet tablo = xml.SelectNodes(\"\/\/Currency[CurrencyName='EURO']\")\r\n \r\nIf tablo.Length <> 0 Then\r\n \r\nws.Range(\"ag13\") = tablo(0).ChildNodes(6).Text\r\n \r\nSet tablo = xml.SelectNodes(\"\/\/Currency[CurrencyName='US DOLLAR']\")\r\n \r\nws.Range(\"ag14\") = tablo(0).ChildNodes(6).Text\r\n \r\nElse\r\nMsgBox \"Kurlar revize olurken bir hata olu\u015ftu.Kurlar\u0131 muhakkak kontrol ediniz!\"\r\nEnd If\r\n \r\nSet tablo = Nothing\r\nSet xml = Nothing\r\nlink = vbNullString\r\nEnd Sub<\/pre>\n<\/div>\n
Burada dikkat edilmesi gereken husus; \u201c.ChildNodes(6)\u201d ifadesi. Neden 6?<\/p>\n
\u00c7\u00fcnk\u00fc ben ilgili kurun efektif sat\u0131\u015f rakam\u0131n\u0131 almak istedim.<\/p>\n
D\u00f6viz Al\u0131\u015f Rakam\u0131 i\u00e7in .ChildNodes(3)<\/p>\n
D\u00f6viz Sat\u0131\u015f Rakam\u0131 i\u00e7in .ChildNodes(4)<\/p>\n
Efektif Al\u0131\u015f Rakam\u0131 i\u00e7in .ChildNodes(5)<\/p>\n
Efektif Sat\u0131\u015f Rakam\u0131 i\u00e7in .ChildNodes(6)\u00a0 yaz\u0131lmas\u0131 gerekir.<\/p>\n
 <\/p>\n
Kolay gele…<\/p>\n","protected":false},"excerpt":{"rendered":"
TCMB\u2019den kurlar\u0131n tamam\u0131n\u0131 almaktan ziyade sadece dolar ve euro kurunu almak isteyebiliriz. Sub kurlarigetir() Dim xml As Object Dim link As String Dim tablo As Object Dim ws As Worksheet…<\/p>\n
Devam\u0131n\u0131 OkuVBA Xml Nesnesi \u0130le TCMB\u2019den Kurlar\u0131 Almak<\/span><\/a><\/div>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"iawp_total_views":1,"footnotes":""},"categories":[5],"tags":[41],"class_list":["post-164","post","type-post","status-publish","format-standard","hentry","category-excel-vba","tag-gettcmbkurxml","excerpt"],"_links":{"self":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/164","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=164"}],"version-history":[{"count":1,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/164\/revisions"}],"predecessor-version":[{"id":165,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/164\/revisions\/165"}],"wp:attachment":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=164"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=164"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=164"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}