使用VBA+IE时，如何在scrollBy滚动至页面底部时退出循环？

嘿，这个懒加载页面的滚动终止问题我太熟了！之前帮好几个朋友解决过类似的VBA脚本卡点，咱们直接上干货，核心思路就是通过对比滚动前后的页面高度来判断是否到底部——毕竟懒加载的本质是滚动后加载新内容，页面高度会增加，一旦高度不再变化，就说明没有更多产品可以加载了。

具体实现步骤&代码示例 #

首先，如果你想用更精准的等待（比Application.Wait灵活），可以先声明Windows的Sleep API（放在模块最顶部）：

#If VBA7 Then
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

然后是主逻辑代码，我给你写好注释了：

Dim ie As Object
Dim currentPageHeight As Long
Dim newPageHeight As Long

' 初始化IE对象
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "你的目标网页地址"

' 等待页面初始加载完成
Do While ie.Busy Or ie.ReadyState <> 4
    DoEvents
Loop

' 记录初始页面高度（兼容不同页面结构，取body和根元素的最大高度）
currentPageHeight = Application.WorksheetFunction.Max( _
    ie.document.body.scrollHeight, _
    ie.document.documentElement.scrollHeight _
)

Do
    ' 滚动到当前页面的底部
    ie.document.parentWindow.scrollBy 0, currentPageHeight
    
    ' 等待懒加载内容加载完成（时间根据页面速度调整，比如2000=2秒）
    Sleep 2000
    ' 如果你不想用Sleep，也可以用：Application.Wait Now + TimeValue("00:00:02")
    
    ' 获取滚动后的新页面高度
    newPageHeight = Application.WorksheetFunction.Max( _
        ie.document.body.scrollHeight, _
        ie.document.documentElement.scrollHeight _
    )
    
    ' 关键判断：如果高度没变化，说明到底部了，退出循环
    If newPageHeight = currentPageHeight Then
        Exit Do
    End If
    
    ' 更新高度，继续下一轮滚动
    currentPageHeight = newPageHeight
Loop

' 后续你可以处理爬取到的产品数据啦
' ...

' 记得关闭IE（可选）
ie.Quit
Set ie = Nothing

几个关键注意点 #

• 等待时间调整：不同网站的加载速度不一样，比如图片多的电商页面可能需要3-5秒，你可以多测试几次，把Sleep的参数调合适，避免因为等待时间不够导致误判（以为到底部了，但其实内容还在加载）。
• 页面高度兼容性：有些页面的高度存在于document.body，有些在document.documentElement，用Max取两者的最大值能适配更多场景。
• 滚动触发逻辑：如果有些网站是滚动到接近底部（比如距离底部200px）才触发懒加载，你可以把滚动距离改成currentPageHeight - 200，但判断到底部的逻辑还是一样的——看高度是否停止增长。

这样改完，你的Do循环就能准确识别页面底部，自动退出啦！

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