vba获取pdf页数最快方法

在VBA（Visual Basic for Applications）中，处理PDF文件通常需要借助第三方库，因为Excel本身并不直接支持操作PDF。最常用的是通过ActiveX控件如Adobe Acrobat或者iTextSharp等。然而，由于VBA的性能限制，获取PDF页数的最快方法可能是使用外部命令行工具，比如Acrobat的`AcroPDDump`命令或`pdftk`这样的批处理工具。

以下是使用批处理的方式获取PDF页数：

Sub GetPdfPageCount()
    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    
    Dim filePath As String
    ' 替换为你的PDF文件路径
    filePath = "C:\path\to\your\file.pdf"
    
    Dim pageCount As Integer
    pageCount = CInt(WshShell.Execute("pdffinfo " & filePath & " | find /c ""Pages:""", 0).StdOut)
    
    MsgBox "PDF文件共有 " & pageCount & " 页", vbInformation
End Sub

上述脚本会调用`pdffinfo`命令并查找"Pages:"字样出现的次数，即页数。这种方法比直接在VBA中解析PDF内容更快。