VBA如何完整加载动态滚动触发post请求的HTMLTable全部数据

解决方案 #

方案一：基于现有IE对象模拟滚动（最低改造成本，无需额外抓包） #

该方案完全复用你现有IE会话逻辑，不需要处理cookie或请求参数，通过模拟用户滚动操作触发加载请求，是符合页面交互逻辑的正规实现，非临时hack方案。
实现逻辑：循环滚动到表格底部→等待新数据加载完成→判断是否还有更多数据，直到连续多次滚动无新数据即加载完成。

在你原有获取table对象的代码之后，粘贴如下滚动加载逻辑即可：

' ===== 新增：滚动加载全量表格数据 =====
Dim lastRowCount As Long, currentRowCount As Long, noNewDataCnt As Integer
' 连续3次滚动无新数据则判定为所有数据加载完成
Do While noNewDataCnt < 3
    ' 记录当前表格行数作为对比基准
    lastRowCount = table.Rows.Length
    ' 调用IE内置JS执行滚动，不需要模拟按键，不受窗口焦点影响
    IEObj.document.parentWindow.execScript "document.getElementById('gbox_tbl').scrollTop = document.getElementById('gbox_tbl').scrollHeight", "JavaScript"
    ' 动态等待加载完成，避免固定等待时间过长/过短的问题
    Dim waitStart As Single
    waitStart = Timer
    Do
        DoEvents
        currentRowCount = table.Rows.Length
        ' 行数增加或加载提示消失即代表本轮加载完成
        If currentRowCount > lastRowCount Or InStr(1, table.innerHTML, "Loading...") = 0 Then Exit Do
    Loop While Timer - waitStart < 5 ' 最多等待5秒，避免页面异常导致卡死
    ' 统计无新数据的连续次数
    If currentRowCount > lastRowCount Then
        noNewDataCnt = 0
    Else
        noNewDataCnt = noNewDataCnt + 1
    End If
Loop
' ===== 滚动加载完成，后续可直接沿用你原有表格复制粘贴逻辑 =====

方案二：复用IE会话Cookie直接发POST请求（性能更高，适合大数据量场景） #

你不需要自己生成Cookie，可直接从现有IE对象中获取当前页面的有效Cookie，结合开发者工具抓到的滚动加载POST请求参数，直接发请求拉取全量数据，不需要等待页面渲染，拉取效率远高于页面操作。
核心实现代码示例：

Dim winHttp As Object, reqUrl As String, postData As String, cookieStr As String
Set winHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
' 直接从现有IE对象提取当前会话的有效Cookie
cookieStr = IEObj.document.cookie
' 以下参数从浏览器开发者控制台的网络面板中，抓取滚动触发的POST请求即可获取
reqUrl = "你抓到的滚动加载POST请求接口地址"
postData = "你抓到的请求体参数，格式如offset=100&limit=100这类"

' 发送请求
winHttp.Open "POST", reqUrl, False
winHttp.setRequestHeader "Cookie", cookieStr
' Content-Type按你实际抓到的请求头填写，常见为表单或JSON格式
winHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
winHttp.send postData

' 输出返回结果，可自行解析为表格数据
Debug.Print winHttp.responseText

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