标签: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浏览器,并打开百度网站,在其搜索框中自动输入要搜索的内容,开始搜索并出现搜索结果页面。
很简单!有兴趣的朋友可以试试。