是否使用Excel VBA从当前的Internet Explorer浏览器会话中下载PDF？

Sub DownloadPDF()
    Dim IE As Object
    Dim downloadLink As Object
    
    ' 创建一个新的Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 设置IE对象的可见性
    IE.Visible = True
    
    ' 打开一个网页
    IE.Navigate "https://example.com/sample.pdf"
    
    ' 等待页面加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 查找下载链接
    Set downloadLink = IE.Document.getElementById("downloadLink")
    
    ' 下载PDF文件
    If Not downloadLink Is Nothing Then
        Dim http As Object
        Set http = CreateObject("MSXML2.XMLHTTP")
        
        ' 发送HTTP请求
        http.Open "GET", downloadLink.href, False
        http.send
        
        ' 保存文件
        Dim fileStream As Object
        Set fileStream = CreateObject("ADODB.Stream")
        
        ' 设置流的类型为二进制
        fileStream.Type = 1
        
        ' 打开文件流
        fileStream.Open
        fileStream.Write http.responseBody
        
        ' 保存文件到指定路径
        fileStream.SaveToFile "C:\path\to\save\sample.pdf", 2
        
        ' 关闭文件流
        fileStream.Close
    End If
    
    ' 关闭Internet Explorer对象
    IE.Quit
End Sub