返回前十个谷歌结果超链接

Question

我希望修改 Santosh 提供的代码，以便我可以返回特定 Google 搜索的前十个链接，而不仅仅是前一个结果。我需要上传超过 1000 个搜索查询并将结果与​​预期结果进行映射，但我关心的不仅仅是排名第一的结果，我还想看看它是否返回前十名。我查看了 html 和 VBA，但我无法弄清楚。

Using VBA in Excel to Google Search in IE and return the hyperlink of the first result

Answer 1

未经测试，这里的这一行似乎正在拉取集合中的一个元素：

    Set link = objH3.getelementsbytagname("a")(0)

因此，您将“Link”对象设置为 objH3 集合中具有“a”标签的第一个对象（对象 0）。

您想要做的是遍历该集合。例如：

    Set links = objH3.getelementsbytagname("a")
    For i = 0 To 9
      set link = links(i)
      'do stuff
    next

编辑：

循环应该在更高级别的对象上：

    For i = 0 To 5 
        Set objH3 = objResultDiv.getelementsbytagname("H3")(i) 
        Set link = objH3.getelementsbytagname("a")(0) 
        ' Do Stuff 
    Next I

感谢理查德的更新。