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

ldhyob

以下是引用gonghg在2003-12-12 21:59:00的发言： 经过调试，现在基本可以正常运行，确实不错，感谢楼主。 另外，还存在两个问题： 1.在关闭excel（即test.xls）时，提示Open exec For Binary As #1出错。 2.请问如何隐藏temp？

1、关闭excel（即test.xls）时，提示Open exec For Binary As #1出错，那么您的程序应该在更新EXE数据上并未成功。调试的思路在于检查exec字符串中保存的路径信息是否有误，该值取自temp工作表的A1单元格，而A1单元格的值则是在VB制作的EXE程序打开时赋给它的。 2、隐藏工作表您还不会？？？“格式”-“工作表”-“隐藏”[em12]

pbcwn2002

21楼的朋友，请你把那三行红字显示中前2行中temp上的双引号删掉，改成在英文状态下输入，第3行注释中的左单引号改为英文状态下输入。

pbcwn2002

出现错误提示，光标停留在下列代码中的”Private Type FileSection“上 Private Const EXE_SIZE = 61440 '此处数字为前面第7步得到的EXE文件字节数 Private Type FileSection Bytes() As Byte End Type End Sub

[此贴子已经被作者于2003-12-13 11:36:28编辑过]

pbcwn2002

关闭上述文件时提示（见图）。选择”调试“后，光标停留在” Open exec For Binary As #1 '打开EXE文件“一句上。

pbcwn2002

我觉得做文件的引导部分比较简单，按照斑竹的提示添加控件，将网页上的代码复制过去就行了，关键是后面的excel文件的VBA代码。

lxd

我以为我是世界上第一好人，事实不是，世界上第一好人是我们的版主ldhyob。

qq5000

版主ldhyob。 好，厉害，厉害。

xgrc_xgrc

我遇到的问题和25楼一样，什么原因？

pbcwn2002

希望ldhyob斑竹抽空帮我们解决一下，谢谢！

ldhyob

to pbcwn2002: 1、你在24楼的错误源于多了一句“End Sub” 2、25楼的错误原因多半是由于您在XLS里调试宏时，宏是处于启用状态的，所以这个错误的发生很正常，换句话说，当xls与EXE结合后此错误就不会发生。关键在于您是否对temp工作表内的A1、A2单元格内的值查看过？里面存的是EXE与临时xls的路径信息，如果在xls文件单独打开与关闭时若这两份文件在磁盘上不存在，错误就会发生。不知我说得你是否能理解。建议你再看看我在22楼的回帖。

[此贴子已经被作者于2003-12-14 17:46:00编辑过]