1.
用两个循环
for x = 0 to wb1.document.all.length-1
if wb1.document.all(x).tagname="IFRAME"then
for y=0 to wb1.document.all(x).document.all.length-1
if wb1.document.all(x).document.all(y).tagname="INPUT" then
添加处理代码
endif
next
endif
next
2.
For Each a In WB1.Document.Frames.框架名.Document.All
If a.tagname = "INPUT" Then
If a.name = "name" Then
a.value = "csdn"
End If
End If
Next