VBA调用getElementsByClassName报"对象变量或With块变量未设置"错误

• 触发“对象变量或 With 块变量未设置”报错的核心场景，大多是调用DOM集合时直接取值未做前置判断：当oHtml.getElementsByClassName(log)返回的节点集合长度小于要取的索引值（代码里是索引0）时，直接取(0)位置的节点就会因为拿到空对象绑定失败报错，哪怕确认类名文本没变，也可能因为站点临时返回错误页、DOM解析时节点位置偏移导致集合为空。
• 代码存在多处未声明的隐式变量引用：dados、v、log、i均未做显式类型声明，VBA会自动分配Variant类型，一旦中途赋值异常就会连锁触发对象绑定错误。尤其循环部分的逻辑缺陷：遍历dados集合时，代码用dados(i).href取值，但全程没有给计数器i做递增赋值，i永远保持初始值0，后续如果集合内容变动，就会直接报对象不存在。
• 响应解析的匹配偏差：直接将.responseText赋值给DOM时，未对齐站点真实编码，容易出现乱码连带类名文本匹配失效，哪怕页面存在对应类名，DOM解析时也无法匹配到目标节点。

修正后可运行代码 #

Public Sub tester()
    ' 显式声明所有变量，避免隐式类型异常
    Dim oHtml As HTMLDocument
    Dim oElement As Object
    Dim dados As Object
    Dim v As Long
    Dim log As String
    Dim httpReq As Object
    
    v = 0
    log = "section-list"
    
    ' 初始化DOM与请求对象
    Set oHtml = New HTMLDocument
    Set httpReq = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    
    With httpReq
        .Open "GET", "https://www.cigarsofcuba.co.uk/acatalog/", False
        .setRequestHeader "Content-Type", "text/html; charset=utf-8"
        .send
        ' 先校验请求状态，避免无效响应写入DOM
        If .Status <> 200 Then
            Debug.Print "请求失败，状态码：" & .Status
            Exit Sub
        End If
        oHtml.body.innerHTML = .responseText
    End With
    
    ' 前置判断目标元素集合长度，避免空对象绑定报错
    If oHtml.getElementsByClassName(log).Length <= v Then
        Debug.Print "未找到类名为 " & log & " 的第" & v + 1 & "个节点"
        Exit Sub
    End If
    
    Set dados = oHtml.getElementsByClassName(log)(v).getElementsByTagName("a")
    
    ' 遍历集合时直接取当前遍历对象属性，去掉未定义计数器依赖
    For Each oElement In dados
        Debug.Print oElement.href
    Next oElement
End Sub

关键调整说明 #

• 把原循环逻辑里的dados(i).href替换为当前遍历元素oElement.href，彻底消除无意义的全局计数器依赖，从根源避免计数器未赋值导致的取值异常。
• 增加集合长度前置校验逻辑：确认类名对应的节点集合存在、且长度覆盖目标索引后，再做后续对象绑定，这是这类DOM抓取类报错的核心防护逻辑。
• 补充请求编码头设置，消除响应文本乱码导致的类名匹配失效问题。

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