VBA“If … Then”在HTMLtag Innertext中find关键字

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

例如，我正在运行一个“If … Then”命令，该命令将使用包括短语“Records Found”在内的部分内联标签查找标签。 如果标签存在，则只有一个标签在其无限文字中包含这个短语。 如果这个标签存在，我想我的工作表中的一个单元格显示“find多个logging”

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