TCMB Döviz Kuru Listeleme

[Haluk]

Evren Bey,

@Zeki Gürsoy üstadın bahsettiğim mesajı aşağıdakiydi .... Burayı inceleyin isterseniz.

https://www.excel.web.tr/threads/adodb-recordset-ve-xml-ile-olan-iliskisi.174772/

.

 

[Orion1]

Haluk hocam.Şimdi inceleyeceğim.
Zeki beye ve size teşekkür ederim.

 

[baydeniro]

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

Bu Kodları Kullanarak Çekebilirsiniz Or Kullanarak Sitede yazan adıyla kuru aynı alıp farklı kurlarda ekleyebilirsiniz

Üstad kod iç.in çok teşekkürler. Minik bir yardım rica edebilir miyim.
Bu kod ile kurlar 2.satıra iniyor. Kurların 4.satıra inmesi için nereyi düzeltmem gerekiyor ?

 

[svorm]

Merhaba

Alttaki kod ile İşbankasının sayfasından dropdown dan seçim yaptırıp istediğim mali tabloyu seçime göre excel sayfasına getirebiliyorum.
Fakat çok yavaş çalışıyor.
Bu konuda yardımcı olabilirmisiniz?

Teşekkürler

Sub web()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://www.isyatirim.com.tr/tr-tr/analiz/hisse/sayfalar/sirket-karti.aspx?hisse=AGHOL"
Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop
'1.KISIM
Set HTMLDoc = objIE.document
Set evtChange = HTMLDoc.createEvent("HTMLEvents")
evtChange.initEvent "change", True, False
Set selectElement = HTMLDoc.getElementById("ddlMaliTabloDonem1")
selectElement.Value = "2018/9"
selectElement.dispatchEvent evtChange
Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop
For I = 3 To 20
Range("b2") = "2018/9"
Application.Wait Now + TimeValue("00:00:02")
Cells(I, 2) = objIE.document.getElementById("tbodyMTablo").getElementsByTagName("tr")(I - 2).getElementsByTagName("td")(1).textContent
Application.Wait Now + TimeValue("00:00:02")
Cells(I, 1) = objIE.document.getElementById("tbodyMTablo").getElementsByTagName("tr")(I - 2).getElementsByTagName("td")(0).textContent
Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop
Next
End Sub

 

[svorm]

Yardımcı olabilecek var mı?

 

[zzzlzzz]

Merhaba,

Ekte göndemiş olduğum dosyadan yenile tuşunu kullanarak TCMB'dan liste başlıklarına dayalı olarak kurları nasıl çekebilirim ?

Konuyla alaklaı yardım olaibilirseniz çok sevinirim.

Saygılarımla,

 

[zzzlzzz]

çok iyi

 

[igultekin2000]

Merhaba;
daha önce bu siteden aldığım liste, çok kullanışlı