Soru Siteden veri çekme - Obje hatası

[k0081]

Merhaba arkadaşlar;

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

bu siteden veri çekiyordum fakat şu an obje gerekli hatası alıyorum. site yapısında değişiklik var. sanırım...

bu satırı nasıl değiştirmeliyim ?

ANA.Range("K20") = CDbl(h.getElementById("content").getElementsByClassName("Satis")(3).getElementsByTagName("b")(0).innerText)

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

 

[Haluk]

Aşağıdaki kodu kendinize uyarlarsınız;

Sub getAltin()
'   Haluk - 10/05/2022
'   sa4truss@gmail.com
 
    Dim objHTTP As Object, strURL As String
    Dim HTML As Object, Tables As Object, Table As Object
    Dim x As Integer, i As Long, iRow As Long, j As Integer
 
    Range("A1:C13") = ""
    Range("B1:C1") = Split("ALIŞ SATIŞ")
 
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    strURL = "http://www.altinpiyasa.com/"
 
    objHTTP.Open "GET", strURL, False
    objHTTP.send

    Set HTML = CreateObject("HTMLFILE")
    HTML.body.innerHTML = objHTTP.responseText
    
    Set Divs = HTML.getElementsByTagName("div")
 
    For x = 0 To Divs.Length - 1
        If Divs(x).classname = "kur" Then
            iRow = iRow + 1
            Cells(iRow + 1, 1) = Divs(x).ChildNodes(0).innerText
            Cells(iRow + 1, 2) = Replace(Split(Divs(x).ChildNodes(1).innerText)(1), ".", "") + 0
            Cells(iRow + 1, 3) = Replace(Split(Divs(x).ChildNodes(2).innerText)(1), ".", "") + 0
        End If
    Next
End Sub

.

 

[k0081]

Şu webden veri olayını oldum olası anlamadım... bi deneyeyim.

Teşekkürler hocam