使用VBA通过OLEObjects嵌入PDF至Excel仅显示首页，求全页及分页方案

直接通过OLEObjects.Add嵌入PDF时，默认只会显示第一页。要实现将PDF每一页分别嵌入到新建的Excel工作表中，无需手动拆分PDF，可以借助Adobe Acrobat的API来实现，具体步骤和代码如下：

前提条件 #

• 安装Adobe Acrobat（注意不是免费的Adobe Reader，Reader无API操作权限）
• 在Excel VBA编辑器中，依次点击「工具」→「引用」，勾选Adobe Acrobat xx.x Type Library（xx.x对应你的Acrobat版本号）

实现代码 #

Sub EmbedPDFPagesToSheets()
    Dim acroApp As Acrobat.CAcroApp
    Dim acroDoc As Acrobat.CAcroPDDoc
    Dim totalPages As Integer
    Dim pdfPath As String
    Dim newSheet As Worksheet
    Dim i As Integer
    
    ' 设置PDF路径（下载文件夹下的目标PDF，替换为你的文件名）
    pdfPath = Environ("USERPROFILE") & "\Downloads\目标PDF文件名.pdf"
    
    ' 初始化Acrobat对象
    Set acroApp = CreateObject("AcroExch.App")
    Set acroDoc = CreateObject("AcroExch.PDDoc")
    
    ' 打开PDF文件
    If Not acroDoc.Open(pdfPath) Then
        MsgBox "无法打开指定PDF文件，请检查路径是否正确！"
        GoTo Cleanup
    End If
    
    totalPages = acroDoc.GetNumPages()
    
    ' 循环处理每一页
    For i = 0 To totalPages - 1
        ' 新建工作表
        Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        newSheet.Name = "PDF页_" & (i + 1)
        
        ' 生成单页临时PDF
        Dim tempPdfPath As String
        tempPdfPath = Environ("TEMP") & "\临时PDF页_" & (i + 1) & ".pdf"
        
        Dim tempDoc As Acrobat.CAcroPDDoc
        Set tempDoc = CreateObject("AcroExch.PDDoc")
        If tempDoc.Create Then
            tempDoc.InsertPages -1, acroDoc, i, 1, False
            tempDoc.Save 1, tempPdfPath
            tempDoc.Close
        End If
        
        ' 将临时PDF嵌入新工作表
        newSheet.OLEObjects.Add Filename:=tempPdfPath, _
            Link:=False, DisplayAsIcon:=False, Left:=10, Top:=10, Width:=newSheet.Columns("A:Z").Width, Height:=newSheet.Rows("1:50").Height
        
        ' 删除临时文件
        Kill tempPdfPath
        Set tempDoc = Nothing
    Next i
    
    MsgBox "PDF所有页面已成功嵌入到对应工作表！"

Cleanup:
    ' 释放Acrobat对象，避免内存泄漏
    acroDoc.Close
    acroApp.Exit
    Set acroDoc = Nothing
    Set acroApp = Nothing
End Sub

代码说明 #

• 自动读取系统下载文件夹路径，无需硬编码固定路径
• 通过Acrobat API提取单页生成临时PDF，嵌入后自动删除临时文件，无需手动拆分原PDF
• 每页对应新建一个工作表，命名格式为「PDF页_页码」
• 嵌入的PDF会适配工作表的基础区域，可根据需求调整Left/Top/Width/Height参数修改显示位置和大小

无Acrobat时的替代方案 #

如果没有安装Adobe Acrobat，可以调用第三方PDF工具（如pdftk）通过Shell命令拆分PDF，再循环嵌入到工作表。示例代码片段：

' 假设pdftk已添加到系统环境变量
Shell "pdftk """ & pdfPath & """ burst output """ & Environ("TEMP") & "\page_%02d.pdf""", vbHide

之后读取拆分后的临时PDF文件逐一嵌入即可，但这种方式需要依赖第三方工具。

内容的提问来源于stack exchange，提问作者Nick Wester