通过VBA实现Finviz.com网页抓取报头

Sub FetchHeaders()
    Dim url As String
    Dim httpRequest As Object
    
    ' 设置要抓取的网页URL
    url = "https://finviz.com"
    
    ' 创建HTTP请求对象
    Set httpRequest = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送GET请求
    With httpRequest
        .Open "GET", url, False
        .send
    End With
    
    ' 获取网页的HTML内容
    Dim htmlContent As String
    htmlContent = httpRequest.responseText
    
    ' 提取报头信息
    Dim headers As String
    headers = httpRequest.getAllResponseHeaders
    
    ' 输出报头信息
    Debug.Print headers
End Sub