使用VBA抓取迈阿密Craigslist车辆信息：无法读取描述与价格

原代码存在分页参数错误、元素定位逻辑混乱、超链接地址错误等问题，导致无法正确提取车辆描述与价格。以下是修正后的代码，可实现将迈阿密Craigslist车辆板块前4页的车辆描述写入A列、价格写入B列，并为描述添加对应链接：

Sub CraigslistCarScraper()
    Dim IE As Object
    Dim html As HTMLDocument
    Dim URL As String
    Dim page As Long, counter As Long
    Dim resultRows As Object, row As Object
    Dim titleLink As Object, priceElem As Object
    Dim StartCell As Range
    
    ' 初始化起始单元格
    Set StartCell = Range("A1")
    URL = "https://miami.craigslist.org/search/cta"
    
    ' 创建IE对象
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True ' 如需隐藏IE改为False
    Application.ScreenUpdating = False ' 关闭屏幕刷新提升效率
    
    counter = 0
    ' 遍历前4页（每页120条，分页参数?s=0,120,240,360）
    For page = 0 To 3 Step 1
        IE.navigate URL & "?s=" & page * 120
        
        ' 等待页面完全加载
        Do Until IE.readyState = 4 And Not IE.Busy
            DoEvents
        Loop
        
        Set html = IE.document
        ' 获取所有车辆条目行
        Set resultRows = html.getElementsByClassName("result-row")
        
        ' 遍历每条车辆信息
        For Each row In resultRows
            ' 获取标题链接（包含描述和跳转地址）
            Set titleLink = row.getElementsByClassName("result-heading")(0).getElementsByTagName("a")(0)
            ' 获取价格元素
            Set priceElem = row.getElementsByClassName("price")(0)
            
            ' 写入A列：添加超链接，显示描述文本
            StartCell.Offset(counter, 0).Hyperlinks.Add _
                Anchor:=StartCell.Offset(counter, 0), _
                Address:=titleLink.href, _
                TextToDisplay:=titleLink.innerText
            
            ' 写入B列：价格（判断元素是否存在，避免空值报错）
            If Not priceElem Is Nothing Then
                StartCell.Offset(counter, 1).Value = Replace(priceElem.innerText, "$", "")
            Else
                StartCell.Offset(counter, 1).Value = ""
            End If
            
            counter = counter + 1
        Next row
    Next page
    
    ' 清理对象
    IE.Quit
    Set IE = Nothing
    Set html = Nothing
    
    ' 设置B列为货币格式
    Columns("B:B").NumberFormat = "$#,##0.00"
    Application.ScreenUpdating = True
End Sub

关键修改说明： #

• 分页参数修正：Craigslist分页使用?s=页码*120（每页默认120条数据），替换原代码错误的锚点参数，确保加载不同页面。
• 元素定位简化：直接遍历result-row类的条目行，每个条目包含完整的标题、链接和价格，避免原代码中嵌套遍历的逻辑混乱。
• 超链接地址修复：正确获取标题a标签的href属性作为跳转地址，原代码中错误地将无效对象作为地址。
• 价格提取优化：通过price类直接定位价格元素，同时增加空值判断，避免因部分条目无价格导致报错。
• 冗余变量清理：删除原代码中未使用的变量（如k、q、ss等），简化代码结构。
• 性能优化：关闭屏幕刷新Application.ScreenUpdating = False，提升爬取效率。

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