HTML下拉列表所选选项的VBA 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>

*直接发行
*焊接
*不活跃

。是否选择了索引

下拉列表已禁用。那么，您希望如何获取所选项目

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

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

评论的后续行动

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

drp.Item(1).innertext

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

。选择索引

下拉列表已禁用。那么，您希望如何获取所选项目

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

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

评论的后续行动

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

drp.Item(1).innertext

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

我试图从已禁用的选定框选项复制显示的文本。如果盒子被禁用，这是不可能的吗？我的电子表格用于输入搜索和从结果页面复制数据。结果页面在禁用的下拉列表中显示一些信息。对于每个新搜索，结果将在此框中显示不同的选定选项。无法选择特定项目，因为每个结果都会改变项目编号。哦，好的。。更新我的帖子工作！我添加了一个等待页面加载，然后再尝试从结果页面中提取信息。在我再次收到那个消息之前，它循环运行了大约7行。我认为最后一个问题是我的宏工作速度快于ie的响应速度。我会让它慢一点。非常感谢。你又是一个救生员！很高兴它成功了：）我很惊讶，因为我已经测试了代码，它工作得很好……我试图从选中的禁用框复制显示的文本。如果盒子被禁用，这是不可能的吗？我的电子表格用于输入搜索和从结果页面复制数据。结果页面在禁用的下拉列表中显示一些信息。对于每个新搜索，结果将在此框中显示不同的选定选项。无法选择特定项目，因为每个结果都会改变项目编号。哦，好的。。更新我的帖子工作！我添加了一个等待页面加载，然后再尝试从结果页面中提取信息。在我再次收到那个消息之前，它循环运行了大约7行。我认为最后一个问题是我的宏工作速度快于ie的响应速度。我会让它慢一点。非常感谢。你又是一个救生员！很高兴它成功了：）我很惊讶，因为我已经测试了代码，它工作得很好。。。