Question

我正在尝试通过vba宏将数据从Web抓取到excel中。我在IE中打开了一组搜索结果（例如，来自Google Scholar），将第一个网页抓取到excel中后，我的宏单击了页面底部的“下一步”按钮，并在同一选项卡中打开了一个新页面。但是，我希望的是，当我的宏单击网页上的“下一个”时，它将在同一IE窗口的新标签页中打开该页面。任何帮助表示赞赏。预先感谢。

我单击“下一个”超链接的代码如下-

Set Alllinks = .document.getElementsByTagName("a")
For Each Hyperlink In Alllinks
If InStr(Hyperlink.innertext, "Next") > 0 Then
Hyperlink.Click CLng(2048)
Exit For
End If
Next

Answer 1

导航到a标签的href。这将导致所需的位置。如果您可以提供实际的html / url，我们也可以删除循环并缩短代码。

Set allLinks = .document.getElementsByTagName("a")
For Each Hyperlink In allLinks
    If InStr(Hyperlink.innertext, "Next") > 0 Then
        ie.navigate2 Hyperlink.getAttribute("href"), CLng(2048)
        Exit For
    End If
Next

无法在新标签页中打开超链接

1 个答案: