Soru YATIRIM FONLARI FİYAT TAKİBİ

[isaaceyhan]

Yatırım fonlarının fiyatlarını tefasta (tefas.gov.tr) teker teker görebiliyoruz fakat ben tüm fonların son fiyatlarını ve isimlerini excelde tablo halinde çekmek istiyorum mümkünmüdür . yada tüm fonların son fiyatlarını gösteren bir site varmıdır .

 

[isaaceyhan]

Güncel!!!

 

[ALTINYAYLA]

https://fonasistani.com/fonlar Buraya bir bakın isterseniz. Belki işinizi görür.

 

[beab05]

Merhaba;

Alttaki kodla alabilirsiniz..

Not: Eski konuymuş bu.. Olsun JSON verilerle ilgili bir örnek oldu

Sub getFon()

    'beab05
  
    Dim Fon As Object
    Dim BB As Object
    Dim scriptControl As Object
    Dim i As Integer

    Set scriptControl = CreateObject("MSScriptControl.ScriptControl")
    scriptControl.Language = "JScript"

    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", "https://fonasistani.com/ajax/gunlukdegisimler", False
        .send
        Set Fon = scriptControl.Eval("(" + .responsetext + ")")
        .abort
      
        With ActiveSheet
        i = 1
        Range("A1:B1") = Array("Ad", "GüncelFiyat")
        For Each BB In Fon
            i = i + 1
            .Cells(i, 1).Value = BB.Adi
            .Cells(i, 2).Value = BB.GuncelFiyat
        Next
          
        End With
    End With

End Sub