如何在<em>excel</em>中嵌入<em>pdf</em>文件-e

1、在桌面上新建一个需要插入pdf文件的excel文件并打开它。

2、然zhidao后在打回开的窗口中点击“由文件创建”菜单选项，然后在打开的页面中点击“浏览按钮”。

3、然后在打开的窗口中找到要插入的pdf文件，点击“插入”按钮，然后将“显示为图标”前面的勾勾上，然后点击‘确定’按钮。

4、然后回到当前excel文件中就可答以看到pdf文件插进来了。

很简单的吧，用宏呗
先引用：
VBE--工具--引用--找到miscrosoft scription runtime

代码如下，其中 StartFolder = "F:\Temp"就是设置的文件夹e5a48de588b6e79fa5e98193339
Option Explicit
Dim arrFiles()
Dim cntFiles%

Sub Main()
Dim I%, StartFolder$
Dim fso As New FileSystemObject, fd As Folder
ReDim arrFiles(1 To 1000)
cntFiles = 0
StartFolder = "F:\Temp"
Set fd = fso.GetFolder(StartFolder)
‘下面语句后面为false表示不搜索子文件夹，为True时搜索子文件夹
SearchFiles fd, False
ReDim Preserve arrFiles(1 To cntFiles)
For I = 1 To cntFiles
Sheet1.Range("A" & I) = arrFiles(I)
'在sheet1表A1，按列显示文件名
ActiveSheet.Hyperlinks.Add Anchor:=Cells(I, 1), Address:=Sheet1.Range("A" & I).Value, TextToDisplay:=Sheet1.Range("A" & I).Value
Next I
End Sub

Sub SearchFiles(ByVal fd As Folder, includefolder As Boolean)
Dim fl As File
Dim sfd As Folder
Dim I As Integer
For Each fl In fd.Files
I = I + 1
If I > UBound(arrFiles) Then ReDim Preserve arrFiles(1 To I + 1000)
'下面判断文件扩展名
If Right(fl.Path, 3) = "pdf" Or Right(fl.Path, 3) = "PDF" Then
cntFiles = cntFiles + 1
arrFiles(cntFiles) = fl.Path
End If
Next fl
If includefolder Then
If fd.SubFolders.Count = 0 Then Exit Sub
For Each sfd In fd.SubFolders
SearchFiles sfd, True
Next
End If
End Sub

就我所知，zd这个是行不通的，但你可以用现成的软件比如，ADOBE ACROBAT XI PRO来把PDF文件转变成EXCEL文件，转换之后，再去引回用，估计就简单的多了。倘若你的工单最初是纸质的，经扫描之后转换成PDF格式的文件，答这种文档，无论如何是不能转换成EXCEL格式的。