使用VBA从iFrame填充网页上的下拉列表

我有一个代码，打开一个网页，点击一个链接。 这然后加载数据从Iframe，我试图改变下拉列表上的值。

我正在尝试填充Year iFrame的Manufr下拉列表。 使用VBA，但我得到一个Object Variable or With Block Variable not set错误。 这可能与我试图编辑的数据是在Iframe中的事实有关吗？

这是我正在尝试使用的代码

 Sub Scrape2() Dim Browser As InternetExplorer Dim Doc As HTMLDocument Dim element As IHTMLElement Set Browser = New InternetExplorer Browser.Visible = True Browser.navigate "http://catalog.xxxxxxx.com" Do While Browser.Busy And Not Browser.readyState = READYSTATE_COMPLETE DoEvents Loop For Each l In Browser.document.getElementsByTagName("a") If l = "http://catalog.xxxxx.com/Catalog.asp?VehicleRef=2" Then l.Click Exit For End If Next Stop Set Doc = Browser.document Dim mainIframe Dim subIframe Set mainIframe = Doc.frames.Item(1).document Set subIframe = mainIframe.frames.Item(0).document Set element = mainIframe.getElementById("Manufacturer").selectedIndex = 1 element.FireEvent ("onchange") Set Doc = Nothing Set Browser = Nothing End Sub 

Answer 1

尝试：

 Dim d2 Set d2 = Doc.frames("Year").document Set element = d2.getElementById("Manufacturer").selectedIndex = 1 element.FireEvent ("onchange") 

编辑：试试这个

 Dim d2, evt Set d2 = Doc.frames("main").document.frames("year").document Set element = d2.getElementById("Manufacturer") If Not element Is nothing Then Debug.Print "Got drop-down" element.selectedIndex = 1 'either this... element.FireEvent ("onchange") 'or try this... Set evt = d2.createEvent("HTMLEvents") evt.initEvent "change", True, False element.dispatchEvent evt Else Debug.Print "couldn't get drop-down!" End if