使用VBA從iFrame填充網頁上的下拉列表

Question

我有一個代碼，它打開一個網頁並單擊一個鏈接。然後從一個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