internet sitesinden veriyi tam çekmiyor

[coindash]

Dün selenium ile bir siteden veri çekiyordum ve veriler 400 satır idi. Verilerin çekmesi biraz sürüyordu.
Bugün ilk 20 satır dışında veriyi almıyor.
Problem ne olabilir. Button çalıştığı zaman internet sitesinde beklemesi için bir kod falan mı gerekiyor?

 

[Necdet]

Merhaba.

Kodları yayınlarsanız selenium ile ilgilenen arkadaşların inceleme şansı olur.

 

[askm]

Bekleme için driver.wait 1000 (1 sn beklemek için) yazabilirsiniz. Kodlarınızı görürsek sorunu bulabiliriz.

 

[coindash]

Bekleme için driver.wait 1000 (1 sn beklemek için) yazabilirsiniz. Kodlarınızı görürsek sorunu bulabiliriz.

Private Sub CommandButton1_Click()

Dim Browser As New Selenium.WebDriver, veri As TableElement, aralık As Range

Application.ScreenUpdating = True

Browser.Start "chrome"

Browser.Get "https://coinmarketcap.com/exchanges/binance/"

Browser.Wait "8000"

Set veri = Browser.FindElementByXPath("/html/body/div/div[1]/div[2]/div/div[1]/div[3]/div[1]/div[2]/div[3]/div/table").AsTable

veri.ToExcel Worksheets("BINANCE").Range("B3")
Browser.Wait "10000"

beklemesine rağmen verileri tam tablo halinde çekmiyor. siteyle alakalı bir durum mudur nasıl çözülür?

 

[coindash]

Merhaba.

Kodları yayınlarsanız selenium ile ilgilenen arkadaşların inceleme şansı olur.

attım teşekkür ederim, bekliyorum

 

[askm]

Aşağıdaki şekilde deneyin.

Private Sub CommandButton1_Click()
Dim Browser As New Selenium.WebDriver, trler As WebElements, tdler As WebElements
Dim veri As TableElement, aralık As Range
Dim sutun As Byte
Application.ScreenUpdating = True
Cells.Clear
Browser.Start "chrome"
Browser.Get "https://coinmarketcap.com/exchanges/binance/"
For Z = 1 To 30 'veri çoksa burdaki 30 değerini artırın.Ya da daha da azaltıp da deneyebilirsiniz. Zamanı kısaltmak için
    Browser.SendKeys Browser.Keys.PageDown
    Browser.Wait 500
Next Z
Set veri = Browser.FindElementsByTag("table")(3).AsTable
veri.ToExcel Worksheets("BINANCE").Range("B3")
End Sub