将 PDF 插入 Excel

在 Excel 中插入 PDF 文件可能是一个很有用的功能。例如，您可能需要在 Excel 工作表中创建一个报告，其中需要包含 PDF 文件的一部分。本文将介绍如何将 PDF 插入 Excel，并向您展示如何使用VBA将PDF自动插入Excel中。

方法一：插入 PDF 作为对象

Excel 允许您将 PDF 文件插入工作表，并将其作为对象来查看。以下是如何将 PDF 文件插入 Excel 工作表的步骤。

1. 打开 Excel，选择要将 PDF 插入的单元格。
2. 单击“插入”选项卡上的“对象”。
3. 在“对象”对话框中，选择“创建新对象”。
4. 选择“Adobe Acrobat Document” 并选中“显示为图标”复选框。
5. 单击“确定”按钮，选择您想要存储 PDF 文件的位置。
6. 选择 PDF 文件并单击“打开”按钮。
7. 在 Excel 中， PDF 文件将被作为一个小图标插入到所选的单元格中。
8. 单击图标可以打开 PDF 文件并查看其内容。

方法二：使用 VBA 自动插入 PDF

如果您需要频繁地将 PDF 文件插入 Excel 工作表，则可以使用 VBA 自动化此过程。以下代码将插入一个 PDF 文件（即“Sample.pdf”）到工作表的单元格 A1 中。

Sub Insert_PDF()

    '获取路径和文件名
    pdfPath = "C:\Users\Username\Documents\Sample.pdf"
    
    '在单元格中插入 PDF
    Set pdfObj = ActiveSheet.OLEObjects.Add(Filename:=pdfPath, _
                                            Link:=False, _
                                            DisplayAsIcon:=True, _
                                            IconIndex:=0, _
                                            IconLabel:="PDF Icon", _
                                            Left:=Range("A1").Left, _
                                            Top:=Range("A1").Top, _
                                            Width:=Range("A1").Width, _
                                            Height:=Range("A1").Height)

End Sub

要使用此代码，请按照以下步骤进行操作：

1. 打开 Excel，按下 ALT + F11 以打开 VBA 编辑器。
2. 在“模块”窗口中，单击“插入”>“模块”。
3. 复制上述代码，并将其粘贴到新的模块中。
4. 将 PDF 文件复制到工作簿文件在同一文件夹中。
5. 单击“运行”>“运行次子过程”以执行代码。

现在，PDF 文件将被作为图标插入到 A1 单元格中。

结论

通过上述内容，你应该已经掌握了如何在 Excel 中插入 PDF 文件，并使用 VBA 自动化此过程。希望这篇文章对你有所帮助！