所选选项的VBA innertext为HTML下拉列表

有没有一种方法可以select网页下拉列表中所选选项的内联网？ 我正在尝试这种方式，但不断收到错误对象要求：

Dim drp As Object Set drp = IE.Document.getElementById("ctl05_Dropdownlist1").selectedindex Range("J" & (ActiveCell.Row)) = drp.innertext 

我试图从HTML源代码的以下部分拉选定的选项innertext：

 <select name="ctl05$Dropdownlist1" id="ctl05_Dropdownlist1" disabled="disabled" class="input"> <option value=""></option> <option selected="selected" value="1">*DIRECT ISSUE</option> <option value="2">*DIWELD</option> <option value="3">*INACTIVE</option> 

Answer 1

.selectedindex ？

下拉菜单被禁用。 那么你如何获得select的项目？

如果你想要下拉的内部文字，试试这个

 Set drp = IE.Document.getElementById("ctl05_Dropdownlist1") Debug.Print drp.innertext 

否则，如果你想要一个特定的项目的密文，项目1，然后使用这个

 drp.Item(1).innertext 

跟随评论

如果你想检索当前在禁用下拉菜单中显示的内容，那就使用这个

 Set drp = IE.Document.getElementById("ctl05_Dropdownlist1") Range("J" & (ActiveCell.Row)) = drp.Item(drp.selectedIndex).innerText