Selam
Alttaki vba kodu ile excele istediğiniz fonun son fiyatını alabilirsiniz.
A1hücresinden aşağı doğru istediğiniz kadar fon adı yazın.
Makroyu çalıştırın.
Fon fiyatları B sütununa gelecektir.
VBA kodunu nasıl ekleyeceğim diyenler 5 dk lık bir youtube videosu ile bir merdiven çıkabilirler.
Yada excelde
Alt + F11
insert--> Module
yeni açılan yere bunu yapıştır.
Çalıştırmak için F5 yada yukarıdaki yeşil üçgen...
Bu arada alttaki kodda sayfa adı Sayfa1 olarak tanımlı.
Kod:
Sub Tefas_Fon()
Dim http As New XMLHTTP60, html As New HTMLDocument
Dim xElement As Object, i As Integer
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
Kütüphane kısmı alttaki gibi olmalı.
Tools-->Referances
Yer İmleri