Excel Извлечение определенного текста с помощью getElements

Question

Новичок в программировании на VBA и надеялся получить помощь по небольшой программе, с которой у меня проблемы. То, что я хотел бы сделать для этого кода, это извлечь конкретные данные из элемента. Так что в этом примере я хотел бы извлечь номер телефона для каждого человека.

Я могу получить код для печати всех данных в элементе, но я хочу только извлечь указанную информацию, а не все в элементе. Любая помощь будет потрясающей.

    Set Elements = IE.Document.getElementById("member-items").getElementsByTagName("p")

    'Get information
    r = 0
    c = 0
    For Each Element In Elements
        If Element.innerText Like "phone" Then
           Sheet1.Range("A1").Offset(r, c).Value = Element.innerText
           Debug.Print Element.innerText
           r = r + 1
        End If
    Next Element

Answer 1

Хорошо, я понял это. Я не понял, что текст чувствителен к CAP. Так что вместо "телефона" я использовал "Телефон" с CAP "P", и код работал отлично. Роки ошибка. знак равно Надеюсь, что это поможет любым другим новичкам там. И вместо этого я использовал следующий код:

    For Each Element In Elements
        If InStr(Element.innerText, "Phone") Then
           Sheet1.Range("a1").Offset(r, c).Value = Element.innerText
           Debug.Print Element.innerText
           r = r + 1
        End If
    Next Element