Question

我想使用VBA打开Google搜索; IE浏览器。一旦打开，我想点击“Google评论”链接打开“Google评论”顶级页面。一旦打开，我想只滚动“Google评论”顶级页面。我只需要滚动一次。

正如您在我的代码片段中所看到的，它将执行我希望的所有操作，但不会将焦点放在顶级页面上。当我滚动时，它会滚动背景。这将打开IE谷歌搜索纽约州布法罗的Anchor Bar。单击评论链接。然后滚动背景。

我的问题是如何滚动“Google评论”页面，而不是搜索结果的背景。

Public Sub main()

 On Error Resume Next

 Dim IE As Object
 Set IE = CreateObject("InternetExplorer.Application")
 IE.Navigate "https://www.google.com/search?source=hp&ei=VN-FWqLyEongzgLHx574Cw&q=anchor+bar+buffalo&oq=anchor+bar+&gs_l=psy-ab.1.0.0l10.1937.3478.0.5460.11.10.0.1.1.0.152.810.7j2.9.0....0...1c.1.64.psy-ab..1.10.819...0i131k1j0i131i46k1j46i131k1.0.49jjww0NNUE"
 IE.Visible = True

 waitFor 6
 Debug.Print "Bring up Reviews"
 IE.document.querySelector("span.fl > span > a > span ").Click
 waitFor 6


 Debug.Print "Scroll Child Window Here"

 IE.document.parentwindow.Scroll 0, 99999

 waitFor 2

 Set Reviews = IE.document.getElementsByClassName("_ucl")
 For Each r In Reviews
     Debug.Print "review: " & r.innerHTML
 Next

 Debug.Print "The End"

End Sub

Sub waitFor(i As Long)
   Application.Wait (Now + TimeValue("0:00:0" & i))
End Sub

VBA - 滚动Google评论

0 个答案: