如何通过VBA与WebBrowser控件获取HTML元素的指定属性？

你可以通过以下两种方式提取目标属性，结合你的现有代码，完整实现如下：

方法一：使用getAttribute方法（兼容所有IE内核版本） #

Dim articleElem As Object
' 确保页面加载完成再执行，可放在WebBrowser的DocumentComplete事件中
If ebform!WebBrowser0.Document.ReadyState = "complete" Then
    For Each articleElem In ebform!WebBrowser0.Document.getElementsByTagName("article")
        ' 提取id属性（标准属性可直接访问）
        Dim elemId As String
        elemId = articleElem.ID
        
        ' 提取data-author自定义属性
        Dim dataAuthor As String
        dataAuthor = articleElem.getAttribute("data-author")
        
        ' 提取data-content自定义属性
        Dim dataContent As String
        dataContent = articleElem.getAttribute("data-content")
        
        ' 处理提取到的数据，示例：输出到立即窗口
        Debug.Print "ID: " & elemId & " | 作者: " & dataAuthor & " | 内容: " & dataContent
    Next articleElem
End If

方法二：使用dataset对象（仅支持IE11及以上内核） #

如果你的WebBrowser控件使用的是IE11及以上版本，也可以通过dataset直接访问data-*属性（自动去掉前缀data-）：

Dim articleElem As Object
If ebform!WebBrowser0.Document.ReadyState = "complete" Then
    For Each articleElem In ebform!WebBrowser0.Document.getElementsByTagName("article")
        Dim elemId As String: elemId = articleElem.ID
        Dim dataAuthor As String: dataAuthor = articleElem.dataset.author
        Dim dataContent As String: dataContent = articleElem.dataset.content
        
        Debug.Print "ID: " & elemId & " | 作者: " & dataAuthor & " | 内容: " & dataContent
    Next articleElem
End If

关键注意点 #

• 必须确保页面完全加载后再执行提取代码，否则会出现元素或属性获取失败的情况，建议将代码放在WebBrowser控件的DocumentComplete事件中。
• 检查属性名拼写是否完全匹配，比如data-author不能写成data_author或其他变体。

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