VBA获取网站上PDF文件的名称和创建日期

Sub GetPDFInfo()
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    Dim url As String
    url = "https://example.com/pdf-file.pdf" ' 替换为实际的PDF文件URL
    
    ' 发送HTTP请求获取网页内容
    http.Open "GET", url, False
    http.send
    
    Dim content As String
    content = http.responseText
    
    ' 使用正则表达式提取PDF文件URL
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "(https?://.+\.pdf)"
    
    Dim matches As Object
    Set matches = regex.Execute(content)
    
    If matches.Count > 0 Then
        Dim pdfUrl As String
        pdfUrl = matches(0).SubMatches(0)
        
        ' 发送HTTP请求获取PDF文件内容
        http.Open "GET", pdfUrl, False
        http.send
        
        Dim pdfContent As Variant
        pdfContent = http.responseBody
        
        ' 使用PDF处理库解析PDF文件内容
        ' 这里需要使用特定的PDF处理库的代码来获取PDF文件的名称和创建日期
        
        ' 假设获取到了PDF文件的名称和创建日期
        Dim pdfName As String
        Dim pdfCreationDate As Date
        pdfName = "example.pdf"
        pdfCreationDate = Date
        
        ' 输出PDF文件的名称和创建日期
        MsgBox "PDF文件名称：" & pdfName & vbCrLf & "创建日期：" & pdfCreationDate
    Else
        MsgBox "未找到PDF文件"
    End If
    
    Set http = Nothing
    Set regex = Nothing
End Sub