VBA - поисковая система Bing - h2 и текст первых 10 результатов

Question

Благодарим вас за помощь, прежде чем я сойду с ума.

У меня есть какой-то код, в котором я выполняю поиск Bing (у меня возникли проблемы с поиском заголовков Google)

поиск с помощьюстрока (у меня есть код, который разбивает его на части, и у меня есть некоторые формулы для получения URL) Найти все h2 заголовки innertext?Мне бы очень понравились заголовки h2 и текст под ним.

Мне нужно получить все заголовки h2 на первой странице и текст под ним.

Я попытался вставить в свой код код для вставкиэто в списке, но я продолжаю получать «Элемент HTML-заголовка объекта».

Есть ли способ напечатать все результаты в столбцах и строка за строкой?

Просто нужны первые 10 результатов

Я не против, если результаты помещаются в ячейки.

Пожалуйста, оцените помощь.

Sub test()

Dim insured As String
Dim fullname As Variant
Dim i As Integer
Dim strAddress As String
Dim strAddressParts() As String
Dim numParts As Integer
Dim lastrow As Long
Dim ie As Object
Dim tabclass As Object
Dim li As Object


Sheets("Engine").Range("A1:A15").ClearContents
     strAddress = Sheets("Sheet1").Range("C4").Value


        strAddressParts = Split(strAddress, " ")
        numParts = UBound(strAddressParts) + 1


Sheets("Engine").Range("A1").Resize(numParts).Value = WorksheetFunction.Transpose(strAddressParts)




        insured = Sheets("Engine").Range("C1")


        Set ie = CreateObject("InternetExplorer.Application")
        my_url = insured
        ie.Visible = True
        ie.navigate my_url


   Do While ie.readyState = 4: DoEvents: Loop
        Do Until ie.readyState = 4: DoEvents: Loop

     Application.Wait (Now + TimeValue("0:00:02"))

     ''''''''''''''''''''''''''''''''''''''''''''''''

Set Allhyperlinks = ie.document.getElementsByTagName("h2")

      Sheet1.ListBox1.Clear

        For Each hyper_link In Allhyperlinks

        Sheet1.ListBox1.AddItem (hyper_link)

Next
End Sub

Нужны элементы h2, но я получаю объект HTML Heading Element "