[Yardım]  Kur alma listeme capraz kur eklemek

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Kur alma listeme capraz kur eklemek

İleti#1)  serdarıekrem » 27 Haz 2020 19:38

Merhaba
Ekteki dosyamda TCMB kurları alıyorum, listeye EUR/USD capraz kurunu ve hangi tarih saate ait kur olduğunu da eklemek istiyorum.
Yardımınızı rica ediyorum

peşinen teşekkür ederim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
serdarıekrem
Yeni Başlamış
 
Kayıt: 27 Mar 2018 22:03
Meslek: gemi acentesi
Yaş: 47
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul

Cevap: Kur alma listeme capraz kur eklemek

İleti#2)  askmadige34 » 27 Haz 2020 20:46

Aşağıdaki şekilde deneyin.
Kod: Tümünü seç
Sub PEAKUP_TCMB_TUM_KURLAR()
    'www.peakup.org/blog/
    Dim xml As Object, adres As String, tablom As Object, sat As Byte
    Range("A2:G100") = ""
    Set xml = CreateObject("MSXML2.DOMDocument")
    xml.async = False
    xml.validateOnParse = False
    adres = "https://www.tcmb.gov.tr/kurlar/today.xml"
    xml.Load adres
    Set tablom = xml.SelectNodes("//Currency[CurrencyName='EURO' or CurrencyName='US DOLLAR']")
    If tablom.Length = 0 Then GoTo cik:
    sat = tablom.Length - 1
    For i = 0 To sat
        Cells(i + 2, 1) = tablom(i).ChildNodes(1).Text
        Cells(i + 2, 2) = tablom(i).ChildNodes(3).Text
        Cells(i + 2, 3) = tablom(i).ChildNodes(4).Text
        Cells(i + 2, 4) = tablom(i).ChildNodes(5).Text
        Cells(i + 2, 5) = tablom(i).ChildNodes(6).Text
        If i = 1 Then
            Set Tablo2 = xml.SelectNodes("//Currency[CurrencyName='EURO']")
            Cells(i + 2, 6) = Tablo2(0).ChildNodes(8).Text
        End If
    Next
cik:
    Set tablom = Nothing: Set xml = Nothing: adres = vbNullString: sat = Empty
    Range("G1") = Format(Now(), "dd.mm.yyyy")
    Range("H1") = Format(Now(), "hh:mm")
End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 40
İleti: 1749
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Kur alma listeme capraz kur eklemek

İleti#3)  serdarıekrem » 28 Haz 2020 00:05

Merhaba
Geri dönüşünüz ve yardımınız için teşekkür ederim

küçük bir ek bilgi daha rica edeceğim,
tarih ve saat olarak veriyi çektiğim tarih/saati getiriyor benim isteğim merkez bankasının aşağıdaki gibi web sayfasında
yazılı tarih/saati (saat satır içinden alınamayabilir, sadece tarihte olabilir) getirmesini istiyorum

26.06.2020 Günü Saat 15:30'da Belirlenen Gösterge Niteliğindeki Türkiye Cumhuriyet Merkez Bankası Kurları
Indicative Exchange Rates Announced at 15:30 on 06/26/2020 by the Central Bank of Turkey

mümkün mü ?
kendim denedim beceremedim
Kullanıcı avatarı
serdarıekrem
Yeni Başlamış
 
Kayıt: 27 Mar 2018 22:03
Meslek: gemi acentesi
Yaş: 47
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul

Cevap: Kur alma listeme capraz kur eklemek

İleti#4)  askmadige34 » 28 Haz 2020 14:39

Kod: Tümünü seç
Sub PEAKUP_TCMB_TUM_KURLAR()
    Dim xml As Object, adres As String, tablom As Object, sat As Byte
    Range("A2:G100") = ""
    Range("G1:H1") = ""
    Set xml = CreateObject("MSXML2.DOMDocument")
    xml.async = False
    xml.validateOnParse = False
    adres = "https://www.tcmb.gov.tr/kurlar/today.xml"
    xml.Load adres
   
   
    Set tablom = xml.SelectNodes("//Currency[CurrencyName='EURO' or CurrencyName='US DOLLAR']")
    If tablom.Length = 0 Then GoTo cik:
    sat = tablom.Length - 1
    For i = 0 To sat
        Cells(i + 2, 1) = tablom(i).ChildNodes(1).Text
        Cells(i + 2, 2) = tablom(i).ChildNodes(3).Text
        Cells(i + 2, 3) = tablom(i).ChildNodes(4).Text
        Cells(i + 2, 4) = tablom(i).ChildNodes(5).Text
        Cells(i + 2, 5) = tablom(i).ChildNodes(6).Text
        If i = 1 Then
            Set Tablo2 = xml.SelectNodes("//Currency[CurrencyName='EURO']")
            Cells(i + 2, 6) = Tablo2(0).ChildNodes(8).Text
        End If
    Next
cik:
    Set tablom = Nothing: Set xml = Nothing: adres = vbNullString: sat = Empty
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Dim ie As Object
   
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = False
    ie.navigate "https://www.tcmb.gov.tr/kurlar/today.xml"
    While ie.Busy Or ie.ReadyState < 4: DoEvents: Wend
   
    Tarih = ie.document.getElementById("kurlarContainer").getElementsByTagName("h1")(0).innertext
    Range("G1") = Split(Tarih, " ")(0) 'Format(Now(), "dd.mm.yyyy")
    'Saati istemiyorsanız aşağıdaki satırı silin.
    Range("H1") = Split(Split(Tarih, " ")(3), "'")(0) 'Format(Now(), "hh:mm")
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 40
İleti: 1749
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

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

Cevap: Kur alma listeme capraz kur eklemek

İleti#5)  serdarıekrem » 28 Haz 2020 20:02

Elinize sağlık, teşekkürler
Kullanıcı avatarı
serdarıekrem
Yeni Başlamış
 
Kayıt: 27 Mar 2018 22:03
Meslek: gemi acentesi
Yaş: 47
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 3 misafir

Bumerang - Yazarkafe