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"

使用VBA选择HTML下拉框选项

1 个答案: