html - 在 HTMLtag Innertext 中找到关键字的 VBA “If...Then”

Question

是否可以编写一个 If...Then 命令来引用 HTML 内部文本的一部分中的关键字/短语。

例如，我希望运行一个“If...Then”命令，该命令将找到一个包含部分内部文本的标签，包括短语“Records Found.”。如果标签存在，则只有一个标签会在其内部文本中包含此短语。如果此标签存在，我希望工作表中的单元格显示“找到多个记录”

    Dim ErrLi As Object
    Dim ErrObj As Object
    Dim x As Integer

    Set ErrLi = IE.Document.GetElementById("DivCenterTopArea").GetElementsByTagName("li")

    If Not ErrLi Is Nothing Then
      For x = 1 To ErrLi.Length - 1
        If ErrObj.innertext = & "records found." Then
          Range("Q" & (ActiveCell.Row)) = "Multiple Records Found"
        End If
      Next
    End If

Answer 1

使用 instr 函数

If instr(1, ErrObj.innertext, "records found.") > 0 Then
      Range("Q" & (ActiveCell.Row)) = "Multiple Records Found"
End If