如何使用VBA结合XML方法提取指定class名内的span标签内容

你取不到值的核心原因有两个，一是请求方式不对拿不到动态渲染的数据，二是DOM操作语法存在错误。

1. 动态页面数据未加载 #

你用MSXML2.XMLHTTP发起请求只能拿到页面初始返回的静态HTML骨架，纳斯达克的股息相关数据是页面加载完成后，由JavaScript异步调用后端接口拉取再填充到DOM中的。你抓到的初始响应里，dividend-history__summary-item__value节点本身就是占位的空内容（也就是你看到的<span> &nbsp; </span>），不管你怎么调整索引、切换innerText/innerHTML都不可能拿到真实数值。

2. DOM操作语法错误 #

你触发438错误是写法不符合DOM规范：

• getElementsByClassName返回的是元素集合（HTMLCollection），不是单个DOM元素，不能直接在集合对象上调用.innerText、.getElementById这类仅单个元素支持的属性和方法。
• getElementById的作用是匹配元素的id属性，span是标签名不是id，要找span标签需要用.getElementsByTagName("span")。
• 你代码中把长class名拆成两行时没有加VBA续行符_，会导致字符串识别错误，class匹配直接失效。

方案1（推荐）：直接请求后端数据接口，无需解析HTML #

纳斯达克前端渲染数据时调用的是公开的结构化API，直接请求这个接口拿JSON数据稳定性最高，不需要等待JS渲染，也不会因为页面结构调整失效。

Dim REQUEST As Object
Dim TICKER As String, DIVYIELD As String, apiUrl As String, respText As String

TICKER = UCase(Range("B3"))
apiUrl = "https://api.nasdaq.com/api/quote/" & TICKER & "/dividends?assetclass=stocks"

Set REQUEST = CreateObject("MSXML2.XMLHTTP.6.0")
REQUEST.Open "GET", apiUrl, False
' 必须携带合法请求头，否则接口会拒绝访问
REQUEST.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/125.0.0.0 Safari/537.36"
REQUEST.setRequestHeader "Accept", "application/json, text/plain, */*"
REQUEST.send

respText = REQUEST.responseText
' 无JSON解析库时可直接用字符串截取，适配当前接口返回结构
DIVYIELD = Split(Split(respText, """dividendYield"":{""value"":""")(1), """")(0)
MsgBox DIVYIELD

如果需要解析更多字段，可导入VBA-JSON模块，结构化解析返回的JSON数据。

方案2：用支持JS渲染的工具抓取页面 #

如果一定要解析前端DOM，不能用XMLHTTP发请求，需要改用可以执行页面JS的自动化工具，等数据渲染完成后再读取节点值，比如Selenium Basic驱动Chrome/Edge：

' 需先安装Selenium Basic并配置对应Chrome版本的驱动
Dim driver As New ChromeDriver
Dim TICKER As String, DIVYIELD As String
TICKER = UCase(Range("B3"))

driver.Get "https://www.nasdaq.com/market-activity/stocks/" & TICKER & "/dividend-history"
driver.Wait 5000 ' 等待5秒让页面加载完成
' 用属性选择器精准定位股息率节点，避免靠索引匹配错位
DIVYIELD = driver.FindElementByCss("li[data-item='yield'] .dividend-history__summary-item__value").Text
MsgBox DIVYIELD
driver.Quit

如果是本地静态HTML、节点内已经有值的场景，不要靠class集合的索引取值，用querySelector按层级匹配更稳定：

Dim yieldNode As Object
Set yieldNode = HTML.querySelector("li[data-item='yield'] .dividend-history__summary-item__value")
If Not yieldNode Is Nothing Then
    DIVYIELD = yieldNode.innerText
End If

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