Excel VBA 打开百度网页输入关键字并搜索

Sub 百度搜索()
'Excel VBA 打开百度网页输入关键字并搜索
Dim KW, Su
With CreateObject("InternetExplorer.Application")
.Navigate "http://www.baidu.com/"
.Visible = True
Do Until .readyState = 4
DoEvents
Loop
'Set KW = .document.getElementsByName("wd")
'KW.Item(0).Value = "QQ"
.document.getElementsByName("wd").Item(0).Value = "QQ" '等同上面2句
'Set Su = .document.getElementByid("f")
'Su.Submit
.document.getElementByid("f").Submit '等同上面2句
End With
Set Su = Nothing
Set KW = Nothing
End Sub


发布了70 篇原创文章 · 获赞 26 · 访问量 21万+
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览