使用VBA選擇HTML下拉框選項

Question

下拉列表代碼的圖片

我需要創建一個宏，從圖像的列表中選擇一個下拉選項。 我嘗試使用下面的代碼，其中NGR被定義為列表中具有值的字符串。

With ie.Document
Set dropOptions = .getElementsByTagName("select")
For Each o In dropOptions.Options
    If o.Value = NGR Then
        o.Selected = True
    Exit For
End If
Next o
End With

我也嘗試過：

ie.Document.all.Item("ddlGrowerRegs").Value = NGR

和

ie.Document.getelementbyid("_ct10_ContentPlaceHolder1_ddlGrowerRegs").Value = NGR

如果有人可以告訴我我要去哪里錯或者如何使用字符串NGR選擇一個下拉值，那將很棒。

謝謝

Answer 1

嘗試從下拉列表中進行選擇時，我遇到了類似的問題。 下拉菜單可能關聯了“更改”事件。 更改下拉值后，請嘗試此操作。

ie.document.all.Item("_ct10_ContentPlaceHolder1_dd1GrowerRegs").Value = NRG
Dim htmldoc as HTMLDocument

Set ieEvent = htmldoc.createEvent("HTMLEvents")

ieEvent.initEvent "change", False, True
ie.document.all.Item("_ct10_ContentPlaceHolder1_dd1GrowerRegs").dispatchEvent ieEvent

如果那不起作用，那么您可以這樣做。

Ie.document.getElementByTagName ("option")(0).setAttribute ("selected") = "selected"