网页自动填表的问题？（二）

Question

这种下拉菜单如何自动选中其中某一项呢？<select size="1" name="abc">
    <option value="1">一</option>
    <option value="2">二</option>
    <option value="3">三</option>
    <option value="4">四</option>
    <option value="5">五</option>
</select>

Answer 1

你要取什么值呀！！！是不是取value的（1，2，3，4，5）还是。说清楚点

Answer 2

意思是用webbrowser控件在让网页上中自动搜索到这个下拉菜单，然后自动给它赋值，实现自动填表

Answer 3

楼主给分吧dim i As Long  
Dim vDoc, vTag
    Set vDoc = WebBrowser1.Document
    For i = 0 To vDoc.All.length - 1
         If UCase(vDoc.All(i).tagname) = "SELECT" Then
         Set vTag = vDoc.All(i)
            If vTag.Name = "abc" Then vTag.Value = "2" '选中二
         End If
    Next i