BIST-100 verileri

[Haluk]

Son birkaç gündür, BIST-100 verilerinin yayınlandıkları sitelerde VBA ile Excel'e alınmasında sorun yaşadığını ileten birkaç kişi özel mesajla bana belirtmişti.

Söz konusu sitelerin güvenlik uygulamaları nedeniyle, konuyla ilgili olarak daha önce hazırladığım dosyaların çalışmadığını ben de gördüm. Ancak, Google Sheets'de verilerin alınmasında bir problem olmamaktadır.

Bunun üzerine, ben de Google Sheets'e aldığım verileri XML formatına çevirip Web Servis işini görecek bir script hazırladım.

Söz konusu XML verilerine ulaşmak için aşağıdaki linke tıklayabilirsiniz.

https://script.google.com/macros/s/AKfycbzQXfeirloG3ssRQEkd68tRp6j5Hm3ExJn71P1lvrFQQ-pkmVv2om-jNR6p3UVvadB8aA/exec?callback=DataBIST100

Linke tıkladıktan sonra alacağınız ekran görüntüsü aşağıdaki gibi olacaktır;







Artık bundan sonrası size ait


.

 

[Korhan Ayhan]

Haluk Bey,

Elinize emeğinize sağlık. Paylaşımınız için çok teşekkürler.

 

[Haluk]

Teşekkürler Korhan Bey,

.

 

[muhasebeciyiz]

Haluk bey ;

Verilen emekten dolayı eline,yüreğine,beynine sağlık.

 

[ibere]

Son birkaç gündür, BIST-100 verilerinin yayınlandıkları sitelerde VBA ile Excel'e alınmasında sorun yaşadığını ileten birkaç kişi özel mesajla bana belirtmişti.

Söz konusu sitelerin güvenlik uygulamaları nedeniyle, konuyla ilgili olarak daha önce hazırladığım dosyaların çalışmadığını ben de gördüm. Ancak, Google Sheets'de verilerin alınmasında bir problem olmamaktadır.

Bunun üzerine, ben de Google Sheets'e aldığım verileri XML formatına çevirip Web Servis işini görecek bir script hazırladım.

Söz konusu XML verilerine ulaşmak için aşağıdaki linke tıklayabilirsiniz.

https://script.google.com/macros/s/AKfycbzQXfeirloG3ssRQEkd68tRp6j5Hm3ExJn71P1lvrFQQ-pkmVv2om-jNR6p3UVvadB8aA/exec?callback=DataBIST100

Linke tıkladıktan sonra alacağınız ekran görüntüsü aşağıdaki gibi olacaktır;




Ekli dosyayı görüntüle 239574


Artık bundan sonrası size ait


.

Haluk bey çok teşekkür ederim. Sormak istediğim bir soru var, google sheet ile 5 dakikada 1 sınırsız olarak çalışacak script çalıştırılabiliyor mu acaba ?

 

[tamer42]

Son birkaç gündür, BIST-100 verilerinin yayınlandıkları sitelerde VBA ile Excel'e alınmasında sorun yaşadığını ileten birkaç kişi özel mesajla bana belirtmişti.

Söz konusu sitelerin güvenlik uygulamaları nedeniyle, konuyla ilgili olarak daha önce hazırladığım dosyaların çalışmadığını ben de gördüm. Ancak, Google Sheets'de verilerin alınmasında bir problem olmamaktadır.

Bunun üzerine, ben de Google Sheets'e aldığım verileri XML formatına çevirip Web Servis işini görecek bir script hazırladım.

Söz konusu XML verilerine ulaşmak için aşağıdaki linke tıklayabilirsiniz.

https://script.google.com/macros/s/AKfycbzQXfeirloG3ssRQEkd68tRp6j5Hm3ExJn71P1lvrFQQ-pkmVv2om-jNR6p3UVvadB8aA/exec?callback=DataBIST100

Linke tıkladıktan sonra alacağınız ekran görüntüsü aşağıdaki gibi olacaktır;

Haluk Hocam
Verdiğiniz emekten dolayı elinize, emeğinize, yüreğinize sağlık.
Açılan ekranı excel sayfasına nasıl koplayabiliriz?
Aşağıdaki gibi bir kod buldum ama çalışmadı.

tekrar teşekkürler,

Const strURL = "https://script.google.com/macros/s/AKfycbzQXfeirloG3ssRQEkd68tRp6j5Hm3ExJn71P1lvrFQQ-pkmVv2om-jNR6p3UVvadB8aA/exec?callback=DataBIST100"

Sub Test()

    Dim IE As Object
    On Error Resume Next
    Application.DisplayAlerts = False
    
    Sheets("Sayfa1").Select
    Range("A1:A1000") = "" ' erase previous data
    Range("A1").Select

    Set IE = CreateObject("InternetExplorer.Application")
        With IE
            .Visible = True
            .Navigate strURL
            Do Until .ReadyState = 4: DoEvents: Loop
        End With


        IE.ExecWB 17, 0 '// SelectAll
        IE.ExecWB 12, 2 '// Copy selection
        ActiveSheet.PasteSpecial Format:="Text", link:=False, DisplayAsIcon:=False
        Range("A1").Select
        IE.Quit

    Application.DisplayAlerts = True


End Sub

 

[veyselemre]

Sub veriAl()

    Dim strURL$, al$, baslik As Variant, _
    p As Object, sat%, i%

    strURL = "https://script.google.com/macros/s/AKfycbzQXfeirloG3ssRQEkd68tRp6j5Hm3ExJn71P1lvrFQQ-pkmVv2om-jNR6p3UVvadB8aA/exec?callback=DataBIST100"
    
    With CreateObject("Msxml2.ServerXMLHTTP.6.0")
    
        .Open "GET", strURL, False
        .send
        al = Mid(.responseText, 13)
        al = Trim(Left(al, Len(al) - 2))
    End With
    
    Cells.ClearContents
    baslik = Array("Stock Name", "Last", "High", "Low", "Change", "Volume", "Time")
    [a1].Resize(, 7).Value = baslik
    
    sat = 2

    With CreateObject("Msxml2.DOMDocument")
        .LoadXML (al)
        
        For Each p In .getElementsByTagName("Stock")
                      
            Cells(sat, 1).Value = p.getAttribute("stockName")
            For i = 1 To 6
                Cells(sat, i + 1).Value = p.SelectSingleNode(baslik(i)).Text
            Next i
            sat = sat + 1
            
        Next p
    
    End With

End Sub

 

[tamer42]

Teşekkürler Veysel Hocam