如何用VBA计算tbody下所有tr数量？提取表格行数遇报错求助

嘿，别慌！你遇到的Method 'Document' of object 'IWebBrowser2' failed错误，主要有两个原因：一是页面还没加载完你就急着访问document了，二是GetElementsByTagName("tbody")返回的是元素集合，不能直接用i.Rows.Length操作。

我给你改好了代码，每一步都加了注释，你直接替换使用就行：

Sub Ex()
    Dim ie As Object
    Dim tbodyCollection As Object
    Dim targetTbody As Object
    Dim rowCount As Integer
    
    ' 创建IE实例
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    
    ' 跳转到目标URL，记得把这里的"URL"换成你实际要访问的地址
    ie.Navigate "URL"
    
    ' 重中之重：等页面彻底加载完成再继续！
    ' ReadyState=4代表页面加载完成，Busy用于判断IE是否还在处理请求
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents ' 让程序等待的同时，不会卡死Excel
    Loop
    
    ' 获取页面中所有的tbody标签，这是一个元素集合（页面可能有多个tbody）
    Set tbodyCollection = ie.document.GetElementsByTagName("tbody")
    
    ' 先确认是否找到tbody元素
    If tbodyCollection.Length > 0 Then
        ' 取第一个tbody元素（如果页面有多个tbody，可调整索引为(1)、(2)等对应目标元素）
        Set targetTbody = tbodyCollection(0)
        ' 获取该tbody下的总行数
        rowCount = targetTbody.Rows.Length
        ' 弹出结果提示
        MsgBox "表格的行数是：" & rowCount
    Else
        MsgBox "页面里找不到tbody标签哦，检查下页面结构是不是有变化？"
    End If
    
    ' 用完IE后关闭，节省系统资源
    ie.Quit
    Set ie = Nothing ' 释放对象，避免内存泄漏
End Sub

原代码出错的核心原因： #

1. 缺少页面加载等待：IE导航后需要时间加载页面资源，直接访问ie.document会因为页面未就绪报错，添加等待循环就能解决这个问题。
2. 未处理元素集合：GetElementsByTagName返回的是多个元素的集合，必须通过索引（比如(0)代表第一个）定位到具体的tbody元素，才能读取它的Rows属性。

要是你不确定页面里的目标tbody是第几个，可以打开浏览器按F12进入开发者工具，在Elements面板里找到对应tbody的位置确认索引哦～

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