如何在VBA Chrome Selenium中滚动至动态加载页面底部

问题分析 #

你的滚动代码失效主要有三个原因：

1. 知乎页面的滚动高度计算依赖document.documentElement而非document.body，原代码用错了元素；
2. 初始未给CurrentPageHeight赋值，第一次循环时PrevPageHeight为无效值；
3. 直接跳转到页面底部的方式可能触发不了知乎的动态加载逻辑，且缺少重试机制应对网络延迟。

修正后的滚动代码 #

Dim EndofPage As Boolean
Dim PrevPageHeight As Long, CurrentPageHeight As Long

' 初始化变量与初始页面高度
EndofPage = False
CurrentPageHeight = driver.ExecuteScript("return document.documentElement.scrollHeight")

Do While EndofPage = False
    PrevPageHeight = CurrentPageHeight
    ' 滚动至当前页面底部
    driver.ExecuteScript("window.scrollTo(0, document.documentElement.scrollHeight);")
    ' 等待动态内容加载（可根据网络情况调整时长）
    Application.Wait Now + TimeValue("00:00:03")
    ' 获取更新后的页面高度
    CurrentPageHeight = driver.ExecuteScript("return document.documentElement.scrollHeight")
    
    ' 加入重试机制，避免单次高度不变误判到底
    Static retryCount As Integer
    If PrevPageHeight = CurrentPageHeight Then
        retryCount = retryCount + 1
        If retryCount >= 3 Then
            EndofPage = True
            retryCount = 0 ' 重置计数器
        End If
    Else
        retryCount = 0 ' 高度变化，重置重试计数器
    End If
Loop

关键修改说明 #

• 切换滚动高度计算元素：改用document.documentElement.scrollHeight，适配知乎的页面布局，准确获取真实滚动高度；
• 初始化变量：提前获取初始页面高度，避免第一次循环的变量无效问题；
• 重试机制：网络延迟可能导致单次滚动后高度未更新，重试3次后再判定到底，提高稳定性；
• 拆分滚动与高度获取：原代码将滚动和高度获取写在同一句脚本中，可能滚动未完成就获取高度，拆分后逻辑更准确。

备选优化：逐段滚动模拟用户行为 #

如果直接滚动到底部仍无法触发加载，可模拟用户逐段滚动的行为，更容易触发知乎的加载逻辑：

Dim EndofPage As Boolean
Dim PrevPageHeight As Long, CurrentPageHeight As Long

EndofPage = False
CurrentPageHeight = driver.ExecuteScript("return document.documentElement.scrollHeight")

Do While EndofPage = False
    PrevPageHeight = CurrentPageHeight
    ' 每次滚动当前窗口高度的80%，模拟手动滚动
    driver.ExecuteScript("window.scrollBy(0, window.innerHeight * 0.8);")
    ' 短等待后再继续滚动
    Application.Wait Now + TimeValue("00:00:01")
    CurrentPageHeight = driver.ExecuteScript("return document.documentElement.scrollHeight")
    
    ' 重试逻辑同上
    Static retryCount As Integer
    If PrevPageHeight = CurrentPageHeight Then
        retryCount = retryCount + 1
        If retryCount >= 3 Then
            EndofPage = True
            retryCount = 0
        End If
    Else
        retryCount = 0
    End If
Loop

内容的提问来源于stack exchange，提问作者Tahir Mehnood