VBA网页抓取求助：无法正确提取View Contents区域的表格数据

问题原因 #

你遇到的只拿到表头的问题，核心是「View Contents」区域的表格属于异步渲染内容：页面初始加载完成时只会渲染表头，点击对应选项卡/触发对应操作后，才会请求后端数据并把表格行插入到DOM中，你当前代码只判断了页面初始加载状态，没有触发内容加载、也没有等待数据渲染完成。

可行解决方案 #

1. 先模拟触发「View Contents」加载

在原有页面初始加载完成的逻辑后，增加模拟点击「View Contents」按钮的代码，触发数据请求：

' 原有代码优化：更完善的页面初始加载判断，READYSTATE_COMPLETE也可以直接写数值4
While IEObject.Busy Or IEObject.ReadyState <> READYSTATE_COMPLETE
    DoEvents
Wend

' ==== 新增代码开始 ====
Dim viewBtn As IHTMLElement
' 这里的匹配逻辑请替换为你页面中「View Contents」按钮的实际属性，也可以按id、className匹配
' 举个按按钮文本匹配的例子：
For Each btn In IEDocument.getElementsByTagName("button")
    If btn.innerText = "View Contents" Then
        Set viewBtn = btn
        Exit For
    End If
Next

If Not viewBtn Is Nothing Then
    viewBtn.Click ' 点击触发表格加载
    ' 等待表格内容渲染，最多等待10秒避免程序卡死
    Dim startTimer As Single
    startTimer = Timer
    Do
        DoEvents
        ' 判断表格行数是否超过表头行数，比如你表头是1行，就判断Rows.Length>1，按实际调整
    Loop Until IEDocument.getElementsByTagName("table")(2).Rows.Length > 1 Or Timer - startTimer > 10
End If
' ==== 新增代码结束 ====

' 原有抓表格逻辑，放在上面的加载逻辑之后执行
Set IETable = IEDocument.getElementsByTagName("table")(2)

2. 排查其他异常情况

如果按上面修改后还是拿不到完整内容，可以逐一排查：

• 检查目标表格是否嵌套在iframe标签中，如果是需要先获取iframe的contentDocument对象，再从该对象中查找表格元素，不能直接用顶层的IEDocument
• 如果是滚动懒加载的长表格，需要模拟滚动到表格底部，触发所有行渲染完成后再抓取
• 部分网站会做反爬限制，模拟点击后可以增加1~2秒的固定延迟再抓数据，避免请求还没返回就执行抓取逻辑

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