VBA从搜索结果中抓取日期小部件

Sub ExtractDateWidgetFromSearchResults()
    Dim url As String
    Dim httpRequest As Object
    Dim htmlDoc As Object
    Dim dateWidget As Object
    
    ' 设置搜索结果的URL
    url = "https://www.example.com/search?q=date"
    
    ' 创建HTTP请求对象
    Set httpRequest = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送GET请求
    httpRequest.Open "GET", url, False
    httpRequest.send
    
    ' 创建HTML文档对象
    Set htmlDoc = CreateObject("HTMLfile")
    
    ' 将HTTP响应内容加载到HTML文档对象中
    htmlDoc.body.innerHTML = httpRequest.responseText
    
    ' 根据HTML结构定位日期小部件
    Set dateWidget = htmlDoc.getElementById("date-widget")
    
    ' 提取日期小部件的内容并输出
    MsgBox dateWidget.innerText
    
    ' 清理对象
    Set httpRequest = Nothing
    Set htmlDoc = Nothing
    Set dateWidget = Nothing
End Sub