作者：乔山办公网日期：
返回目录：excel表格制作
取不到文件名，我感觉文件名已经被转zhidao换为ICON了，我下面代码只能显示专名字和类型：
Option Explicit
Sub 宏1()
Dim s As Shape
For Each s In ActiveSheet.Shapes
If s.Type = msoEmbeddedOLEObject Then MsgBox s.Name & Chr(10) & s.OLEFormat.progID
Next s
End Sub
是否显示属为图标的两个对象显示都是一样的的结果：
把这些PDF文件的文件名改为有规律的顺百序。不用Acrobat，就用你复制、搜索的那个软件。用按键精灵编制脚本，模拟手工操作。然后就度能实现自动依次打开PDF文件，自动按固定位置提取内容并自专动填入Excel表格。
用Acrobat也一样能用按键精灵脚本的办法，区别仅仅在脚本要模拟Acrobat中的操作。总之，模拟的就是处理PDF文件的软件操作，爱是属哪个就是哪个。
把这些PDF文件的文件名改为有规律的顺序。不用Acrobat，就用你复制、搜索的那个软件。用按键zd精灵编制脚本，模拟手工操作。然后就能实现自动依次打开PDF文件，自动按固定位置提取内容并自动填入Excel表格。
用Acrobat也一样能用专按键精灵脚本属的办法，区别仅仅在脚本要模拟Acrobat中的操作。总之，模拟的就是处理PDF文件的软件操作，爱是哪个就是哪个。
我自己在电脑上做了一个测试，可以提取出来PDF文件。你上传一下你的文件给我，我来试做。