Soru Dolar-Euro satış

[k0081]

Merhaba arkadaşlar;

aşağıda vermiş olduğum web sitesinden,

Altın Fiyatları, Gram Altın ve Döviz Kurları - Altın Piyasa

Altın Piyasa, Anlık Canlı Altın Fiyatları ve piyasalara dair her türlü haber kaynağına ulaşabileceğiniz internet sitesi

www.altinpiyasa.com

command buton ile

ANASAYFA ya

K20=dolar
K21=euro
K22=Tam altın
K23=Çeyrek altın

satış fiyatlarını nasıl alabilirim ?

yardımcı arkadaşa şimdiden teşekkürler.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub kod()
Set ANA = Sheets("ANASAYFA")
Set x = CreateObject("MSXML2.XMLHTTP")
Set h = CreateObject("htmlFile")
With x
    .Open "GET", "https://www.altinpiyasa.com/", False
    .Send
End With
h.body.innerHTML = x.responseText
ANA.Range("K20") = CDbl(h.getElementById("content").getElementsByClassName("satis")(3).getElementsByTagName("b")(0).innerText)
ANA.Range("K21") = CDbl(h.getElementById("content").getElementsByClassName("satis")(4).getElementsByTagName("b")(0).innerText)
ANA.Range("K22") = CDbl(h.getElementById("content").getElementsByClassName("satis")(6).getElementsByTagName("b")(0).innerText)
ANA.Range("K23") = CDbl(h.getElementById("content").getElementsByClassName("satis")(8).getElementsByTagName("b")(0).innerText)
End Sub

 

[k0081]

@ÖmerBey

Çok Teşekkür ediyorum , Tamamdır. elinize sağlık.

* alttaki küçük değişikliği yaptım... Tam ile çeyrek altının yerleri karışmış...

ANA.Range("K22") = CDbl(h.getElementById("content").getElementsByClassName("satis")(8).getElementsByTagName("b")(0).innerText)
ANA.Range("K23") = CDbl(h.getElementById("content").getElementsByClassName("satis")(6).getElementsByTagName("b")(0).innerText)

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...

 

[Haluk]

Soru - Macro hata veriyor

Haluk hocam elinize sağlık güzel çalışıyor Epeydir IEXPLORER Probleminden Kur Bilgisi çekemiyordum bununla çekebildim. bende bir soru sorayım Değişim Sütununda Değeri Ortalamak için aşağıdaki Kodda nasıl bir değişiklik gerekir. Range("E2:E22").NumberFormat = "@" Kendi soruma cevap buldum...

www.excel.web.tr

.