将embedded的Zip文件（OLEObject）保存到磁盘

我有一个Excel文件中embedded压缩文件，当我复制文件并粘贴到任何驱动器。 压缩文件不打开，并获取以下消息（Windows无法打开文件夹。压缩（压缩）文件夹“文件path”无效）。 我也尝试OLEObject.Verb，但它打开临时文件夹，并保持打开临时文件夹资源pipe理器的所有时间。

如何复制压缩文件并closures临时文件夹资源pipe理器？

感谢您的帮助。