Web sayfasından data çekmek

[tahsinanarat]

https://www.isyatirim.com.tr/tr-tr/analiz/hisse/Sayfalar/Tarihsel-Fiyat-Bilgileri.aspx

Sub VeriCek()
    Dim IE As Object
    Dim Doc As HTMLDocument
    Dim Firma As String
    Dim Baslangic As Date
    Dim Bitis As Date
https://www.isyatirim.com.tr/tr-tr/analiz/hisse/Sayfalar/Tarihsel-Fiyat-Bilgileri.aspx   

    Firma = Range("B2").Value
    Baslangic = Range("C2").Value
    Bitis = Range("D2").Value
   
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
   
    IE.navigate "https://www.isyatirim.com.tr/tr-tr/analiz/hisse/Sayfalar/Tarihsel-Fiyat-Bilgileri.aspx" ' Linki buraya girin
   
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
   
    Set Doc = IE.document
   
    Doc.getElementById("select2").Value = Firma
    Doc.getElementById("dtStartDateHisse").Value = Format(Baslangic, "dd/mm/yyyy")
    Doc.getElementById("dtEndDateHisse").Value = Format(Bitis, "dd/mm/yyyy")
    Doc.getElementById("btnGetHisseTekil").Click
   
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
   
    Doc.getElementById("allStockTable").Click
   
    IE.Quit
End Sub

Yukarıda belirttiğim linkden Anasayfamın A2 hücresinde yazılı firma bilgisini belirttiğim tarih aralığında Çalışma kitabımın Alınandata sekmesine aktarmak istiyorum.
Firma adını gireceğim Açılır kutunun ID si ile EXCELE AKTAR butonunun ID sini web sayfasının incele kısmından denemelerime rağmen bulamadım.
Bu konuda yardımcı olabilirseniz sevinirim.
Saygılarımla

 

[tahsinanarat]

Konu güncel, yardımcı olabilecek hocalarıma şimdiden teşekkür ederim.