excel vba pdf seitenzahl auslesen

要在Excel VBA中从PDF文件中读取页码，可以使用Adobe Acrobat DC的VBA库。

首先，请确保您的计算机已经安装了Adobe Acrobat DC。然后，按照以下步骤进行操作：

启动Excel，并打开Visual Basic Editor（VBE）。

在VBE中，单击“工具”菜单，然后选择“引用”。

在“引用”对话框中，找到并选中“Adobe Acrobat”（Acrobat.dll）。

在您的VBA代码中，使用以下代码行创建一个Acrobat对象：

Dim acrobatApp As Acrobat.CAcroApp
Set acrobatApp = CreateObject("AcroExch.App")
打开要读取页码的PDF文件。您可以使用以下代码行：
Dim acrobatDoc As Acrobat.CAcroPDDoc
Set acrobatDoc = CreateObject("AcroExch.PDDoc")
acrobatDoc.Open "C:\path\to\your\file.pdf"
要获取PDF文件的总页数，请使用以下代码行：
Dim totalPages As Long
totalPages = acrobatDoc.GetNumPages()
要获取当前PDF页面的页码，请使用以下代码行：
Dim currentPage As Long
currentPage = acrobatApp.GetActiveDoc().GetAVPageView().GetPageNum()
最后，当您完成处理PDF文件时，请关闭文档和Acrobat对象：
acrobatDoc.Close
Set acrobatDoc = Nothing
acrobatApp.Exit
Set acrobatApp = Nothing
请注意，使用此方法需要计算机上安装有Adobe Acrobat DC软件，并且该软件的VBA库已被正确引用。如果您在执行此代码时遇到任何问题，请尝试检查上述条件是否满足。
希望这些信息对您有所帮助！