从Redfin网页提取数据时遇'object required'错误求助

问题说明 #

编写VBA代码提取指定Redfin网页的房产数据时，执行以下代码行出现'object required'错误：

sqFt = html.getElementsByClassName("statsLabel")(0).NextSibling.getElementsByClassName("statsValue")(0).innerText

错误原因 #

原代码尝试通过statsLabel的兄弟节点定位面积值，但网页DOM结构中，statsLabel的NextSibling可能是空白文本节点而非目标元素节点，导致后续调用getElementsByClassName时无法找到有效对象，触发报错。

修复方案 #

直接通过statsValue集合的索引定位面积数据（该网页中面积值对应第三个statsValue元素），同时增加元素存在性检查，提升代码稳定性。

修正后的完整代码 #

Sub ExtractingRedfin()
    Dim url As String
    Dim ie As Object
    Dim html As Object
    Dim Lastrow As Long
    Dim ws As Worksheet
    Dim statsElements As Object
    Dim priceBlock As Object
    
    Lastrow = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row
    url = Sheet1.Cells(Lastrow, 1).Value
    
    ' 创建IE实例
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = False
    ie.navigate url
    
    ' 等待页面加载完成（包含动态内容）
    Do While ie.readyState <> 4 Or ie.Busy
        DoEvents
    Loop
    ' 额外等待1秒确保动态元素加载
    Application.Wait Now + TimeValue("00:00:01")
    
    Set html = ie.document
    Set ws = ThisWorkbook.Sheets("Sheet3")
    
    ' 初始化变量为空白
    Dim beds As String, baths As String, sqFt As String
    Dim price As String, est As String, address As String, cityStateZip As String
    
    ' 获取statsValue集合，避免多次调用DOM
    Set statsElements = html.getElementsByClassName("statsValue")
    If statsElements.Count >= 3 Then
        beds = statsElements(0).innerText
        baths = statsElements(1).innerText
        sqFt = statsElements(2).innerText
    End If
    
    ' 获取价格相关信息
    Set priceBlock = html.getElementsByClassName("info-block price")
    If priceBlock.Count > 0 Then
        If priceBlock(0).getElementsByClassName("statsValue").Count > 0 Then
            price = priceBlock(0).getElementsByClassName("statsValue")(0).innerText
        End If
        If priceBlock(0).getElementsByClassName("statsLabel").Count > 0 Then
            est = priceBlock(0).getElementsByClassName("statsLabel")(0).innerText
        End If
    End If
    
    ' 获取地址信息
    If html.getElementsByClassName("street-address").Count > 0 Then
        address = html.getElementsByClassName("street-address")(0).innerText
    End If
    If html.getElementsByClassName("citystatezip").Count > 0 Then
        cityStateZip = html.getElementsByClassName("citystatezip")(0).innerText
    End If
    
    ' 写入数据到Sheet3
    ws.Cells(2, 1).Value = beds
    ws.Cells(2, 2).Value = baths
    ws.Cells(2, 3).Value = sqFt
    ws.Cells(2, 4).Value = price
    ws.Cells(2, 5).Value = est
    ws.Cells(2, 6).Value = address
    ws.Cells(2, 7).Value = cityStateZip
    
    ie.Quit
    ' 释放对象资源
    Set ie = Nothing
    Set html = Nothing
    Set statsElements = Nothing
    Set priceBlock = Nothing
End Sub

关键修改点 #

• 替换面积定位逻辑：直接使用statsElements(2)获取面积值，避开原代码中依赖兄弟节点的不稳定定位方式
• 增加元素存在性检查：每次获取DOM元素前先判断集合数量，避免因元素不存在导致的对象错误
• 优化加载等待：添加额外1秒等待，确保页面动态渲染完成
• 释放对象资源：代码结尾释放所有对象变量，避免内存泄漏

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