Excelde TCMB Kurlarını Alma (Yeni)

[besen]

@kumandur;

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

.

Bu hatayı veriyor.

 

[Zeki Gürsoy]

Yine modifiyeli Gemini kodları... Çalıştırmadan önce Microsoft XML, v6.0 referansını eklemeyi unutmayın.

Sub XMLVerisiniHücrelereAktar()
    Dim xmlDoc As New MSXML2.DOMDocument60
    Dim itemsList As IXMLDOMNodeList
    Dim itemNode As IXMLDOMNode
    Dim i As Integer
    Dim xmlFile As String
    Dim dbl As Double
  
    Const UC_SAAT As Double = 3 * 3600
  
    ' Örnek verinizi buraya tanımlıyoruz (veya bir hücreden alabilirsiniz)
    xmlFile = "C:\Users\zeki\Desktop\eee.xml"
  
    ' XML yükleme
    If Not xmlDoc.Load(xmlFile) Then
        MsgBox "XML yüklenemedi!", vbCritical
        Exit Sub
    End If
  
    ' Başlıkları yazalım
    Cells(1, 1).Value = "Tarih"
    Cells(1, 2).Value = "Değer (TP_FG_J0)"
    Cells(1, 3).Value = "Unix Time"
  
    ' "items" düğümlerini seçelim
    Set itemsList = xmlDoc.SelectNodes("//items")
  
    i = 2 ' Veri yazımına 2. satırdan başla
  
    For Each itemNode In itemsList
        ' Her bir alt düğümü değerine göre hücreye ata
        Cells(i, 1).Value = itemNode.SelectSingleNode("Tarih").Text
        Cells(i, 2).Value = Val(itemNode.SelectSingleNode("TP_FG_J0").Text)
      
        ' UNIXTIME altındaki numberLong değerine ulaşmak için:
        dbl = itemNode.SelectSingleNode("UNIXTIME/numberLong").Text
        dbl = dbl + UC_SAAT
        Cells(i, 3).Value = DateAdd("s", dbl, "01.01.1970")
      
        i = i + 1
    Next itemNode
  
    MsgBox "Veriler başarıyla aktarıldı.", vbInformation
End Sub

 

[besen]

Yine modifiyeli Gemini kodları... Çalıştırmadan önce Microsoft XML, v6.0 referansını eklemeyi unutmayın.

Sub XMLVerisiniHücrelereAktar()
    Dim xmlDoc As New MSXML2.DOMDocument60
    Dim itemsList As IXMLDOMNodeList
    Dim itemNode As IXMLDOMNode
    Dim i As Integer
    Dim xmlFile As String
    Dim dbl As Double
 
    Const UC_SAAT As Double = 3 * 3600
 
    ' Örnek verinizi buraya tanımlıyoruz (veya bir hücreden alabilirsiniz)
    xmlFile = "C:\Users\zeki\Desktop\eee.xml"
 
    ' XML yükleme
    If Not xmlDoc.Load(xmlFile) Then
        MsgBox "XML yüklenemedi!", vbCritical
        Exit Sub
    End If
 
    ' Başlıkları yazalım
    Cells(1, 1).Value = "Tarih"
    Cells(1, 2).Value = "Değer (TP_FG_J0)"
    Cells(1, 3).Value = "Unix Time"
 
    ' "items" düğümlerini seçelim
    Set itemsList = xmlDoc.SelectNodes("//items")
 
    i = 2 ' Veri yazımına 2. satırdan başla
 
    For Each itemNode In itemsList
        ' Her bir alt düğümü değerine göre hücreye ata
        Cells(i, 1).Value = itemNode.SelectSingleNode("Tarih").Text
        Cells(i, 2).Value = Val(itemNode.SelectSingleNode("TP_FG_J0").Text)
     
        ' UNIXTIME altındaki numberLong değerine ulaşmak için:
        dbl = itemNode.SelectSingleNode("UNIXTIME/numberLong").Text
        dbl = dbl + UC_SAAT
        Cells(i, 3).Value = DateAdd("s", dbl, "01.01.1970")
     
        i = i + 1
    Next itemNode
 
    MsgBox "Veriler başarıyla aktarıldı.", vbInformation
End Sub

Ekli dosyayı görüntüle 261125

Yine modifiyeli Gemini kodları... Çalıştırmadan önce Microsoft XML, v6.0 referansını eklemeyi unutmayın.

Sub TCMB_TÜFE_Getir() ve Sub XMLVerisiniHücrelereAktar() makrolarını çalıştırdım.
Ekteki hatayı verdi. Excel'de ekte. Gemini kodları için Microsoft XML, v6.0 ekleyin demişsiniz, bununla ilgili mi?
Bunu yüklerken de bu uyarı çıktı.