VBA使用InternetExplorer抓取网页报438错误的优化解决方法

问题原因 #

你遇到的438报错通常由两个原因导致：

1. VBA调用IE DOM对象时，链式多层调用会出现隐式类型转换异常，建议拆分每一步的对象定义，不要一次性写完所有层级的属性调用
2. 部分旧版IE文档模式下，table元素直接调用getElementsByClassName方法存在兼容性问题

优化解决方案 #

方案1：拆分调用步骤（优先尝试） #

拆分每一步的对象获取逻辑，同时修正原代码中页面等待的逻辑错误：

Option Explicit

Sub 抓取表格内容()
    Dim IE As Object
    Dim targetTable As Object
    Dim classElements As Object
    
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True
    IE.navigate "https://example.com" '替换为实际站点地址
    
    '修正等待逻辑：Busy或者就绪状态不对时都持续等待
    Do While IE.Busy Or IE.readyState <> 4: DoEvents: Loop
    '可选：额外等待1秒，解决JS动态渲染内容延迟加载的问题
    Application.Wait Now + TimeSerial(0, 0, 1)
    
    '拆分每一步对象获取，方便定位问题
    Set targetTable = IE.document.getElementsByTagName("table")(10)
    Set classElements = targetTable.getElementsByClassName("listBranco")
    Range("B2").Value = classElements.Item(4).innerText
    
    '使用后关闭IE释放资源
    IE.Quit
    Set IE = Nothing
    Set targetTable = Nothing
    Set classElements = Nothing
End Sub

方案2：兼容旧IE的遍历方案（方案1报错时使用） #

如果仍然出现方法不支持的报错，改用遍历表格行匹配类名的方式，兼容所有IE版本：

'将方案1中拆分获取内容的部分替换为以下代码
Set targetTable = IE.document.getElementsByTagName("table")(10)
Dim tr As Object, matchCount As Integer
matchCount = 0
For Each tr In targetTable.Rows
    If tr.className = "listBranco" Then
        If matchCount = 4 Then '匹配到第5个类名为listBranco的行
            Range("B2").Value = tr.innerText
            Exit For
        End If
        matchCount = matchCount + 1
    End If
Next

注意事项 #

• 可在调试时给每一步对象赋值语句加断点，确认每一步的对象都成功获取，比如先打印targetTable.Rows.Length确认是否为目标表格
• 如果站点内容是完全动态渲染的，可适当延长等待时间，或者加判断逻辑确认目标元素已经加载完成再执行取值操作

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