你可以通过html标记去提交!!例如: With webbrower1 .Document.All("ID号").Value='数据' End With
其实webbrower1 可以操作任何一个html 标记 这些都返回在:DocumentComplete事件里 例如在:DocumentComplete里加入 With webbowser1 Set vDoc = .Document For i = 0 To vDoc.All.Length - 1 bqName = Trim(UCase(vDoc.All(i).tagName)) Set vTag = vDoc.All(i) If bqName = "IMG" Then debug.pring bgName Set vTag = vDoc.All(i) If vTag.type="submit" Then '提交
With webbrower1
.Document.All("ID号").Value='数据'
End With
这些都返回在:DocumentComplete事件里
例如在:DocumentComplete里加入
With webbowser1
Set vDoc = .Document
For i = 0 To vDoc.All.Length - 1
bqName = Trim(UCase(vDoc.All(i).tagName))
Set vTag = vDoc.All(i)
If bqName = "IMG" Then
debug.pring bgName
Set vTag = vDoc.All(i)
If vTag.type="submit" Then '提交
End If
End If
Next
End With