Alıntı Originally Posted by Kandirildim Yazıyı Oku
Sn myfinans Muhtemelen Selenium ile chrome üzerinden veri çekiyorsunuz.
Olası chrome güncellemelerinde selenium hep sorun çıkarır.
Alttaki kod ile istediğiniz fonların fiyatlarını çekebilirsiniz.
A sütununa istediğiniz fonları yazın, B sütununa yazdığınız fonların o anki tefaşta görünen fiyatlarını çeker.
VBA kısmında alttaki eklemeleri yapmalısınız.

Tools--> Referans
Microsoft XML, V6.0
Microsoft HTML Object Library

Bu 2 eklentiyi işaretleyin



Kod:
Sub Tefas()
    Dim HTTP As New XMLHTTP60, HTML As New HTMLDocument
    Dim xElement As Object
    Dim sat1 As Long, s1 As Worksheet, fon As String
    Set s1 = Sheets("Sayfa1")
    sat1 = s1.Cells(65536, "A").End(xlUp).row
    For i = 1 To sat1
    URL = "https://www.tefas.gov.tr/FonAnaliz.aspx?FonKod=" & UCase(Range("A" & i).Value)
    HTTP.Open "GET", URL, False
    HTTP.send
    HTML.body.innerHTML = HTTP.responseText
    Set xElement = HTML.getElementsByClassName("top-list")
    Range("b" & i) = Split(xElement(0).innerText, vbLf)(2)
    Next
End Sub
İlginiz için teşekkür ederim.
Bu tür uygulamalar çok faydalı oluyor. Portföyü takipsiz bırakmamak lazım.