Döviz Kuru Almak

[jack_extreme]

"http://www.altinkaynak.com/Doviz/Kur/Guncel" adresinden excele sadece
dolar ve euro kurlarını almak istiyorum (serbest piyasa fiyatı olduğu için burayı kullanmak zorunda kalıyorum) webden dış veri al dediğimde çok uzun sürüyor ve sayfa çok karışık geliyor bu kodu yazdım fakat çalıştıramadım konuyla ilgili yardımcı olabilirseniz çok sevinirim

Sub Makro1()
Set ie = CreateObject("InternetExplorer.Application")
 
ie.navigate "http://www.altinkaynak.com/Doviz/Kur/Guncel"
 
Do: DoEvents: Loop Until ie.readystate = 4
tdUSDBuy = ie.document.getelementsbyclassname("tdUSDBuy")(0).innertext
tdUSDSell = ie.document.getelementsbyclassname("tdUSDSell")(2).innertext
ActiveSheet.Range("A1").Value = kuralis
ActiveSheet.Range("B1").Value = kursatis
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyin.

[SIZE="2"]Sub Makro1()
    Dim ie As Object
    Set ie = CreateObject("internetexplorer.application")
    With ie
.Visible = True
.navigate "http://www.altinkaynak.com/Doviz/Kur/Guncel"
Do While Not .readystate = 4: DoEvents: Loop
 End With
Set Elm = ie.document.getElementById("main")
With ActiveSheet
.Range("A1").Value = Elm.document.getElementById("tdUSDBuy").innertext
.Range("B1").Value = Elm.document.getElementById("tdUSDSell").innertext
.Range("A2").Value = Elm.document.getElementById("tdEURBuy").innertext
.Range("B2").Value = Elm.document.getElementById("tdEURSell").innertext
End With:
ie.Quit
End Sub [/SIZE]

 

[jack_extreme]

eyvallah hocam acayip işimi kolaylaştırdı bu kod çok teşekkür ederim