Çözüldü İnternetten Altın Fiyatlarını Çekmek

[mustafa1205]

Forumda araştırdım ama ihtiyacımı karşılayabilecek bir döküman bulamadım. Altının günlük ONS ve Gram cinsinden alış satış tutarlarını alabileceğim bir çalışması olan var mı acaba. Örnek dosyamda para birimleri için alabiliyorum. Ancak altın için yapamadım...

 

[muhasebeciyiz]

Sub Test31()
'   Haluk - 03/04/2023

    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:F" & Rows.Count) = ""

    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
    strURL = "https://canlidoviz.com/altin-fiyatlari"

    objHTTP.Open "GET", strURL, False
    objHTTP.send

    Set HTML = CreateObject("HTMLFILE")
    HTML.body.innerHTML = objHTTP.responseText

    Set Tables = HTML.getElementsByTagName("table")
 
    Set MyTable = Tables(0)
 
        For i = 0 To MyTable.Rows.Length - 1
            iRow = iRow + 1
            For j = 0 To MyTable.Rows(i).Cells.Length - 1
                temp = MyTable.Rows(i).Cells(j).innerText
                If j = 2 Then
                    Cells(iRow, j + 1) = Split(temp, vbCrLf)(0)
                Else
                    Cells(iRow, j + 1) = MyTable.Rows(i).Cells(j).innerText
                End If
            Next
        Next
End Sub

Haluk Hocamızın çalışmasını kullanabilirsiniz

 

[mustafa1205]

Çok Teşekkür ederim Sayın Muhasebeciyiz. Epey Lazımdı. Bir Proje üzerinde çalışıyordum. Olmadı bir türlü. Tam istediğim gibi.

Haluk Hocamın da emeğine ellerine sağlık.
Sağ olsun var olsun