Altın Alış ve Satış Tutarlarını Excele Çekme

[okan32]

Arkadaşlar Hayırlı Ramazanlar ve Hayırlı Cumalar
https://www.ziraatkatilim.com.tr/Sayfalar/anasayfa.aspx LİNKİNDEN EKTEKİ ÖRNEK DOSYAMA ALTIN ALIŞ VE SATIŞ TUTARLARINI EXCELE ÇEKEBİLİRMİYİZ. YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜRLER.
.

 

[okan32]

konu günceldir arkadaşlar

 

[Haluk]

Sub Test()
'   Haluk - 24/04/2020
'   sa4truss@gmail.com

    Dim URL As String
    Dim IE As Object
    
    URL = "https://www.ziraatkatilim.com.tr/Sayfalar/anasayfa.aspx#"
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Navigate URL
    
    Do Until IE.ReadyState = 4
    Loop
    
    Range("A2:B2") = Empty
    
    Set Divs = IE.Document.getElementsByTagName("div")
    
    For i = 0 To Divs.Length - 1
        If Divs(i).classname = "bvXAU" Then
            Range("A2") = Split(Divs(i).innertext, vbLf)(6) + 0
            Range("B2") = Split(Divs(i).innertext, vbLf)(8) + 0
            Range("A2:B2").NumberFormat = "0.0000"
        End If
    Next
    
    IE.Quit
    Set IE = Nothing
End Sub

.

 

[okan32]

Çok teşekkür ederim Haluk Bey