ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: ldhyob

[原创]XLS封装成EXE制作全攻略

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2005-8-9 23:37 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
OK~~~~~我做成了!谢谢版主

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-8-9 23:38 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
以下是引用bh-ice在2005-8-9 23:37:00的发言: OK~~~~~我做成了!谢谢版主

呵呵,只要细心,就会成功.不会这种制作方法只是一种思路.

TA的精华主题

TA的得分主题

发表于 2005-8-27 12:23 | 显示全部楼层

顶一下,别沉下去。给楼主一个建议:能否在关闭工作簿时提示“是否保存”。封装后,如果忘了保存,文件将不更新。

实现原理:利用VB的OLE调用与文件二进制读写(通道技术). 实现思路:总的目标就是将VB编译生成的EXE文件头与XLS数据部分捆绑结合,并在XLS关闭时能使EXE数据部分得以更新。 1、VB工程部分:用顶层窗体制作封面;对EXE(即自身)XLS数据进行读取并将其写入一定文件夹然后OLE打开它;借助时钟控件适时关闭封面窗体及退出EXE(此时XLS已经正常打开完毕了,完成VB与EXCEL的无缝连接)。 2、VBA部分:对EXCEL菜单与工具栏、图标进行自定义设置;在工作薄退出事件中增加代码,将XLS内容重新写入EXE中。 3、利用DOS的二进制COPY命令将VB的EXE部分与VBA的XLS部分结合成新的EXE文件。 这种动态EXE文件就制作完成了,它的优点是明显的:拥有自定义的图标作为EXE文件图标,拥有自定义的软件加载封面,拥有更改XLS数据的特性,而偏偏不“拥有”烦人的宏提示!!!缺点主要就是如果文档体积过于庞大,运行速度会有一定影响。

经验证,数据并不能自动更新。

[此贴子已经被作者于2005-8-27 12:25:59编辑过]

TA的精华主题

TA的得分主题

发表于 2005-8-27 22:01 | 显示全部楼层
关闭工作簿时提示“是否保存”的代码如何写?请教大侠。

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-8-27 22:11 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
以下是引用conghr在2005-8-27 12:23:00的发言:

顶一下,别沉下去。给楼主一个建议:能否在关闭工作簿时提示“是否保存”。封装后,如果忘了保存,文件将不更新。

实现原理:利用VB的OLE调用与文件二进制读写(通道技术). 实现思路:总的目标就是将VB编译生成的EXE文件头与XLS数据部分捆绑结合,并在XLS关闭时能使EXE数据部分得以更新。 1、VB工程部分:用顶层窗体制作封面;对EXE(即自身)XLS数据进行读取并将其写入一定文件夹然后OLE打开它;借助时钟控件适时关闭封面窗体及退出EXE(此时XLS已经正常打开完毕了,完成VB与EXCEL的无缝连接)。 2、VBA部分:对EXCEL菜单与工具栏、图标进行自定义设置;在工作薄退出事件中增加代码,将XLS内容重新写入EXE中。 3、利用DOS的二进制COPY命令将VB的EXE部分与VBA的XLS部分结合成新的EXE文件。 这种动态EXE文件就制作完成了,它的优点是明显的:拥有自定义的图标作为EXE文件图标,拥有自定义的软件加载封面,拥有更改XLS数据的特性,而偏偏不“拥有”烦人的宏提示!!!缺点主要就是如果文档体积过于庞大,运行速度会有一定影响。

经验证,数据并不能自动更新。

请参看此帖http://club.excelhome.net/viewthread.php?tid=28358

TA的精华主题

TA的得分主题

发表于 2005-8-27 22:40 | 显示全部楼层
好东西,正在找呢,楼主辛苦

TA的精华主题

TA的得分主题

发表于 2005-8-28 07:46 | 显示全部楼层

楼主给的帖子http://club.excelhome.net/viewthread.php?tid=28358 带有密码,看不到原码。不知问题(自动保存或关闭工作簿时提示是否保存)如何解决?

还望忙里偷闲给予解决。不胜感激。

[此贴子已经被作者于2005-8-28 10:57:15编辑过]

TA的精华主题

TA的得分主题

发表于 2005-8-28 11:30 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
3、保存文档,退出,关闭EXCEL。(提示:XLS文档不要在open事件中显示起始窗体,在关闭事件中,最好增加询问用户是否保存的语句) 请问楼主:增加询问用户是否保存的语句怎么写?

TA的精华主题

TA的得分主题

发表于 2005-9-9 23:39 | 显示全部楼层
谢谢!伟大的无私的版主

TA的精华主题

TA的得分主题

发表于 2005-10-9 20:55 | 显示全部楼层
为什么我的 函数GetTempPath得到的不是长文件名,在TEMP里出现的是 D:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\tmpA7.tmp,导致关闭时路径出错 ! 谁能帮我解决啊!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-18 03:49 , Processed in 0.039677 second(s), 5 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表