Excelde TCMB Kurlarını Alma (Yeni)

[Zeki Gürsoy]

Başlığın hiç bir mesajında ekli bir dosya yok. #4 nolu mesajdaki kodu boş bir module yapıştırıp F5 ile çalıştırın. Zaten @Haluk Bey API key'i de hibe etmiş...

.

 

[Haluk]

Dalgınlık walla...... yaşlandık artık

.

 

[cavanoos]

Merhaba;

4 nolu mesajdaki kodu çalıştırdım. Hata aldım.
"API KEY veya URL'yi kontrol edin"
Nerde yanlış yaptım ?

 

[Haluk]

Bundan daha acik bir hata mesaji olabilir mi?

.

 

[cavanoos]

Haluk Bey;

API KEY nedir ?
URL hatalı ise doğrusu nedir ? Ya da doğrusu nereden bulunur ?
Bende bu soruların yanıtı yok, o yüzden yazıyorum, acemiliğime verin.

 

[Haluk]

URL doğru, siz TCMB sitesinde EVDS'den kendinize bir API anahtarı alıp onu kullanacaksınız.

.

 

[kumandur]

https://evds2.tcmb.gov.tr/service/e...DK.EUR.S-TP.DK.CHF.S-TP.DK.GBP.S-TP.DK.JPY.S&" & _ "startDate=01-04-2024&endDate=05-04-2024&type=xml

Merhaba Haluk bey ;

Benim sorum biraz farklı olacak örneğin 01-01-2024 31.05.2024 tarihleri arasında TP.KTF17 ( Ticari (TL Üzerinden Açılan)(Akım Veri,%)-Düzey
Bankalarca Açılan Kredilere Uygulanan Ağırlıklı Ortalama Faiz Oranları (Akım Veriler,%) verisini çekmek istiyorum , tmm API key 'de aldım ancak nasıl yapabilirim sizin Makroyu uyarlayamadım yardımcı olabilirseniz sevinirim.

Teşekkür ederim.

 

[Haluk]

@kumandur;

Ekli dosyayı bir deneyin.... aradığınız veriler bunlar mı, emin olamadım.

.

 

[kumandur]

@kumandur;

Ekli dosyayı bir deneyin.... aradığınız veriler bunlar mı, emin olamadım.

.

Evet tamamen istediğim bu idi , öncelikle çok teşekkür ederim kodu incelerim ( tarih aralığı vs ) ancak Koda baktığımda 2024 öncesini getirmiyor ve ek olarak

strURL = "https://evds2.tcmb.gov.tr/EVDSServlet?orderby=Tarih+desc&thousand=1" & _
"&decimal=2&frequency=YEARWEEK&aggregationType=avg&formula=0&graphicType=0&skip=0&take=20&sort=Tarih%23true" & _
"&select=TP.KTF17-0&startDate=04-01-2002&endDate=31-05-2024&obsCountEnabled=&obsCount=&categories=5870&mongoAdresses=&userId=38040" & _
"&datagroupString=bie_kt100h&dateFormatValue=&customFormula=null&excludedSeries=null"

bölümünün açıklaması EVDS sisteminde mevcut mu ?

Tekrardan teşekkür ederim.

 

[Haluk]

Kod, EVDS'de 04-01-2002 ile 31-05-2024 tarihleri arasındaki kayıtlı verileri getiriyor.

Siz bu tarihleri kullanarak, manuel olarak EVDS'den rapor aldığınızda 2024 öncesi verileri görebiliyor musunuz?

.

 

[Haluk]

Hmmmm....... URL'de aşağıdaki kısım alınan veri aralığını belirtiyor.

Örneğin, ilk 20 veri için;

&skip=0&take=20

Daha sonraki 20 veri için;

&skip=20&take=20

..... gibi düzenlemelerle diğerleri de alınabiliyor.



Ben uyanıklık yapıp, aşağıdakini denedim ama olmadı

&skip=0&take=200

"take" parametresini değiştirmeye izin vermiyor.

.

 

[Haluk]

Sunucudan dönen cevap içerisinde "totalCount" ile, sorgunun sonucunda toplam kaç satır veri olduğu belirtiliyor. Bu değeri, yukarıdaki mesajımda belirtilen "skip" ile kullanarak, gerekli döngü sayısını hesaplayıp buna göre tüm verileri çekebiliyoruz.

Buna ilişkin yapılan revizyon ekte verilmekte olup, tüm veriler alınabilmektedir...

.

 

[kumandur]

Haluk bey çok zahmet verdim, teşekkür ederim yardımlarınız için , elinize sağlık

 

[mehmetd]

Merhaba arkadaşlar ben döviz kurlarının saat 12:00 tutarlarını almak istiyorum nasıl bir yol izleyebilirim 2025-2026 yılın ait.
Yardımınız için şimdiden teşekkürler

 

[besen]

Bilgilendirme için teşekkür ederim; haberim yoktu...

Aşağıdaki gibi kullanabilirsiniz (test edilmiştir):

Sub Test()
    Dim oHttp As Object, sUrl As String
   
    sUrl = "https://evds2.tcmb.gov.tr/service/evds/series=TP.DK.USD.A-TP.DK.EUR.A-TP.DK.CHF.A-TP.DK.GBP.A-TP.DK.JPY.A&" & _
            "startDate=01-10-2017&endDate=01-11-2017&type=xml"
           
    Set oHttp = CreateObject("MSXML2.XMLHTTP.6.0")
   
    oHttp.Open "GET", sUrl, False
    oHttp.setRequestHeader "key", "XXXXXXXX"
    oHttp.send
   
    Debug.Print oHttp.ResponseText
   
End Sub

B

Thread 'TCMB kur - enflasyon oranlarını otomatik almak.'

22 Ocak 2026

Merhaba kur ve fiyat endekslerini ekteki format ve kriterlerde almak mümkün mü?
https://www.excel.web.tr/threads/tc-merkez-bankasi-doeviz-kurlari-alinmasi-xml.174388/

Teşekkür ederim.

• besen
• Cevaplar: 1
• Forum: Makro-VBA Soruları

Zeki bey merhaba, bu konuda bir desteğiniz olabilir mi?

.