Web siteden makro ile data çekmek

[xadm103]

Selamlar,

https://v3.paribu.com/app/markets/chz-tl?interval=1000

ve

https://v3.paribu.com/app/markets/rvn-tl?interval=1000

Bu linklerin içinden açılan fiyat bilgilerinin sadece ilk "Sell" yazan fiyatı bir hücreye ve ilk "Buy" fiyatı başka bir hücreye gelecek şekilde nasıl ayarlayabilirim. Linkleri Web tarayıcıda açtığımda (chrome) de fiyatlar saniyelik değişiyor. Ve bu yenilemeyi Ve her 20saniyede bir hücremde de yenilensin istiyorum. Mesela şimdiki linklerden birinin bilgileri şöyle:
--------------------------------------------------------------------------------------------------------------------------------------------------------


{"success":true,"data":{"orderBook":{"sell":{"5.22222":7648.91432667,"5.26490000":12017,"5.26500000":33191.251529,"5.26600000":120,"5.26900000":150,"5.26990000":34770,"5.27000000":11595.81010795,"5.27010000":83,"5.27480000":53810,"5.27500000":34518.79281518,"5.27600000":36378,"5.27700000":285,"5.28000000":40201,"5.28060000":373,"5.28120000":188,"5.28290000":474,"5.28500000":378,"5.28510000":547,"5.28550000":137,"5.28980000":23},"buy":{"5.33333":3282,"5.25030000":2402,"5.25010000":6681,"5.25000000":42301.40213725,"5.24990000":2399,"5.24920000":193,"5.24900000":2658,"5.24890000":8033,"5.24880000":533,"5.24800000":780,"5.24700000":2739,"5.24500000":576,"5.24250000":76,"5.24240000":56,"5.24010000":76,"5.24000000":10724,"5.23100000":192,"5.23010000":38,"5.23000000":5292,"5.22800000":141}},"marketMatches":[{"timestamp":1618649325,"amount":"96.00000000","price":"5.25050000","trade":"sell"},{"timestamp":1618649325,"amount":"34.00000000","price":"5.25030000","trade":"sell"},{"timestamp":1618649325,"amount":"66","price":"5.25030000","trade":"sell"},{"timestamp":1618649325,"amount":"140.72083403","price":"5.25080000","trade":"buy"},{"timestamp":1618649325,"amount":"3806.00000000","price":"5.25300000","trade":"buy"},{"timestamp":1618649325,"amount":"77.00000000","price":"5.25300000","trade":"buy"},{"timestamp":1618649325,"amount":"440.00000000","price":"5.26000000","trade":"buy"},{"timestamp":1618649325,"amount":"2031.00000000","price":"5.26450000","trade":"buy"},{"timestamp":1618649325,"amount":"1298.00000000","price":"5.26450000","trade":"buy"},{"timestamp":1618649325,"amount":"1694.27916597","price":"5.26480000","trade":"buy"
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

bu tabloye göre hücrelerime gelecek olan bilgiler dediğim gibi ilk "Sell" fiyatı kalın ve altını çizdiğim rakam yani hücre A1=5.22222 olmalı
ilk "Buy" fiyatı kalın ve altını çizdiğim hücre A2=5.33333 olmalı. diğer linkte A3 ve A4 ile devam etmeli. excel bilgim orta seviye yardımlarınız için şimdiden teşekkür ediyorum.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu boş bir modüle kopyalayıp çalıştırınız...

Sub kod()
linkler = Array("https://v3.paribu.com/app/markets/chz-tl?interval=1000", _
             "https://v3.paribu.com/app/markets/rvn-tl?interval=1000")
Set x = CreateObject("MSXML2.XMLHTTP")
For Each link In linkler
    With x
        .Open "GET", link, False
        .Send
    End With
    
    a = a + 1
    Cells(a, "A") = Replace(Split(Split(x.responsetext, """sell"":{")(1), ":")(0), """", "")
    a = a + 1
    Cells(a, "A") = Replace(Split(Split(x.responsetext, """buy"":{")(1), ":")(0), """", "")
Next
Application.OnTime Now + TimeValue("0:0:20"), "kod"
End Sub

 

[xadm103]

@ÖmerBey selamlar

Çok ama teşekkür ederim. kodlar Çalıştı. Bilginiz daim olsun. Yazdığınız kod adedi kadar altınınız olması dileği ile (i + ∞) kadar.

 

[ÖmerBey]

Eyvallah, bilmukabele...
İyi çalışmalar diliyorum...