VBA网页抓取：获取下拉框选中项InnerText遇错误438求助

错误原因 #

你用getElementsByName获取到的是元素集合（IHTMLElementCollection），这个集合对象本身没有SelectedIndex属性——SelectedIndex是单个<select>元素的专属属性，直接在集合上调用自然会触发438错误。

修正方案 #

方案1：修正原代码逻辑，先取出单个select元素

先从集合中提取目标<select>元素，再访问它的选中项：

Dim ntCollection As IHTMLElementCollection
Dim ntSelect As HTMLSelectElement

Set ntCollection = htmlDoc.getElementsByName("collectionInfoBox:generalInformationBox:agencyNotifiedDate:timeSelector")
' 先判断集合是否存在有效元素
If ntCollection.Length > 0 Then
    Set ntSelect = ntCollection(0) ' 取出集合中的第一个（也是唯一的）select元素
    ' 通过SelectedIndex获取选中选项的文本
    ws.Cells(1, 7).Value = ntSelect.Options(ntSelect.SelectedIndex).innerText
End If

方案2：用querySelector直接定位select元素（更简洁）

利用CSS选择器直接定位目标<select>，然后获取选中项：

Dim ntSelect As HTMLSelectElement

Set ntSelect = htmlDoc.querySelector("select[name='collectionInfoBox:generalInformationBox:agencyNotifiedDate:timeSelector']")
If Not ntSelect Is Nothing Then
    ' 获取选中选项的文本（AM/PM）
    ws.Cells(1, 7).Value = ntSelect.SelectedOptions(0).innerText
    ' 如果需要获取选项的value值（0/1），可以用：
    ' ws.Cells(1, 7).Value = ntSelect.Value
End If

注意事项 #

• 确保你的VBA项目已经引用了Microsoft HTML Object Library（通过「工具→引用」勾选），否则HTMLSelectElement等对象会报错。
• 加上元素存在性判断，避免因页面加载不完全或元素不存在导致的额外错误。

内容的提问来源于stack exchange，提问作者PJB