Question

有没有办法为网页下拉列表选择所选选项的innertext？我正在尝试这种方式，但不断收到错误对象：

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？

下拉列表已停用。那么您想如何获得所选项目？

如果您想要下拉列表的内部文本，请尝试此

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

否则，如果您想要特定项目的innertext，请说明第1项，然后使用此

drp.Item(1).innertext

从评论中跟进

如果要检索禁用下拉列表中当前显示的内容，请使用此

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

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

1 个答案: