Excel VBA使用getElementById抓取网页报91/424对象错误咨询

你的代码报两个错的原因非常明确：

• getElementById 返回值是单个DOM对象，不是可索引的元素集合，你在后面加(0)属于非法调用，直接触发错误424（需要对象）。
• 你没有做对象存在性校验就直接链式取.innerText：一旦请求被反爬拦截、或者页面动态加载导致目标ID不在返回的HTML文本里，就会拿到空对象，调用空对象的属性直接触发错误91（对象变量未设置）。

另外你贴的目标HTML结构里，ID为propertyDetailsSectionContentSubCon_BuiltIn的外层div本身包含"Built in"标签文本和年份值两部分，直接取这个元素的innerText会拿到冗余内容，需要定位到它内部存值的子div才能拿到纯年份。

运行前请先在VBA编辑器的「工具-引用」里勾选Microsoft HTML Object Library，避免HTMLDocument对象运行异常。

Sub GetYearBuilt()
    Dim request As Object
    Dim response As String
    Dim html As New HTMLDocument
    Dim website As String
    Dim yearBuiltEle As Object, yearValueEle As Object
    Dim YearBuilt As String
    
    ' 读取A1存储的房源链接
    website = Trim(Range("A1").Value)
    If website = "" Then
        Range("C1") = "未读取到有效链接"
        Exit Sub
    End If
    
    ' 发起请求
    Set request = CreateObject("MSXML2.XMLHTTP")
    request.Open "GET", website, False
    ' 补全浏览器标识请求头，降低被反爬拦截的概率
    request.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36"
    request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
    request.send
    
    ' 校验请求是否正常返回
    If request.Status <> 200 Then
        Range("C1") = "请求失败，状态码：" & request.Status
        Exit Sub
    End If
    
    response = StrConv(request.responseBody, vbUnicode)
    html.body.innerHTML = response
    
    ' 先定位建成年份的专属外层容器
    Set yearBuiltEle = html.getElementById("propertyDetailsSectionContentSubCon_BuiltIn")
    ' 先判断元素是否存在，从根源避免空对象报错
    If Not yearBuiltEle Is Nothing Then
        ' 仅在当前容器内查找值节点，不会匹配到页面其他位置的同名类元素
        Set yearValueEle = yearBuiltEle.getElementsByClassName("propertyDetailsSectionContentValue")(0)
        If Not yearValueEle Is Nothing Then
            YearBuilt = Trim(yearValueEle.innerText)
            Range("C1") = YearBuilt
        Else
            Range("C1") = "未找到建成年份值节点"
        End If
    Else
        Range("C1") = "未找到建成年份模块，可能触发反爬或页面结构变更"
    End If
    
    ' 释放占用的对象
    Set request = Nothing
    Set html = Nothing
    Set yearBuiltEle = Nothing
    Set yearValueEle = Nothing
End Sub

• 修正了getElementById的错误用法：去掉多余的(0)索引，符合该方法返回单个元素的逻辑。
• 增加全链路空值校验：每一步获取对象后都先判断是否有效，彻底解决错误91、424。
• 缩小元素查找范围：先通过唯一ID定位到建成年份的专属父容器，再在容器内部查找类名为propertyDetailsSectionContentValue的子节点，既解决了全局类名重复无法精准匹配的问题，也不用依赖固定索引适配不同页面的结构差异。
• 补全请求头的User-Agent字段：原请求没有浏览器标识，极容易被realtor.com的反爬机制拦截返回验证页，导致找不到目标元素。
• 增加空链接、请求状态的异常校验，运行出错时会在C1返回明确提示，不会直接抛异常中断程序。

补充：如果运行后仍提示找不到模块，可尝试把MSXML2.XMLHTTP替换为MSXML2.ServerXMLHTTP.6.0，同时控制请求频率，不要短时间内高频抓取避免被IP封禁。

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