在vba中的新闻选项卡中的google自动搜索

Sub SearchNewsOnGoogle()
    Dim searchQuery As String
    Dim url As String
    Dim ie As Object
    Dim newsTab As Object
    Dim searchBox As Object
    Dim searchButton As Object
    
    ' 获取搜索关键词
    searchQuery = InputBox("请输入要搜索的新闻关键词：")
    
    ' 构建搜索URL
    url = "https://www.google.com/search?q=" & searchQuery & "&tbm=nws"
    
    ' 创建Internet Explorer对象
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    
    ' 打开Google搜索页面
    ie.Navigate url
    
    ' 等待页面加载完成
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
    
    ' 获取新闻选项卡
    Set newsTab = ie.document.getElementById("hdtb-msb")
    
    ' 点击新闻选项卡
    newsTab.getElementsByTagName("a")(0).Click
    
    ' 获取搜索框和搜索按钮
    Set searchBox = ie.document.getElementById("lst-ib")
    Set searchButton = ie.document.getElementsByName("btnK")(0)
    
    ' 输入搜索关键词并搜索
    searchBox.Value = searchQuery
    searchButton.Click
End Sub