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: Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz K

İleti#81)  alacatan » 07 Kas 2019 14:24

Tarkan VURAL yazdı:Bugün denediğimde https ile sonuçları verdi. Fonksiyonu aşağıdaki şekilde kullanabiliyorsunuz:


Elinize sağlık Hocam gayet güzel çalışıyor.

Aynı problem ETA'da da var, birkaç gündür kur güncellemesi yapılamıyor programdan.
ETA'nın kur takibi bölümündeki servis kısmının resmini aşağıya ekliyorum.

Buradaki url dizinini ve url dosya adını değiştirerek güncelleme yapılabilinir mi, ne dersiniz?

Saygılar.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
alacatan
Yeni Başlamış
 
Adı Soyadı:tan alaca
Kayıt: 19 Arl 2008 16:59
Konum: istanbul
Meslek: muhasebe
Yaş: 41
İleti: 75
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/bakırköy

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

İleti#82)  Tarkan VURAL » 07 Kas 2019 14:39

URL doğru görünüyor.
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ş: 46
İleti: 27082
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

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

İleti#83)  alacatan » 08 Kas 2019 08:49

Programdan kaynaklanıyor öyleyse.
Yanıt için teşekkürler Hocam.
Kullanıcı avatarı
alacatan
Yeni Başlamış
 
Adı Soyadı:tan alaca
Kayıt: 19 Arl 2008 16:59
Konum: istanbul
Meslek: muhasebe
Yaş: 41
İleti: 75
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/bakırköy

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

İleti#84)  bcagatay75 » 08 Kas 2019 16:50

Tarkan VURAL yazdı:Bugün denediğimde https ile sonuçları verdi. Fonksiyonu aşağıdaki şekilde kullanabiliyorsunuz:

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 = "https://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




harika oldu çok teşekkürler.
Burak Çağatay
Kullanıcı avatarı
bcagatay75
 
Kayıt: 02 Haz 2018 12:10
Meslek: mühendis
Yaş: 44
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul

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#85)  romanci05 » 14 Kas 2019 10:42

Merhaba,

Ben aynı soruna şu şekilde çözüm üretmiştim.

Dim A As String, B As String, c As String, path As String, kur As Double
Dim icerik As String, xmlhttp As Object, evn As Variant
Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP")
Application.Volatile
Dovtip = UCase(Dovtip)

MSXML2.XMLHTTP yerine MSXML2.SERVERXMLHTTP yazınca çalışıyor.

Bilgilerinize.
Kullanıcı avatarı
romanci05
 
Kayıt: 28 Oca 2016 13:12
Meslek: Öğretmen
Yaş: 47
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Önceki

Forum Örnek Dosyalar

Online Kullanıcılar

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

Bumerang - Yazarkafe