VBA İle Excele Veri Çekme

[Baturalpp]

Merhaba,

"https://www.tcmb.gov.tr/" sitesinden Euro ve Dolar satış fiyatlarını excele çekmek istiyorum. Aşağıdaki gibi bir kod yazdım ancak

dolar = html.getElementsByClassName("graphic-data")(2).innerText
euro = html.getElementsByClassName("graphic-data")(4).innerText

satırlarını okumuyor.

Yardımcı olabilir misin ?


___________________________________________________________________________________
Sub DovizKurlariCek()
Dim url As String
Dim html As Object
Dim dolar As String
Dim euro As String


url = "https://www.tcmb.gov.tr/"


Set html = CreateObject("htmlfile")


With CreateObject("msxml2.xmlhttp")
.Open "GET", url, False
.send
html.body.innerHTML = .responseText
End With


dolar = html.getElementsByClassName("graphic-data")(2).innerText
euro = html.getElementsByClassName("graphic-data")(4).innerText


ThisWorkbook.Sheets("KUR").Range("A1").Value = "Dolar"
ThisWorkbook.Sheets("KUR").Range("B1").Value = "Euro"

ThisWorkbook.Sheets("KUR").Range("A2").Value = dolar
ThisWorkbook.Sheets("KUR").Range("B2").Value = euro


Set html = Nothing
End Sub

 

[Necdet]

Merhaba,
Haluk beyin bol miktarda örnekleri var.
Linki inceleyiniz

 

[Baturalpp]

Necdet Bey merhaba,

Haluk Bey'in paylaşımlarını inceledim, bilgi için teşekkürler. Ancak benim asıl sormak istediğim kendi yazdığım koddaki hata nedir ? Yeni yeni macro öğreniyor ve yazıyorum.

dolar = html.getElementsByClassName("graphic-data")(2).innerText
euro = html.getElementsByClassName("graphic-data")(4).innerText

bu iki satırda classname ile dolar ve euro değerlerini çekmem gerek ancak hiçbir veri çekmiyor. Yaptığım hata nedir ?