'引用:Microsoft Internet Controls [程序对IE的操作对象] Dim MyIE As InternetExplorer Set MyIE = GetObject("", "InternetExplorer.Application") MyIE.Visible = True MyIE.Navigate "http://www.baidu.com" While MyIE.Busy DoEvents Wend MsgBox "1" '对于有NAME的用这个 MyIE.Document.All.wd.Value = "CSDN" '对于没有NAME属性的控件用这个 Dim i As Object For Each i In MyIE.Document.All.tags("input") If i.Value = "百度搜索" Then i.Click Exit For End If Next DoEvents MsgBox "2" MyIE.GoBack
按上一步怎样令它选上啊,我们在编的时候可以人为的加上checked,但现在不是这种情况
Set MyIE = GetObject("", "InternetExplorer.Application")
MyIE.Visible = True
MyIE.Navigate "http://www.baidu.com"
While MyIE.Busy
DoEvents
Wend
MsgBox "1"
'对于有NAME的用这个
MyIE.Document.All.wd.Value = "CSDN"
'对于没有NAME属性的控件用这个
Dim i As Object
For Each i In MyIE.Document.All.tags("input")
If i.Value = "百度搜索" Then
i.Click
Exit For
End If
Next
DoEvents
MsgBox "2"
MyIE.GoBack