在带有Excel VBA的IE上按enter键进行搜索

Sub SearchInIE()
    Dim IE As Object
    Dim searchQuery As String
    
    ' 创建IE对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 设置IE窗口可见性
    IE.Visible = True
    
    ' 打开搜索引擎网站，例如百度
    IE.Navigate "https://www.baidu.com"
    
    ' 等待IE加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 获取搜索框元素，并输入搜索关键词
    searchQuery = "云计算"
    IE.document.getElementById("kw").Value = searchQuery
    
    ' 模拟按下Enter键进行搜索
    IE.document.getElementById("kw").Focus
    Application.SendKeys "{ENTER}"
    
    ' 等待搜索结果加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 执行其他操作，例如获取搜索结果等
    
    ' 关闭IE窗口
    IE.Quit
    Set IE = Nothing
End Sub