Question

感谢您在我发疯之前是否可以帮助我。

我从一些代码开始，我正在搜索必应（我在查找Google标头时遇到问题）

使用字符串搜索bing（我有将其分开的代码，并且我有一些公式来获取网址）查找所有h2标题内部文本？我很喜欢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标题元素”

VBA-Bing搜索引擎-h2和文本输入前10个结果

0 个答案: