web sitesinden dolar kuru alma

[jack_extreme]

merhaba herkese öncelikli olarak yardımları için teşekkür ederim sizden ricam dolar kuru olarak bu siteden kuru alıp işlem yapmam gerekiyor exceli açıtğımda veriyi alıp gelecek şekilde ayarladım ama çalıştıramadım konuyla ilgili yardımcı olabilecek arkadaşlara şimdiden çok teşekkür ederim

Sub per()
    Set ie = CreateObject("InternetExplorer.Application")
    my_url = "http://www.perkotek.com/bayi-girisi/"

    With ie
        .Visible = True
        .navigate my_url
        .Top = 50
        .Left = 530
        .Height = 400
        .Width = 400

    Do Until Not ie.Busy And ie.readystate = 4
        DoEvents
    Loop
    ie.all.resellerLogin.Value = "mehmet gökmenoğlu"
    ie.all.bayi_sifre.Value = "mehmet"
    End With
    Sheets("deneme").Select
    .Range("A1").Value = Elm.document.HTMLLIelement("Dolar").innertext
    .Range("A2").Value = Elm.document.HTMLLIelement("Euro").innertext
    
    End With
ie.Quit
End Sub