Steam'den excel'e veri çekmek

[ehlenvesehlen]

Steam adlı sitedeki şu sayfadan; https://steamcommunity.com/market/listings/730/StatTrak™ P2000 | Urban Hazard (Battle-Scarred) listelenmiş 10 fiyattan en üstteki ikisini çekmek istiyorum. Tablo olmadığı için selenium ile çekemedim. Bir yolu var mı?

 

[veyselemre]

Sub seleniumAc()
    Dim driver As WebDriver
    Set driver = New ChromeDriver
    Dim lst As WebElements
    Dim i As Long
    With driver
        .Get "https://steamcommunity.com/market/listings/730/StatTrak%E2%84%A2%20P2000%20%7C%20Urban%20Hazard%20%28Battle-Scarred%29"
        Set lst = driver.FindElementsByCss(".market_listing_row")
        Range("A2:C20").ClearContents
        For i = 2 To lst.Count
            bl = Split(lst(i).Text, Chr(10))
            Cells(i, 1) = bl(2)
            Cells(i, 2) = bl(3)
            Cells(i, 3) = bl(1)
        Next i
    End With
End Sub

 

[ehlenvesehlen]

Sub seleniumAc()
    Dim driver As WebDriver
    Set driver = New ChromeDriver
    Dim lst As WebElements
    Dim i As Long
    With driver
        .Get "https://steamcommunity.com/market/listings/730/StatTrak%E2%84%A2%20P2000%20%7C%20Urban%20Hazard%20%28Battle-Scarred%29"
        Set lst = driver.FindElementsByCss(".market_listing_row")
        Range("A2:C20").ClearContents
        For i = 2 To lst.Count
            bl = Split(lst(i).Text, Chr(10))
            Cells(i, 1) = bl(2)
            Cells(i, 2) = bl(3)
            Cells(i, 3) = bl(1)
        Next i
    End With
End Sub

Çok teşekkür ederim. Fakat listedeki veriler anlık değişebiliyor denediğimde bu makroya yansmıyor. Makroyu durdurup tekrar çalıştırdığımda ancak yansıdığını görebiliyorum. Bununla ilgili yapabileceğimiz bir şey var mı acaba?

 

[veyselemre]

Mümkün değil. Browseri gizli bir şekilde açıp excel açık olduğu sürece gizli çalışmasını sağlayıp, Application.OnTime kullanarak belirli aralıklarla yenilenmesini sağlayabilirsiniz.
Excelin web query sistemini inceleyin. Orada otomatik yenileme olabilir. Veya üzerinde sağ tıklayıp yenile diyebilirsiniz.

 

[ehlenvesehlen]

Mümkün değil. Browseri gizli bir şekilde açıp excel açık olduğu sürece gizli çalışmasını sağlayıp, Application.OnTime kullanarak belirli aralıklarla yenilenmesini sağlayabilirsiniz.
Excelin web query sistemini inceleyin. Orada otomatik yenileme olabilir. Veya üzerinde sağ tıklayıp yenile diyebilirsiniz.

Çok sağolun. Yenilemeyi otomatiğe alamadım fakat butona atadım. Verdiğiniz kodları vba da yazınca a2-c11 arasına tablo yerleşti. Peki aynı sayfada gene steam üzerinden farklı bir listeyi çekmek istediğimde yazdığınız kodların hangisini değiştirmem gerekiyor. Url kısmı değişecek tabi fakat mesela a12-c21 arasına ikinci bir tablo atayıp butonla makroyu da aktif hale getireceğim. Yani yazdığınız kodlardaki hangi kısımları değiştirmem gerekir? Veri çekeceğim ikinci sayfa konsept olarak size gönderdiğim sayfanın aynısı sadece url, silah ve fiyatlar farklı.