VBA调用谷歌搜索返回0结果 无法获取第一条搜索链接问题求助

核心故障原因 #

• 逻辑不匹配：你的需求是提取第一条搜索结果，但原有代码逻辑是抓取谷歌搜索结果页的结果数量统计元素，完全不符合功能需求
• 元素ID失效：谷歌搜索结果页早在2020年就已经废弃了resultStats这个元素ID，所以判断逻辑永远会走Nothing分支，固定返回"0 Results"
• 关键词未转码：A列关键词包含空格、单引号等特殊字符，直接拼接URL会导致请求参数非法，无法返回正常搜索结果
• User-Agent过时：使用的Firefox 25版本UA距今已超过10年，谷歌反爬机制会直接拦截该请求，返回校验页面而非正常搜索结果
• 搜索结果定位逻辑缺失：原有代码完全没有编写提取第一条搜索结果的相关逻辑

修复后可运行代码 #

Sub GetGoogleFirstResult()
    Dim lastRow As Long, i As Long
    Dim XMLHTTP As Object, html As Object
    Dim keyword As String, url As String
    Dim resultNode As Object
    
    ' 获取A列最后一行
    lastRow = Range("A" & Rows.Count).End(xlUp).Row
    
    For i = 2 To lastRow
        keyword = Cells(i, 1).Value
        ' 对关键词做URL编码处理
        keyword = WorksheetFunction.EncodeURL(keyword)
        ' 拼接搜索URL
        url = "https://www.google.com/search?q=" & keyword & "&rnd=" & WorksheetFunction.RandBetween(1, 10000)
        
        ' 发起请求，更新为新版UA
        Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
        XMLHTTP.Open "GET", url, False
        XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/118.0.0.0 Safari/537.36"
        XMLHTTP.send
        
        ' 解析HTML
        Set html = CreateObject("htmlfile")
        html.body.innerHTML = XMLHTTP.responseText
        
        ' 定位第一条搜索结果：当前谷歌搜索结果第一条放在class为g的div下的a标签
        Set resultNode = html.querySelector(".g a")
        
        If resultNode Is Nothing Then
            Cells(i, 2).Value = "无有效搜索结果"
        Else
            ' 提取链接，需要去除谷歌前缀可自行加处理逻辑
            Cells(i, 2).Value = resultNode.getAttribute("href")
            ' 如果需要返回第一条结果的标题，替换上一行代码为下面这句即可
            ' Cells(i, 2).Value = resultNode.querySelector("h3").innerText
        End If
        
        ' 加2秒请求间隔避免触发反爬，可按需延长
        Application.Wait Now + TimeValue("00:00:02")
        DoEvents
    Next
    
    MsgBox "所有关键词处理完成"
End Sub

注意事项 #

• 谷歌页面结构可能会不定期更新，若后续再次失效，需要调整querySelector的定位规则适配新的页面结构
• 如果出现批量请求被拦截的情况，可以适当拉长请求间隔时长，或轮换使用不同的User-Agent参数

内容的提问来源于stack exchange，提问作者Rajput