在excel中使用VBA从.PDF (文件)扩展文件属性

Sub GetPDFProperties()
    Dim filePath As String
    Dim objShell As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objShellFolder As Object
    
    '选择PDF文件
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "选择PDF文件"
        .Filters.Add "PDF文件", "*.pdf"
        .AllowMultiSelect = False
        If .Show = -1 Then
            filePath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    '创建Shell对象
    Set objShell = CreateObject("Shell.Application")
    
    '获取PDF文件的文件夹路径
    Set objFolder = objShell.Namespace(Left(filePath, InStrRev(filePath, "\") - 1))
    
    '获取PDF文件的Shell文件夹对象
    Set objShellFolder = objFolder.ParseName(Right(filePath, Len(filePath) - InStrRev(filePath, "\")))
    
    '输出PDF文件的属性
    For i = 0 To 300
        Debug.Print objFolder.GetDetailsOf(objShellFolder, i)
        Debug.Print objFolder.GetDetailsOf(objShellFolder, i + 1)
    Next i
    
    '释放对象
    Set objShellFolder = Nothing
    Set objFolder = Nothing
    Set objShell = Nothing
End Sub