从Web列表框中获取元素列表

Question

我试图计算网页上列表框中的所有元素（最终通过它们进行循环，但是解决此问题将有助于循环）：

我对VBA还是很陌生，但是我确实相信这是一个列表框对象，因为在Firebug中，此对象的名称末尾带有“列表框”。

我在这里或其他地方找到的所有建议都与.ListCount或.ListIndex相关，这些都可能导致错误438，不支持该对象。

下面的代码段。 你能建议吗？

With IE.document
  .getElementById("xxx_startDay").Value = "1"
  .getElementById("xxx_startMonth").Value = "JAN"
  .getElementById("xxx_startYear").Value = "2017"

  .getElementById("xxx_endDay").Value = "31"
  .getElementById("xxx_endMonth").Value = "JAN"
  .getElementById("xxx_endYear").Value = "2017"

  'IE.document.getElementById("xxx_accountItemsListBox").Focus

  Set listMPAN = IE.document.getElementById("xxx_accountItemsListBox")

  listMPAN.selectedIndex = 5

  MsgBox (listMPAN.ListCount)

End With

Answer 1

帮助比我想象的要近。 原来ListBox不是真正的listbox，它是在服务器端生成listbox的其他一些html元素（只是试图重复我被告知的内容）：

<select size="4" name="xyz" multiple="multiple" id="xxx_accountItemsListBox" class="accountItemsListBox">

因此无法识别.ListCount。 相反，我不得不使用.Length和

msgbox(listMPAN.Length)

工作完美。 现在遍历它应该很简单。 谢谢。

Answer 2

这是我的替代答案：

On Error GoTo endCount

For i = 0 To 100
    Debug.Print myDoc2.getElementById("quoteDropdown").Item(i).Value
Next i



endCount:
On Error GoTo 0

If i <> 0 Then

    Debug.Print "there are  " & i & " options."
End If