VBA自动将PDF链接下载到桌面文件夹

Sub DownloadPDFFromLink()
    Dim url As String
    Dim http As Object
    Dim pdfData() As Byte
    Dim fileNum As Integer
    Dim fileName As String
    
    ' 设置PDF链接地址
    url = "https://example.com/sample.pdf"
    
    ' 创建HTTP请求对象
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送GET请求获取PDF文件数据
    http.Open "GET", url, False
    http.send
    
    ' 将获取到的PDF文件数据保存到字节数组
    pdfData = http.responseBody
    
    ' 关闭HTTP请求对象
    http.abort
    
    ' 获取PDF文件名
    fileName = "sample.pdf"
    
    ' 在桌面创建一个新的文件
    fileNum = FreeFile
    Open CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & fileName For Binary Access Write As #fileNum
    
    ' 将PDF文件数据写入到新创建的文件中
    Put #fileNum, , pdfData
    
    ' 关闭文件
    Close #fileNum
    
    ' 提示下载完成
    MsgBox "PDF文件已下载到桌面。"
End Sub