tahsinanarat
Altın Üye
- Katılım
- 14 Mart 2005
- Mesajlar
- 2,164
- Excel Vers. ve Dili
- Ofis 2019 Türkçe
- Altın Üyelik Bitiş Tarihi
- 27-05-2028
https://www.isyatirim.com.tr/tr-tr/analiz/hisse/Sayfalar/Tarihsel-Fiyat-Bilgileri.aspx
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
Kod:
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
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
Ekli dosyalar
-
20.4 KB Görüntüleme: 7