VBA «Если… Тогда» для ключевого слова, найденного в HTMLtag Innertext

0

Можно ли написать команду 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
Теги:
excel-vba
excel
innertext

1 ответ

3
Лучший ответ

Использовать функцию instr

If instr(1, ErrObj.innertext, "records found.") > 0 Then
      Range("Q" & (ActiveCell.Row)) = "Multiple Records Found"
End If
  • 0
    Это билет, спасибо!

Ещё вопросы

Сообщество Overcoder
Наверх
Меню