VBA - 查找前面的 HTML 标签

vba
Sub FindPreviousTag()
    Dim html As String
    Dim tagName As String
    Dim searchTag As String
    Dim startIndex As Long
    Dim endIndex As Long
    ' 在这里替换为你的 HTML 代码
    html = "
Hello, World!
"
    ' 要查找的标签名称
    tagName = "h1"
    ' 构造要查找的标签，例如 "
"
    searchTag = "<" & tagName & ">"
    ' 查找标签的起始位置
    startIndex = InStr(1, html, searchTag, vbTextCompare)
    If startIndex > 0 Then
        ' 查找标签的结束位置
        endIndex = InStr(startIndex, html, "", vbTextCompare)
        If endIndex > 0 Then
            ' 提取标签之间的内容
            Dim tagContent As String
            tagContent = Mid(html, startIndex + Len(searchTag), endIndex - startIndex - Len(searchTag))
            ' 在 Immediate 窗口中输出标签的内容
            Debug.Print tagContent
        End If
    End If
End Sub

`，并使用`InStr`函数查找标签的起始位置。如果找到了起始位置，我们再使用`InStr`函数查找标签的结束位置。最后，我们使用`Mid`函数提取标签之间的内容，并将其输出到 Immediate 窗口。

使用 VBA 查找前面的 HTML 标签的步骤：

1. 定义要查找的 HTML 代码，并将其存储在一个字符串变量中。

2. 定义要查找的标签的名称，并构造要查找的标签。

3. 使用`InStr`函数查找标签的起始位置。

4. 如果找到了起始位置，使用`InStr`函数查找标签的结束位置。

5. 使用`Mid`函数提取标签之间的内容，并进行相应的处理。

案例说明：

假设我们有一个 HTML 页面，其中包含一个`

`标签，内容为`Hello, World!`。我们希望使用 VBA 查找这个标签的前面的标签。通过运行上述案例代码，我们可以得到`

`标签的内容`Hello, World!`。

这个例子只是一个简单的演示，你可以根据自己的需求修改代码来适应不同的情况。希望这个例子能够帮助你理解如何使用 VBA 在 HTML 页面中查找前面的标签。