怎么把嵌入Excel中pdf附件批量提取出来？

用下面的VBA代码可批量提取嵌入的pdf附件。Subts()DimshAsOLEObjectForEachshInActiveSheet.OLEObjectsIfInStr(sh.Name,"Object")Thensh.CopyCreateObject("Shell.Application").Namespace(ThisWorkbook.Path).Self.InvokeVerb"Paste"EndIfNextshEndSub