TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Almak

Excel VBA kodlamaları ile yapılmış örnek dosyaları burdan izleyebilir ve paylaşabilirsiniz.

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#61)  Ozan İLGÜN » 26 Mar 2019 13:57

viewtopic.php?f=4&t=31743&hilit=+tcmb
Bu konudaki dosya işinize yarar mı?
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz K

İleti#62)  bpeker » 26 Mar 2019 14:19

Ozan İLGÜN yazdı:http://www.excelvba.net/viewtopic.php?f=4&t=31743&hilit=+tcmb
Bu konudaki dosya işinize yarar mı?

Merhaba ,

sorunun kod'dan kaynaklanmadığını çözdüm. Şirket IP lerinde sanırım TCMB engelli gibi gözüküyor. Bu yüzden erişemiyor. Sizin atmış olduğunuz link'teki dosya da bu yüzden Run time 9 veriyor.
yardımlarınız için teşekkürler.
Kullanıcı avatarı
bpeker
 
Kayıt: 13 Mar 2019 10:17
Meslek: muhasebe
Yaş: 50
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#63)  Ozan İLGÜN » 26 Mar 2019 17:57

Durumu IT departmanına bildirirseniz düzeltebilirler.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#64)  Tarkan VURAL » 26 Mar 2019 18:00

Merhaba,

Rastgele bir tarih querystringi ile veri almak istedim, herhangi bir sorun olmadan listeledi. Kodlar da bu şekilde bir link oluşturuyor.
http://www.tcmb.gov.tr/kurlar/201903/18032019.xml

Dosyadan da denediğimde sorun görmedim, çalışır durumda. ;)
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 27005
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#65)  d_artagnan » 10 May 2019 15:18

Range("AB1000").Value = "10000" değerini Range("AB1000").Value = "1" olarak değiştirince basamak ayracınızı virgül yerine nokta yapmaya gerek kalmıyor.
Kullanıcı avatarı
d_artagnan
Yeni Başlamış
 
Kayıt: 30 Nis 2019 08:13
Meslek: uzman
Yaş: 34
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz K

İleti#66)  Ruzgarca » 16 May 2019 08:46

Tarkan Bey merhaba,

İlgili güne ait kur sayfası olamayabiliyor, Genel Tatil Günleri, Resmi Tatil Günleri gibi.

Bu durumda fonksiyonu nasıl kontrol altına alabiliriz?


Tarkan VURAL yazdı:Fonksiyonla tarih bazında, hücre içine tek tek belirli bir döviz kurunu almak için aşağıdaki KTF kullanılabilir.

Kullanımı:
Kod: Tümünü seç
=WebDoviz(Tarih Parametresi, Döviz Cinsi Parametresi, Döviz Değer Parametresi)


Tarih
Döviz kuru tarihi

Döviz Cinsi
Merkez bankasında kullanılan döviz kodlaması. USD, EUR, GBP vb..

Döviz Değerlendirme Tipi
Döviz Alış : 1
Döviz Satış: 2
Efektif Alış : 3
Efektif Satış : 4


Kod: Tümünü seç
DefVar E
Function Webdoviz(ByVal Tarih As Date, ByVal Dovtip As String, ByVal Tipi As Long) As Variant
Dim gun As String, ay As String, yil As String, path As String, kur As Double
Dim icerik As String, xmlhttp As Object, evn As Variant
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
Application.Volatile
Dovtip = UCase(Dovtip)
gun = Day(Tarih): ay = Month(Tarih): yil = Year(Tarih)
If Len(gun) = 1 Then gun = "0" & gun
If Len(ay) = 1 Then ay = "0" & ay
path = "http://www.tcmb.gov.tr/kurlar/" & yil & ay & "/" & gun & ay & yil & ".xml"
xmlhttp.Open "GET", path, False
xmlhttp.send "at"
If xmlhttp.Status = 200 Then
    icerik = xmlhttp.responseText
    temizlik = Split(icerik, "<Currency CrossOrder=")
    For y = 0 To UBound(temizlik)
        If temizlik(y) Like "*=""" & Dovtip & "*" Then
            sonuclar = Split(temizlik(y), "</CurrencyName>")
            evn1 = Split(sonuclar(1), "<ForexBuying>")
            evn2 = Split(sonuclar(1), "<ForexSelling>")
            evn3 = Split(sonuclar(1), "<BanknoteBuying>")
            evn4 = Split(sonuclar(1), "<BanknoteSelling>")
            Select Case Tipi
                Case 1: evn = Split(evn1(1), "</")
                Case 2: evn = Split(evn2(1), "</")
                Case 3: evn = Split(evn3(1), "</")
                Case 4: evn = Split(evn4(1), "</")
            End Select
            Exit For
        End If
    Next y
End If
'Kuruş hanesini benim gibi virgül kullananlar için
Webdoviz = Replace(evn(0), ".", ",")

'Kuruş hanesini nokta kullananlar için
'Webdoviz = evn(0)
End Function


yABCDEFGHI
1TarihUsd
Döviz Alış
Usd
Döviz Satış
Usd
Efektif Alış
Usd
Efektif Satış
Euro
Döviz Alış
Euro
Döviz Satış
Euro
Efektif Alış
Euro
Efektif Satış
229.09.20142.27892.2832.27732.28642.89142.89662.88942.9009
330.09.2014

Hücre Formül
B2=Webdoviz(A2;"usd";1)
C2=Webdoviz(A2;"usd";2)
D2=Webdoviz(A2;"usd";3)
E2=Webdoviz(A2;"usd";4)
F2=Webdoviz(A2;"eur";1)
G2=Webdoviz(A2;"eur";2)
H2=Webdoviz(A2;"eur";3)
I2=Webdoviz(A2;"eur";4)
Kullanıcı avatarı
Ruzgarca
 
Kayıt: 17 Nis 2019 11:02
Meslek: Bilgisayar
Yaş: 37
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu
Önceki

Forum Örnek Dosyalar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe