作者：乔山办公网日期：
返回目录：excel表格制作
在空白表中的A1单元格放入文件路径,然后运行本7a686964616fe4b893e5b19e364宏即可
Private Sub 文件夹操作()
Application.ScreenUpdating = False
Folderspec = [a1].Value
Select Case WorksheetFunction.CountA(ActiveSheet.UsedRange)
Case 1:
i = 1
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set fs = fs.GetFolder(Folderspec)
Set fs = fs.SubFolders
For Each f In fs
i = i + 1: j = 1: Cells(i, 1) = f.Name
myName = Dir(Folderspec & "\" & f.Name & "\*")
While myName <> ""
j = j + 1: Cells(i, j) = myName
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, j), Address:=Folderspec & "\" & f.Name & "\" & myName
myName = Dir()
Wend
Next
myName = Dir(Folderspec & "\*") '文件
While myName <> ""
i = i + 1: Cells(i, 1) = myName
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=Folderspec & "\" & myName
myName = Dir()
Wend
End Sub
先把PDF转Excel ，然后再插入excel里面：
对于不允许做修改的PDF文件——就是加密加了权限的PDF，首先要去除密码或者去除数字证书，推荐用PDF Password Remove，然后再按照下面的方法进行转换为Excel文件：
方法一：ABBYY finereader v9是我见过的最强大的PDF（图片格式或者是扫描件）转excel的软件636f7079e799bee5baa6e79fa5e98193365。它是一款OCR软件，界面比较简洁明，9.0和以上版本有简体中文版的，支持100语言的识别，特别是混合多种语言识别效果也非常好。
国内的OCR软件仅仅是对中文的识别比较好而已。而且，这款软件只要你设置好识别文件所用的语言然后打开PDF文件（支持直接打开的）然后其他的工作就交给软件了，识别完后 文件------另存为excel格式就可以了。而且版面的保持能力是我见过的OCR软件里面最好的一个，识别率也是最高的一个，就是转换识别的速度比较慢。只要PDF文件比较清晰，准确率基本可以达到95%以上（除了数学公式、计算式、化学式、分子式、三角函数等专业的内容之外），强力推荐大家使用。
方法二：在线PDF转Excel共有以下几个步骤:
• 点击浏览按钮选择需要转换的PDF文件。
• 点击按钮上传文件，然后等着就可以了。
• 点击下载链接把做好的文件下载到本地就可以了。
方法三：用其他软件Wondershare PDFelement等处理。
菜单栏选“插入”→百“对象”；
2.选择“由文件创建”→“浏览”；
3.在电脑中找到你要插入的PDF文件，选“插入”，注意文件格式选择“所有文件”，这度样就不会漏文件了；
4.“确定”之前，可以打勾“更回改图标”、“链接到文件”、“显示为图标”，或者直接确定；
5.选择“更改图标”，界面如下图，可对文件在EXCEL中的名称答，不改变源文件名称；
6.选“链接到文件”后，插入的PDF直接显示首页内容，如下图；
7.选“显示为图标”后，插入的PDF文件显示为一个图标，图标名称为“更改图标”中修改的名称，如下图；
8.插入其他类型文件也可以按以上步骤执行，结束。
首先，我们打开一张Excel文档，如图所示，这个文档是亲环境的一个文档，需要插百入一张检验机构的报告，例如：SGS、CTI检验机构的检验报告。
02
我们选择报告下方的那个单元格，度然后点击插入，点击右上角的对象按钮；
03
点击问由答文件创建，点击浏览；
04
弹出的界面内，我们找到我们需要插入的PDF文档，并点击插入；
05
将链接到文件，显示为图标均勾选上，之后点击更改图标；
06
弹出的界面，我们将图标标题更改为资料报告容，然后点击确定；
07
然后我们再点击确定，PDF文档的报告就插入了；
08
最后，我们将PDF文档的报告调整一下大小，并点击打开，确认是否可以打开；