Question

我正在尝试从网站上复制回复，但我必须从下拉列表中选择其中一个选项，以便页面可以刷新。

到目前为止，我已经设法打开IE并单击下拉按钮，但我无法选择该选项，不知道为什么。请找到下面代码的示例。

C11

RGDS

Answer 1

它应该是这样的。根据您的需要更改相关部件。

Sub passValueToComboBox1()
   Dim ie  As Object
   Dim oHTML_Element As IHTMLElement

   Set ie = CreateObject("InternetExplorer.Application")
   ie.Visible = True
   ie.navigate "http://peterschleif.bplaced.net/excel/combobox/index.php"
   While ie.Busy Or ie.readyState <> 4: DoEvents: Wend

   Set oHTML_Element = ie.document.getElementsByName("selectedReportClass")(0)
   If Not oHTML_Element Is Nothing Then oHTML_Element.Value = "com.db.moap.report.FUBU7"

   For Each oHTML_Element In ie.document.getElementsByTagName("input")
      If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
   Next
End Sub

Excel VBA选择选项网站下拉列表并单击

1 个答案: