Excel 如何计算PDF文件的页数

如果您曾经需要确定PDF文件的页数，并希望以一种简单的方式在Excel中跟踪此信息，那么您来对地方了。本文将教您如何使用Excel的强大功能以快速高效的方式提取和记录PDF文件的页数。对于与大量PDF文件一起工作的任何人，无论是研究人员、专业人士还是学生，都可以拥有快速自动计算页数的方法非常有帮助。我们将使用Excel来自动化此过程，而不是手动阅读每个PDF文件并计算页数。

本教程将逐步指导您完成每个步骤，从设置Excel工作表和安装适当的软件，到提取和存储各种PDF文件的页数。最后，您将拥有一个能够自动检索和更新PDF文档页数的Excel电子表格。所以让我们开始使用Excel来计算PDF文件的页数吧。准备好优化您的流程并提高产出！

计算PDF文件的页数

我们首先要插入一个VBA模块，然后运行它以完成任务。所以让我们看看一个简单的过程，学会如何在Excel中计算PDF文件的页数。

步骤1

打开任何一个Excel工作表。

首先，右键点击工作表名称，选择“显示代码”以打开VBA应用程序。

右键点击 > 显示代码

步骤2

然后点击插入，选择模块，将下面的代码复制到文本中。

插入 > 模块 > 复制

代码

Sub Test()
   Dim I As Long
   Dim xRg As Range
   Dim xStr As String
   Dim xFd As FileDialog
   Dim xFdItem As Variant
   Dim xFileName As String
   Dim xFileNum As Long
   Dim RegExp As Object
   Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
   If xFd.Show = -1 Then
      xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
      xFileName = Dir(xFdItem & "*.pdf", vbDirectory)
      Set xRg = Range("A1")
      Range("A:B").ClearContents
      Range("A1:B1").Font.Bold = True
      xRg = "File Name"
      xRg.Offset(0, 1) = "Pages"
      I = 2
      xStr = ""
      Do While xFileName <> ""
         Cells(I, 1) = xFileName
         Set RegExp = CreateObject("VBscript.RegExp")
         RegExp.Global = True
         RegExp.Pattern = "/Type\s*/Page[^s]"
         xFileNum = FreeFile
         Open (xFdItem & xFileName) For Binary As #xFileNum
            xStr = Space(LOF(xFileNum))
            Get #xFileNum, , xStr
         Close #xFileNum
         Cells(I, 2) = RegExp.Execute(xStr).Count
         I = I + 1
         xFileName = Dir
      Loop
      Columns("A:B").AutoFit
   End If
End Sub

Excel 如何计算PDF文件的页数