Soru Webden veri alma

[hilmivzr]

http://www.tcmb.gov.tr/kurlar/today.xml

Bir buton yapıp butona basıldığında üstteki siteden tüm verileri değilde içinden birkaç tane veriyi(euro,dolar,sterlin) gibi excel dosyasına nasıl aktarabiliriz. Yardımlarınız için şimdiden teşekkürler.

 

[halit3]

Bu konu bir çok kez işlendi
Ara bölümüne döviz yazın aratın

 

[hilmivzr]

o konuları gördüm ama altın üye olmadığım için dosyalara bakamıyorum. O yüzden yardım istemek için konu açtım.

 

[PLİNT]

Merhaba
Ekdeki gibi bir örnek işinize yararsa deneyiniz
https://we.tl/t-cB7q4nwGZ1

Private Sub CommandButton1_Click()
Dim s As Long
Dim ie, t
[A2:E10] = ""
Set ie = CreateObject("internetexplorer.application")
ie.Visible = False: ie.Navigate "http://www.tcmb.gov.tr/kurlar/today.xml"
Do While ie.Busy And Not ie.ReadyState = READYSTATE_COMPLETE
DoEvents: Loop
Set st = ie.document.getElementById("kurlarContainer")
On Error Resume Next
For Each t In st.getElementsByTagName("*")
If Trim(t.Children(0).innertext) = "USD/TRY" Or Trim(t.Children(0).innertext) = "EUR/TRY" _
Or Trim(t.Children(0).innertext) = "GBP/TRY" Then
s = Cells(Rows.Count, 1).End(3).Row + 1
Cells(s, 1) = t.Children(0).innertext
Cells(s, 2) = t.Children(3).innertext
Cells(s, 3) = t.Children(4).innertext
Cells(s, 4) = t.Children(5).innertext
Cells(s, 5) = t.Children(6).innertext
End If
Next
Set st = Nothing
ie.Quit
End Sub

 

[hilmivzr]

İşe yarar. Çok teşekkür ederim.