如何提取嵌入在EXCEL中的PDF文件

bbc1912

Excel中有嵌入pdf，非链接形式嵌入，拷走这张Excel表后pdf文件也一并拷走了。
现在想批量将这些pdf文件提取出来放在文件夹里，且提取后的pdf文件名不变。
附件太大，不知道如何上传。

fxl447098457

Sub ts()
Dim sh As OLEObject
For Each sh In ActiveSheet.OLEObjects
  If InStr(sh.Name, "Object") Then
   sh.Copy
   CreateObject("Shell.Application").Namespace(ThisWorkbook.Path).Self.InvokeVerb "Paste"
  End If
Next sh
End Sub

bbc1912

fxl447098457 发表于 2018-1-8 20:22
Sub ts()
Dim sh As OLEObject
For Each sh In ActiveSheet.OLEObjects

右击sheet，点查看代码，复制粘贴进去之后点击运行。过了一会儿之后没啥动静，在Excel所在文件夹里也没看到导出的pdf文件呀

322344

按住alt ，点击图片，再ctrl+a，所有的图片就全选了 ，ctrl+x剪切到另外的地方就好了。

bbc1912

322344 发表于 2018-1-9 13:44
按住alt ，点击图片，再ctrl+a，所有的图片就全选了 ，ctrl+x剪切到另外的地方就好了。

在剪切完之后，点进文件夹页面后，无法进行粘贴操作。

322344

文件夹页面？ 我那个方法只是放在另一个excel中。

322344

点击Excel左上角“文件/圆形图标”→“另存为”→文件类型选择“网页”  这样可以看到图片保存到文件夹里了

322344

点击Excel左上角“文件/圆形图标”→“另存为”→文件类型选择“网页”  这样可以看到图片保存到文件夹里了

322344

bbc1912 发表于 2018-1-9 13:49
在剪切完之后，点进文件夹页面后，无法进行粘贴操作。

点击Excel左上角“文件/圆形图标”→“另存为”→文件类型选择“网页”  这样可以看到图片保存到文件夹里了

bbc1912

322344 发表于 2018-1-9 16:21
点击Excel左上角“文件/圆形图标”→“另存为”→文件类型选择“网页”  这样可以看到图片保存到文件夹里 ...

可是我不是要看图像，而是要嵌在Excel表里的PDF文件以PDF文档的形式出现在文件夹里呀。