Autotrader VBA爬取产品href遇阻，求助正确类名获取方法

代码运行失败完全来自两个可直接修正的细节问题：

• 类名匹配存在笔误：判断分支中使用的类名是带尾随空格的product-card ，但DOM中产品卡片的实际类名是product-card js-standout-listing，不存在带尾空格的独立类名，getElementsByClassName会返回空集合，直接触发下标越界错误，后续取href的逻辑根本不会执行。
• 空值判断逻辑不符合VBA DOM的运行规则：VBA环境下getElementsByClassName返回的元素集合如果没有匹配项，直接访问集合的第0项会抛出运行时错误，不会返回Nothing，你原代码里xxx(0) Is Nothing的判断完全无效。
• 你找的listing-fpa-link类名本身是完全准确的，不存在定位错误：对应目标a标签就在产品卡片根节点的直接子级，和内容区div平级，是覆盖在整个卡片上的透明跳转链接，不需要替换其他类名。

' 获取所有产品卡片元素集合
Dim productCards As IHTMLElementCollection
Set productCards = element.getElementsByClassName("product-card")

' 先校验集合非空，避免下标越界
If productCards.Length = 0 Then
    wsSheet.Cells(sht.Cells(sht.Rows.Count, "A").End(xlUp).Row + 1, "A").Value = "-"
Else
    ' 在当前卡片范围内找目标详情链接
    Dim detailLinks As IHTMLElementCollection
    Set detailLinks = productCards(0).getElementsByClassName("listing-fpa-link")
    
    ' 校验链接元素存在
    If detailLinks.Length = 0 Then
        wsSheet.Cells(sht.Cells(sht.Rows.Count, "A").End(xlUp).Row + 1, "A").Value = "-"
    Else
        ' 取href属性，用getAttribute兼容性优于直接点属性
        HtmlText = detailLinks(0).getAttribute("href")
        wsSheet.Cells(sht.Cells(sht.Rows.Count, "A").End(xlUp).Row + 1, "A").Value = HtmlText
    End If
End If

• 取到的href是站点相对路径，需要完整跳转地址时，直接在前面拼接站点域名即可
• 如果存在动态加载导致的元素未就绪问题，在取元素前加1-2秒的等待，等DOM渲染完成再执行查找逻辑

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