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
"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