利用excel vba结合excel数据对网站进行搜索，提取搜索结果流程图中的活动状态并映射到列中

Sub SearchWebsite()
    Dim IE As Object
    Dim URL As String
    Dim keyword As String
    Dim result As String
    
    ' 创建一个新的Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 设置IE对象的属性
    IE.Visible = False
    IE.Navigate "about:blank"
    
    ' 循环遍历表格中的每一行
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        ' 获取关键词和网站链接
        keyword = Cells(i, 1).Value
        URL = Cells(i, 2).Value
        
        ' 在IE中打开网站链接
        IE.Navigate URL
        
        ' 等待页面加载完成
        Do While IE.Busy Or IE.ReadyState <> 4
            Application.Wait Now + TimeValue("0:00:01")
        Loop
        
        ' 在搜索框中输入关键词并执行搜索
        IE.Document.getElementById("searchBox").Value = keyword
        IE.Document.getElementById("searchButton").Click
        
        ' 等待搜索结果加载完成
        Do While IE.Busy Or IE.ReadyState <> 4
            Application.Wait Now + TimeValue("0:00:01")
        Loop
        
        ' 提取搜索结果流程图中的活动状态并映射到列中
        result = IE.Document.getElementById("activityStatus").innerText
        Cells(i, 3).Value = result
    Next i
    
    ' 关闭IE对象
    IE.Quit
    Set IE = Nothing
End Sub