Gram altın fiyatı alma

[kalibre101]

merhabalar

Serbest Piyasa Canlı Altın Fiyatları - Çeyrek, Gram, 22 Ayar

Serbest Piyasa güncel canlı altın fiyatları ve altın haberleri sitemizden anlık olarak takip edebilirsiniz.

canlidoviz.com

bu siteden gram altın , çeyrek altın , ons altın alış ve satış fiyatlarını çeken ve aktif excell sayfasına herhangi bir hücreye yazan vba koduna ihtiyacım var

 

[Ouzz_z]

Sub AltinFiyatlariniCek_Price()
    Dim http As Object, html As Object
    Dim spans As Object, sp As Object
    Dim i As Long
    
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", "https://canlidoviz.com/altin-fiyatlari", False
    http.Send
    
    Set html = CreateObject("HTMLFILE")
    html.body.innerHTML = http.responseText
    
    Set spans = html.getElementsByTagName("span")
    
    i = 1
    Range("A:B").ClearContents
    Range("A1") = "Altın Türü"
    Range("B1") = "Fiyat"
    
    For Each sp In spans
        If sp.getAttribute("itemprop") = "price" Then
            i = i + 1
            Cells(i, 2).Value = sp.innerText
        ElseIf sp.getAttribute("itemprop") = "name" Then
            ' altın türü (örnek: Gram Altın)
            i = i
            Cells(i + 1, 1).Value = sp.innerText
        End If
    Next
    
    MsgBox "Altın fiyatları başarıyla çekildi!", vbInformation
End Sub

 

[kalibre101]

teşekkür ederim sagolun

 

[ybsuleyman]

Döviz ve altın için dosya ektedir