巧用剪切板导出包对象内的文件

chenyuhua · 发表于 2009-5-8 10:03

先感谢楼主精彩奉献！

但是9楼说得有道理，请再讨论一下。
相对来说，插入文件“以图标”方式显示，比楼主插入“包”且“包对象内不能有图标和标签名称，即左边内容应该全部为空, 而右边必须包含一个文件”方式更加普遍些。
话说回来，楼主程序目的自己插入“包”，用于恢复数据，包内容可控，也很好。。。

ljw990485 · 发表于 2009-5-8 12:58

原帖由 chenyuhua 于 2009-5-8 10:03 发表
先感谢楼主精彩奉献！

但是9楼说得有道理，请再讨论一下。
相对来说，插入文件“以图标”方式显示，比楼主插入“包”且“包对象内不能有图标和标签名称，即左边内容应该全部为空, 而右边必须包含一个文件”方式更 ...

其实你说的那个也很简单，我主要是想把问题简化，使得Excl文档多余信息最少，文档大小尽量小点和程序更简单。

同样若更改插入对象（象9楼说的那个）的图标，9楼的代码同样失效，原因是复制对象后，剪切板内还含有图标的内容

把文件放入包的目的
1）自动恢复被删除的文件
2）自动恢复被删除的ActiveX组件，比如做好的VBA系统，当使用CreateObject方法创建一个ActiveX对象失败时，就从包中拿出文件，且自动注册，这样就能保证VBA代码顺利运行
3）9楼放入的是GIF，JPG类的文件，和包文件还是有点差别。

其实我在很久之前，就做到了被插入的文件(DLL,OCX，DOC......任意文件)压缩后保存在包对象中，从包内导出后，自己的解压程序(不是Winrar,Winzip，而是自己的代码)自动从内存中解压所要恢复文件，只是我没公开代码而已

[ 本帖最后由 ljw990485 于 2009-5-8 12:59 编辑 ]

lb_bn · 发表于 2009-11-26 08:46

好贴啊，学习中。

谢谢楼主及各版主分享。

marshroom_iv · 发表于 2010-7-6 09:57

很需要这个源码来研究一下，怎样才能下载附件啊

HHAAMM · 发表于 2011-4-19 20:35

Sheet1.OLEObjects(1).Copy
Set o= CreateObject("Shell.Application")
o.Namespace(ThisWorkbook.Path).Self.InvokeVerb "粘贴(&P)"
我用这两句在自己的电脑上也操作成功了，可有人反应在他的机器上不行

boywin3 · 发表于 2011-4-22 11:15

要的就是它。激动中。。。
借用一句歌词“搜了这么久，。。。”
几乎有关这个课题的高手都在（Winland，小fisher等），N年前钻研过小fisher的关于导出gif文件的代码，对于我等初学者来说，有些繁难；最近再次求助，得到liuyan819
提示（另存网页，再得到gif文件）；再次一并感谢！本帖要好好研究下！（不过好久未见小fisher发帖了，难道退隐了？）

[ 本帖最后由 boywin3 于 2011-4-23 16:35 编辑 ]

boywin3 · 发表于 2011-4-22 12:10

“其实我在很久之前，就做到了被插入的文件(DLL,OCX，DOC......任意文件)压缩后保存在包对象中，从包内导出后，自己的解压程序(不是Winrar,Winzip，而是自己的代码)自动从内存中解压所要恢复文件，只是我没公开代码而已”

强烈请求代码！

liucqa · 发表于 2011-11-17 00:40

留个记号

cjh-01 · 发表于 2011-11-17 20:10

好，太谢谢了！

goldowl2011 · 发表于 2012-4-13 14:26

Thanks a lot. But why not share your unzip file codes or give us a link to study it.

		自动登录	找回密码
密码			免费注册

[原创] 巧用剪切板导出包对象内的文件

怎样才能下载附件啊

回复 12楼 ljw990485 的帖子