又一个菜鸟问题：怎么返回.item的个数？

使用 UBound 函数

有点问题：
返回错误：类型不匹配

源代码是这样的:
Dim Doc As Object
Dim tag, Opt As Object
Dim i As Integer
Set Doc = Webbrowser.Document
For i = 0 To Doc.All.length - 1
 If UCase(Doc.All(i).tagName) = "SELECT" Then
 Set tag = Doc.All(i)
 Select Case tag.Name
 Case "sex"
 MsgBox UBound(tag.Item) ''''这里
 MsgBox tag.Item(1).innerHTML

 End Select
 End If
Next i

对象集合 一般有COUNT属性 试试�

If UCase(Doc.All(i).tagName) = "SELECT" Then 
 Set tag = Doc.All(i) 
 Select Case tag.Name 

注意：Doc.All(i).tagName 和 tag.Name 到底是什么属性 
有 .tagName 属性吗�

MsgBox UBound(tag.Item) 

Dim Doc As Object 

由于 Set tag = Doc.All(i) 
所以 tag 引用的是 Object对象
Ubound 只能返回数组下标，不能返回对象的

如4楼所说
需要总个数：用MsgBox tag.count

这个是自动填表的源代码。。。。
自动选择select的选项。。。。

tag.count还是不能返回总数。。。�

看你用在那方面, 试一下这个枚举进程, 添加 Command1

Private Sub Form_Load()
 Me.AutoRedraw = True
 Me.Height = 9000
End Sub

Private Sub Command1_Click()
 strComputer = "."
 Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process")
 Me.Cls
 For Each objprocess In colProcesses
 Print objprocess.processid & " " & objprocess.Name
 Next
 MsgBox colProcesses.Count
End Sub

MsgBox tag.Count ''''''''对象不支持该属性或方法


自动填表选择select的选项 value的值不一样
所以
for ii=0 to tag.的总数
 if "男" = tag.Item(ii).innerText then tag.Item(ii).Selected = True

next