Внутренний текст VBA для выбранного варианта для выпадающего списка HTML

Question

Есть ли способ выбрать внутренний текст выбранной опции для выпадающего списка веб-страниц? Я пытался этим путем, но продолжал получать объект ошибки Требуется:

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

Im пытается вытащить выбранные опции 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?

The drop down отключен. Итак, как вы хотите получить выбранный элемент?

Если вы хотите, внутренний текст ниспадающее меню, попробуйте этот

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

Else, если вы хотите InnerText конкретного пункта сказать, пункт 1, а затем использовать этот

drp.Item(1).innertext 

Followup ОТ КОММЕНТАРИЕВ

Если вы хотите получить то, что отображается в настоящее время в отключенном выпадающем меню, используйте этот параметр

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