HTML下拉列表的选定选项的VBA内部文本

Question

有没有办法为网页下拉列表选择所选选项的内部文本？我正在尝试这种方式，但不断收到错误 Object Required:

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

我试图从 HTML 源代码的以下部分中提取选定的选项内文：

<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?

下拉菜单已禁用。那么你想怎么获取选中的item呢？

如果你想要下拉菜单的内部文本，试试这个

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