Excel 在电子表格中嵌入PDF

目标是在Access应用程序中运行此子例程，该应用程序将PDF文档嵌入到新的Excel工作簿中。sub可以正确处理文本文件，但会在PDF文件中出现错误“运行时错误'1004:文档未保存”。代码在SaveAs方法上中断。为什么嵌入一种文件类型，而PDF文件类型不起作用？任何帮助都将不胜感激

Sub SavePDFInWorkBook()
    Dim xlObj As New Excel.Application  ' Excel application
    Dim wbkObj As Excel.workbook        ' workbook object
    Dim wstObj As Excel.Worksheet       ' worksheet object
    Dim oleObj As Excel.OLEObject       ' embeded object
    Dim EmbedFile, MyWbk As String

    MyWbk = "M:\SS\DD\Projects\cash_dep2000\TEST.xlsx"
    EmbedFile = "M:\SS\DD\Projects\cash_dep2000\DaytonFreight.pdf"

    Set wbkObj = xlObj.Workbooks.Add    ' workbook is added in open condition in memory
    Set wstObj = wbkObj.Worksheets(1)   ' workbook is created with one worksheet
    Set oleObj = wstObj.OLEObjects.Add(, EmbedFile, False, True)

    wbkObj.SaveAs (MyWbk)               ' saves workbook to folder
    wbkObj.Close                        ' closes workbook in folder
    Set oleObj = Nothing
    Set wstObj = Nothing
    Set wbkObj = Nothing
    Set xlObj = Nothing

    MsgBox ("Test Complete")
End Sub

---

这可以嵌入pdf图标/链接，但也可以打开pdf。加重。

ActiveSheet.OLEObjects.Add（文件名：=“C:\Users\June\MyStuff\DMV.pdf”，链接：=False_
DisplayAsIcon:=真，IconFileName:=_
“C:\WINDOWS\Installer\{AC76BA86-7AD7-1033-7B44-AB0000000001}\PDFFile_8.ico”_
IconIndex:=0，IconLabel:=“任何您想要的”）。激活

---

我可以手动保存文件，但对于启用宏的工作簿错误，可以另存为代码。更令人恼火。也许修改对象操作代码会起作用。

测试代码。嵌入pdf时也无法保存文件。图像实际上并没有添加到工作表中，只是一个带有图像名称的框（pdf类型除外），只是一个大的空框，没有文件名。这些是指向实际文件的链接。这是你想要的吗？pdf链接有效，只是无法保存文件。