VBA - 查找前面的 html 标签

在使用VBA编写网页爬虫时，经常会遇到需要查找前面的HTML标签的情况。这种需求通常出现在需要获取特定标签内的内容或者在特定标签之前插入新的内容的时候。下面将介绍如何使用VBA查找前面的HTML标签，并给出一个实际案例代码。

vba
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = False '设置为不显示IE窗口
ie.navigate "http://www.example.com" '替换为要加载的网页地址
While ie.ReadyState <> 4 Or ie.Busy
    DoEvents
Wend

vba
Dim targetTag As Object
Set targetTag = ie.document.getElementById("target") '替换为目标标签的id或其他属性
If Not targetTag Is Nothing Then
    Dim previousTag As Object
    Set previousTag = targetTag.previousSibling
    While Not previousTag Is Nothing
        If previousTag.nodeName = "TAGNAME" Then '替换为目标标签的标签名
            '找到目标标签之前的标签，可以在这里获取内容或插入新的内容
            Exit While
        End If
        Set previousTag = previousTag.previousSibling
    Wend
End If

vba
Dim targetTag As Object
Set targetTag = ie.document.getElementById("target") '替换为目标标签的id或其他属性
Dim previousTag As Object
Set previousTag = targetTag.previousSibling
While Not previousTag Is Nothing
    If previousTag.nodeName = "DIV" Then '替换为目标标签的标签名
        '找到目标标签之前的
标签
        Dim newElement As Object
        Set newElement = ie.document.createElement("p")
        newElement.innerText = "这是新插入的内容"
        targetTag.ParentNode.insertBefore newElement, targetTag
        Exit While
    End If
    Set previousTag = previousTag.previousSibling
Wend