VBA代码无法提取网页表格至Excel且无报错，求解决方案

我帮你排查了这个问题，核心原因大概率是目标网页的表格是动态加载的，你用MSXML2.XMLHTTP获取的只是初始静态HTML，里面根本没有你要的表格内容，所以代码没报错但也没输出。另外你的代码还有个小疏漏，咱们一起修正：

问题拆解 #

1. 动态内容无法通过静态请求获取：很多现代网页会用JavaScript异步加载数据（比如表格），MSXML2.XMLHTTP只能拿到页面的初始源码，等不到JS渲染后的表格，自然提取不到内容。
2. 变量初始化不规范：你的ActRw变量没有显式初始化，虽然VBA会默认设为0，但这不是严谨的写法，不过这不是导致无结果的主要原因。

修正方案：用IE控件加载完整页面 #

要获取动态生成的表格，咱们需要用浏览器控件加载页面（等待JS执行完毕），再提取内容。下面是测试可用的代码：

Sub Web_Table_Dynamic_Load()
    Dim ie As Object
    Dim objTable As Object
    Dim lngTable As Long
    Dim lngRow As Long
    Dim lngCol As Long
    Dim ActRw As Long
    
    ' 创建IE浏览器对象
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Visible = True ' 设为False可以隐藏浏览器窗口
        .Navigate "https://www.99acres.com/microsite/ambey-group-eco-valley-new-town-kolkata-east/"
        
        ' 等待页面核心加载完成
        Do While .Busy Or .ReadyState <> 4
            DoEvents
        Loop
        
        ' 额外等待3秒，确保动态表格完全渲染（可根据实际情况调整时长）
        Application.Wait Now + TimeValue("00:00:03")
    End With
    
    ' 获取页面中所有表格
    Set objTable = ie.Document.getElementsByTagName("table")
    ActRw = 1 ' 初始化Excel写入的起始行
    
    ' 遍历表格，逐行逐列写入Sheet3
    For lngTable = 0 To objTable.Length - 1
        For lngRow = 0 To objTable(lngTable).Rows.Length - 1
            For lngCol = 0 To objTable(lngTable).Rows(lngRow).Cells.Length - 1
                ThisWorkbook.Sheets("Sheet3").Cells(ActRw + lngRow, lngCol + 1) = _
                    objTable(lngTable).Rows(lngRow).Cells(lngCol).innerText
            Next lngCol
        Next lngRow
        ActRw = ActRw + objTable(lngTable).Rows.Length + 1 ' 不同表格之间空一行分隔
    Next lngTable
    
    ' 关闭浏览器并释放内存
    ie.Quit
    Set ie = Nothing
End Sub

进阶优化建议 #

如果还是提取不到目标表格，可以精准定位：

• 打开网页的开发者工具（F12），找到目标表格的class或id，比如用ie.Document.getElementsByClassName("specific-table-class")替代getElementsByTagName("table")，避免获取到无关的表格。
• 要是IE控件用着不顺手，也可以试试Selenium Basic配合Chrome/Firefox，但需要额外安装对应浏览器的驱动程序。

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