关闭

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

标签: vba操作网页百度搜索操作百度搜索自动搜索
1919人阅读 评论(0) 收藏 举报
分类:

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


0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:88149次
    • 积分:1580
    • 等级:
    • 排名:千里之外
    • 原创:73篇
    • 转载:14篇
    • 译文:0篇
    • 评论:4条
    文章分类