VBA中的HTML元素
我正在build立一个networking刮板，根据我复制并粘贴到Box Office Mojosearch栏中的数据导航到以下网站： http : //www.boxofficemojo.com/search/? q=Rogue% 20One：％20A％20Star％20Wars％20Story
我现在需要做的是能够点击该链接进入Rogue One mojo网站，然后从中取消一堆数据。 我只是不知道如何与这个HTML元素进行交互。 我需要的链接有以下HTML代码：
盗贼一：星球大战的故事
有任何想法吗？？
我到目前为止的完整代码如下：
Dim objIE As New InternetExplorer Dim Doc As HTMLDocument With objIE .Visible = True .Navigate "http://www.boxofficemojo.com/" Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop Set Doc = objIE.Document End With Set oSearch = Doc.getElementsByClassName("nl_link")(3) Set oSearch = oSearch.getElementsByTagName("input")(0) oSearch.Value = Sheets("2016").Range("c3").Value Doc.forms(0).submit Do While objIE.Busy DoEvents Loop 那么，这是有点草率，因为我不太熟悉这个网站，因为我没有时间写你免费的广泛的代码，但这对我来说，所以我会让你生成它，如果需要的话：
Option Explicit Sub Test() Dim objIE As New InternetExplorer Dim Doc As HTMLDocument With objIE .Visible = True .Navigate "http://www.boxofficemojo.com/" Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop Set Doc = objIE.Document End With Dim oSearch As HTMLDivElement Set oSearch = Doc.getElementsByClassName("nl_link")(3) Set oSearch = oSearch.getElementsByTagName("input")(0) oSearch.Value = Sheets("2016").Range("c3").Value Doc.forms(0).submit Do While objIE.Busy Or objIE.readyState <> 4 DoEvents Loop Dim oRslt As Object, Element As Object, myLink As Object Set Doc = objIE.Document Set oRslt = Doc.getElementById("body").getElementsByTagName("a") For Each Element In oRslt If Element.outerHTML Like "*/movies/?id=*" Then 'Found ID # of movie Set myLink = Element Exit For End If Next Element objIE.Navigate myLink End Sub