批量导出excel中插入的文件出现问题

cqtoutosml

我收到的表格中插入了很多对象文件，有pdf、word、eml等类型的文件，为省事，使用了以下代码进行批量导出。但除了pdf和office类型的文件外，其余类型的文件均能正常导出，求助高手帮忙指点指点。（PS.我使用的office2021版本）


Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim sh As Object
    For Each sh In ActiveSheet.OLEObjects
        If InStr(sh.Name, "Object") Then
            sh.Copy
            CreateObject("Shell.Application").Namespace(ActiveWorkbook.Path).Self.InvokeVerb "Paste"
        End If
        Set sh = Nothing
    Next sh
    MsgBox "附件提取完成！"
    Application.ScreenUpdating = True
End Sub

psxk3535

把你的模拟表格附件传上来

cqtoutosml

psxk3535 发表于 2023-1-18 23:46
把你的模拟表格附件传上来

请参考，谢谢。

cqtoutosml

有大神帮忙看看么？

zhusong1998

同样遇到这个问题，楼主解决了吗？

fxl447098457

zhusong1998 发表于 2023-11-26 20:04
同样遇到这个问题，楼主解决了吗？

office的 oleobject. verb就可以打开了，直接获得活动工作簿另存为就可以了。
pdf的我还没试过。

zhusong1998

fxl447098457 发表于 2023-11-26 21:48
office的 oleobject. verb就可以打开了，直接获得活动工作簿另存为就可以了。
pdf的我还没试过。

感谢回复，我试试

ccc2006

标记，试一下，