Wie kann ich eine Webseite mit Selenium mit VBA scrollen?

Question

Ich habe ein Skript geschrieben, das VBA in Kombination mit Selen verwendet, um alle Unternehmensverknüpfungen von einer Webseite zu erhalten, die nicht alle Links anzeigt, bis nach unten gescrollt wurde. Wenn ich jedoch mein Skript ausführe, bekomme ich nur 20 Links, aber es gibt insgesamt 1000 Links. Ich habe gehört, dass es möglich ist, diese Art von Aufgabe auszuführen JavaScript-Funktion zwischen dem Code ausführen. Zu diesem Zeitpunkt kann ich mir nicht vorstellen, wie ich das in mein Skript einfügen kann. Hier ist, was ich bisher versucht:

Sub Testing_scroll() 

Dim driver As New WebDriver 
Dim posts As Object, post As Object 

driver.Start "chrome", "http://fortune.com/fortune500" 
driver.get "/list/" 

driver.execute_script ("window.scrollTo(0, document.body.scrollHeight);") --It doesn't support here 

Set posts = driver.FindElementsByXPath("//li[contains(concat(' ', @class, ' '), ' small-12 ')]") 

For Each post In posts 
    i = i + 1 
    Cells(i, 1) = post.FindElementByXPath(".//a").Attribute("href") 
Next post 

End Sub 

Answer 1

Nach den Beispielen mit SeleniumBasic enthalten Sie

driver.ExecuteScript("window.scrollTo(0, document.body.scrollHeight);") 

nicht „driver.execute_script“ verwendet werden soll, das ist die Python-Äquivalent von the previous solution I gave you:) Sie müssen das auf die gleiche Weise wiederholen, bis Sie alle 1000 Links auf der Seite haben.