如何使用VBA抓取HTML内容 提取指定class元素的文本值

错误原因 #

• getElementsByClassName 方法返回的是匹配指定类名的DOM元素集合，而非单个元素，集合本身没有innerText属性，直接输出只会返回对象类型标识。
• 若你尝试加innerText后运行报错，大概率是IE未完成页面加载，DOM结构未完全生成导致的。

修复后代码 #

' 强制等待页面完全加载
Do While ie.Busy Or ie.ReadyState <> 4
    DoEvents
Loop
Set doc = ie.Document

' 取第一个匹配的元素（索引从0开始），读取文本内容
Dim priceContent As String
priceContent = doc.getElementsByClassName("priceValue")(0).innerText
MsgBox priceContent

' 可选：若需要转换为可计算的数值，可做格式处理
Dim priceNum As Double
priceNum = CDbl(Replace(Replace(priceContent, "$", ""), ",", ""))

补充说明 #

• 若页面存在多个class="priceValue"的元素，调整索引(0)为对应元素的顺序序号即可，序号从0开始计数。
• 如果innerText读取为空，可尝试替换为textContent属性，部分场景下该属性兼容性更好。
• 若运行提示下标越界，先确认页面确实存在对应类名的元素，或延长页面等待时间避免DOM未加载完成就执行取值逻辑。

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