VBA网页抓取：无法识别并获取商品缺货状态问题求助

可能的原因及对应修复方案 #

1. 多类名匹配兼容性问题 #

getElementsByClassName在部分IE内核的HTML对象中，对包含空格的多类名（空格代表多个独立类）支持不佳，无法直接匹配。改用支持CSS选择器的querySelector可以准确定位目标元素：

Dim stockElem As Object
Set stockElem = post.querySelector(".stock.out-of-stock")
If Not stockElem Is Nothing Then
    Cells(counter, 6) = stockElem.innerText
Else
    Cells(counter, 6) = "In stock" ' 可选：无缺货标签时标记为有货
End If

2. 元素嵌套在iframe内 #

如果缺货状态元素位于页面的iframe中，直接通过post对象无法访问，需先切换到对应的iframe：

Dim iframeDoc As Object
' 根据实际iframe的索引、id或name定位，此处以索引0为例
Set iframeDoc = post.frames(0).document

Dim stockElem As Object
Set stockElem = iframeDoc.querySelector(".stock.out-of-stock")
If Not stockElem Is Nothing Then
    Cells(counter, 6) = stockElem.innerText
End If

3. 页面未完全加载 #

若库存状态是通过JavaScript动态渲染的，需等待页面加载完成后再执行获取操作：

' 等待页面加载就绪
Do While post.Busy Or post.ReadyState <> 4
    DoEvents
Loop

' 执行库存状态获取
Dim stockElem As Object
Set stockElem = post.querySelector(".stock.out-of-stock")
If Not stockElem Is Nothing Then
    Cells(counter, 6) = stockElem.innerText
End If

4. 验证post对象的正确性 #

确认post是包含目标<p>标签的HTML对象（如页面document或父容器元素），可通过输出innerHTML检查：

' 输出post对象的内容，验证是否包含目标元素
Debug.Print post.innerHTML

Dim stockElem As Object
Set stockElem = post.querySelector(".stock.out-of-stock")
If Not stockElem Is Nothing Then
    Cells(counter, 6) = stockElem.innerText
End If

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