返回十大Google结果超链接

Question

我希望调整Santosh提供的代码，以便我可以返回特定Google搜索的前十个链接，而不仅仅是前一个结果。我需要上传＆gt; 1000个搜索查询并根据预期结果映射结果，但我关心的不仅仅是＃1结果，我想看看它是否在前十名内返回。我查看了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

感谢Richard，感谢您的更新。