如果没有ID也没有NAME,还可以使用getElementsByTagName获得下拉框对象。
比如HTML中有两个下拉框,而你要获得的是第二个,则可以使用以下语句:
Set oDrop=Me.WebBrowser1.document.getElementsByTagName("SELECT")(1)
如果你用的是WebBrowser控件,则Set oDrop=document.getElementById("d1")应改为:
Set oDrop=Me.WebBrowser1.document.getElementById("d1")
如果是使用的IE,则可以参照我博客里取得IE的IBrowser接口一文,然后再获得IE的文档对象就可以了。
不需要使用API,因为IE页面下拉框的文本就在HTML源码内,可以使用GetElementsByName、GetElementById等方式取得此下拉框对象,比如:
Dim oDrop,i
Set oDrop=document.getElementById("d1") '本处假设下拉框的ID为d1
If oDrop Is Nothing Then Exit Sub
For i=0 To oDrop.options.length-1
MsgBox oDrop.options(i).innerText
Next