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

最新推荐文章于 2024-12-06 08:15:00 发布

危凌天

最新推荐文章于 2024-12-06 08:15:00 发布

阅读量8.5k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： Excel VBA 文章标签： vba 操作网页百度搜索操作百度搜索自动搜索

本文链接：https://blog.youkuaiyun.com/wijaya/article/details/17132333

Excel VBA 专栏收录该内容

65 篇文章

订阅专栏

本文介绍了一段使用Excel VBA代码实现自动打开百度网站并进行关键词搜索的功能。通过创建InternetExplorer对象并设置导航地址，利用DoEvents循环等待页面加载完成，然后通过获取页面元素设置搜索关键词并提交搜索。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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