Web siteden makro ile data çekmek

Katılım
16 Mart 2021
Mesajlar
41
Excel Vers. ve Dili
365excel
Selamlar,

ve

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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,338
Excel Vers. ve Dili
2007 Türkçe
Merhaba,
Aşağıdaki kodu boş bir modüle kopyalayıp çalıştırınız...
Kod:
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
 
Katılım
16 Mart 2021
Mesajlar
41
Excel Vers. ve Dili
365excel
@Ö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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,338
Excel Vers. ve Dili
2007 Türkçe
Eyvallah, bilmukabele...
İyi çalışmalar diliyorum...
 
Üst