vba - 通过UDF获取Google搜索第一个结果

Question

这个问题已经有答案了:

Using VBA in Excel to Google Search in IE and return the hyperlink of the first result (2 个回答)

已关闭 8 年前。

Santosh 对以下 link 有一个很棒的答案(vba 代码)在 Google 中搜索文本并在 Excel 中捕获第一个 URL 结果，无论如何这可以用作/转换为 UDF，其中公式可以是 =Googlefirsturl(A1)与 A1具有需要搜索的文本。

编辑:第2列数据(名称)可以忽略

Answer 1

如果你真的需要它作为一个函数，那么

Option Explicit

Function GoogleFirstUrl(search As String) As String

    Dim i As Long
    Dim url As String, lastRow As Long
    Dim XMLHTTP As Object, html As Object, objResultDiv As Object, objH3 As Object, link As Object

    lastRow = Range("A" & Rows.Count).End(xlUp).Row

    Dim cookie As String
    Dim result_cookie As String

    DoEvents
    url = "https://www.google.co.in/search?q=" & search & "&rnd=" & WorksheetFunction.RandBetween(1, 10000)

    Set XMLHTTP = CreateObject("MSXML2.serverXMLHTTP")
    XMLHTTP.Open "GET", url, False
    XMLHTTP.setRequestHeader "Content-Type", "text/xml"
    XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
    XMLHTTP.send

    Set html = CreateObject("htmlfile")
    html.body.innerHTML = XMLHTTP.ResponseText
    Set objResultDiv = html.getelementbyid("rso")
    Set objH3 = objResultDiv.getelementsbytagname("H3")(0)
    Set link = objH3.getelementsbytagname("a")(0)

    GoogleFirstUrl = link.href

End Function

注意:您无法使用 UDF 修改其他单元格，因此一次只能将一项内容返回到用于输入公式的单元格中 - 我选择了您命名的 URL你的函数