Excel VBA网页抓取遇运行时错误424（对象必需）求助

第一步：修正代码中的基础错误 #

你的代码存在两个直接触发错误的低级问题：

1. 变量名拼写不一致：定义的HTML文档对象是htlm，但后续调用时写成了HTML，VBA会将HTML判定为未定义对象，触发“对象必需”错误。
2. 未加载网页内容到HTML对象：仅将响应内容转成字符串response，但未把该字符串赋值给htlm的body，导致htlm对象为空，无法找到任何元素。

修正后的基础代码：

Sub Get_Web_Data()
    Dim request As Object
    Dim response As String
    Dim htlm As New HTMLDocument ' 统一变量名
    Dim website As String
    Dim price As Variant

    website = "https://www.taptools.io/portfolio"

    Set request = CreateObject("MSXML2.XMLHTTP")
    request.Open "GET", website, False
    request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
    request.send

    ' 新增：把响应内容加载到HTML对象中
    response = StrConv(request.responseBody, vbUnicode)
    htlm.body.innerHTML = response

    ' 修正变量名：用htlm代替HTML
    price = htlm.getElementsByClassName("portfolio__table__content__right-align portfolio__table__content__stack portfolio__table__content__price")(0).innerText

    MsgBox price
End Sub

第二步：处理动态加载内容的问题 #

如果修正后仍报错，大概率是因为目标网站的价格数据是JavaScript动态渲染的（比如基于React、Vue框架），MSXML2.XMLHTTP只能获取静态HTML源码，无法获取JS执行后生成的动态内容。此时需要用浏览器控件模拟完整页面加载：

方案：使用IE浏览器控件（需启用引用） #

1. 打开VBA编辑器，点击「工具」→「引用」，勾选「Microsoft Internet Controls」。
2. 替换为以下代码：

Sub Get_Dynamic_Web_Data()
    Dim ie As New InternetExplorer
    Dim htlm As HTMLDocument
    Dim priceElement As Object
    Dim price As Variant

    ' 打开浏览器访问目标网站
    ie.Visible = True ' 设为False可后台运行
    ie.Navigate "https://www.taptools.io/portfolio"

    ' 等待页面完全加载（包括JS渲染）
    Do While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop

    ' 获取加载完成后的HTML文档
    Set htlm = ie.Document

    ' 查找目标价格元素
    Set priceElement = htlm.getElementsByClassName("portfolio__table__content__right-align portfolio__table__content__stack portfolio__table__content__price")(0)
    
    ' 判断元素是否存在并输出结果
    If Not priceElement Is Nothing Then
        price = priceElement.innerText
        MsgBox price
    Else
        MsgBox "未找到目标价格元素"
    End If

    ' 关闭浏览器并释放对象
    ie.Quit
    Set ie = Nothing
End Sub

额外提示 #

• 确认目标元素类名无误：在浏览器按F12打开开发者工具，找到价格元素后右键→「复制」→「复制类名」，确保代码中的类名和实际完全匹配。
• 若不想使用IE，也可尝试Selenium VBA驱动Chrome/Firefox，但需额外下载对应浏览器驱动文件，配置相对复杂。

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