|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 renchaoaina 于 2014-7-19 19:01 编辑
如何用VBA查找网页元素是否存在!谢谢
Dim mshellwindows As New ShellWindows, ie As InternetExplorer
For Each ie In mshellwindows
If ie.LocationURL Like "http://www.duba.com/?f=duba_startie&db_48_545&z=0" Then Exit For '遍历所有IE网页
Next
With ie.Document
If .all("search_keyword").Value = "" Then ’在这如何网页search_keyword元素判断是否存在?????
.all("search_keyword").Value = Sheets("Sheet2").Range("P" & j)
End If
.all("search_keyword").Value = Sheets("Sheet2").Range("C2") '登录名
.all("password").Value = Sheets("Sheet2").Range("C3") '密码
.all("btn_search").Click '登录单击
Do While ie.Busy '等待
DoEvents
Loop
End With
End Sub
|
|