VBA调用getElementsByClassName无法返回全部懒加载元素如何解决

你遇到的是服务端分页+前端懒加载的典型场景，XMLHTTP只能拿到首次页面渲染的静态内容，不会执行JS触发后续分页请求，所以只能拿到12条数据，可选用以下两种方案解决：

方案1：无浏览器直接调取分页接口（优先推荐） #

这个方案无需启动浏览器，效率最高，完全符合无浏览器环境的要求，操作步骤如下：

• 打开Chrome浏览器访问目标页面，按F12调出开发者工具，切换到「网络」面板，筛选「Fetch/XHR」请求
• 手动向下滚动页面触发加载更多商品，观察网络面板中新增的请求，找到商品列表的分页请求（通常请求参数会带page、page_num、limit这类分页字段，返回内容为JSON格式的商品数据或HTML片段）
• 直接在VBA中用XMLHTTP请求该分页接口，循环调用所有分页即可拿到全量30+条数据

方案2：使用无头浏览器模拟滚动（接口难解析时选用） #

如果分页接口有签名加密、反爬限制难以直接调用，可以用Selenium驱动无头Chrome实现无界面滚动加载，全程不会弹出浏览器窗口，VBA环境下实现步骤：

• 先安装Selenium VBA驱动，下载对应版本的ChromeDriver
• 编写代码启动无头Chrome，访问目标页后模拟滚动到页面底部，等待内容加载完成后再提取元素

示例代码（方案2简化版） #

Sub GetAllImageLinks()
    Dim driver As New ChromeDriver
    Dim ListItems As IWebElementCollection
    ' 启动无头模式
    driver.AddArgument "--headless=new"
    driver.Get "https://www.rizoma.com/en/motorcycle/mirrors.html"
    ' 模拟滚动到底部两次，确保所有内容加载完成
    driver.ExecuteScript "window.scrollTo(0, document.body.scrollHeight);"
    Application.Wait Now + TimeValue("00:00:02")
    driver.ExecuteScript "window.scrollTo(0, document.body.scrollHeight);"
    Application.Wait Now + TimeValue("00:00:02")
    ' 提取元素
    Set ListItems = driver.FindElementsByClassName("product-top")
    Debug.Print ListItems.Count
    driver.Quit
End Sub

额外优化说明 #

你原有代码里的Do While XMLReq.readyState <>4逻辑是冗余的，因为你调用XMLReq.send时用了同步请求（第三个参数设为False），代码会阻塞到请求完成才会往下执行，不需要额外加readyState等待判断。

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