使用Excel VBA进行百度搜索

2024-01-22 14:38:18 浏览数 (1)

标签:VBA

下面的VBA过程可以打开百度并搜索指定内容。

VBA代码如下:

代码语言:javascript复制
Sub OpenIEBrower()
 Dim strUserSearch As String
 Dim IE As Object
 Application.ScreenUpdating = False
 strUserSearch = InputBox("输入想要搜索的内容: ")
 Set IE = CreateObject("InternetExplorer.Application")
 IE.Visible = True
 IE.Navigate "https://www.baidu.com/"
 Application.StatusBar = "提交中......"
 ' 等待IE装载......
 While IE.Busy
   DoEvents
 Wend
 ' **********************************************************************
 delay 1
 IE.Document.getElementById("kw").Value = strUserSearch
 delay 1
 SendKeys "{Enter}"
'**********************************************************************
 Application.StatusBar = "表单已提交"
 'IE.Quit
 Set IE = Nothing
 Application.ScreenUpdating = True
End Sub

Private Sub delay(seconds As Long)
 Dim endTime As Date
 endTime = DateAdd("s", seconds, Now())
 Do While Now() < endTime
   DoEvents
 Loop
End Sub

运行OpenIEBrower过程后,会弹出如下图1所示的输入框。

图1

在其中输入想要搜索的内容,按“确定”按钮后,会自动打开IE浏览器,并打开百度网站,在其搜索框中自动输入要搜索的内容,开始搜索并出现搜索结果页面。

很简单!有兴趣的朋友可以试试。

0 人点赞