如何用vba将ppt或excel中嵌入的文件（如：我的文件.pdf）名称提取出来。

取不到文件名，我感觉文件名已经被转换为ICON了，我下面代码只能显示名字和类型：

Option Explicit

Sub 宏1()

    Dim s As Shape

    For Each s In ActiveSheetShapes

        If sType = msoEmbeddedOLEObject Then MsgBox sName & Chr(10) & sOLEFormatprogID

    Next s

End Sub

是否显示为图标的两个对象显示都是一样的的结果：

如果不是为了学习VBA，而仅仅是为了达到Excel转换为PDF的结果,建议是装个软件，

像

1、 Adobe acrobat pro 8或者以上版本

2、PDF虚拟打印机 （例如：PDFfactory Pro 、doPDF、PDF Creator、tinyPDF等等）

PDF Creator这个很常见

3、文电通PDF plus 9

另外，升级到Microsoft OFFICE 2007以后的版本，都有转换PDF的功能， *** 作方法相当简单，就是 另存为即可。

建议把人工 *** 作步骤，写成按键精灵程序去半自动化完成。vba对pdf处理极弱，python也好不了太多。或者你就把pdf转化成office文件（工具很多，例如Acrobat）再用vba处理。

Sub openpdf()

Dim path$

Dim name$

Dim fullname$

name = InputBox("请输入文件名称（不含扩展名）")

path = "G:\360data\重要数据\桌面\"

fullname = path & name & "pdf"

CreateObject("WscriptShell")Run (fullname)

End Sub

以上就是关于如何用vba将ppt或excel中嵌入的文件（如：我的文件.pdf）名称提取出来。全部的内容，包括:如何用vba将ppt或excel中嵌入的文件（如：我的文件.pdf）名称提取出来。、怎么用VBA将EXCEL转换为PDF、VBA能不能在pdf文件的内容中提取所需要的内容等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！