[分享][原创]用VB6 包装EXCEL，生成可执行文件（完美版）

紫蝶儿菲菲

真的是好佩服zldccmx姐姐。

要是能够把控制这个附件菜单的代码和其它的功能代码写到Vb中就好了。

zldccmx

多谢斑竹的鼓励！

其实，话题是一个比较古老的话题，但是偶觉得里面还是有一些创新。这就是偶为什么加上“原创”二字。

zldccmx

QUOTE:

以下是引用ldhyob在2006-8-23 11:31:29的发言：

将XLS文件打包成EXE是一个老生常谈的话题了,zldccmx的制作看的出来花了不少的心思,将登陆窗体放在VB中来做,这是很不错的.

打包XLS成EXE会可以美化程序界面,但是使用VBA关键更在于制作出来的东西具备真正实用的功能,给我们的工作带来快捷和便利才是重中之重.

ps,最近发现zldccmx的学习热情很高,这是很好的事情啊,严重支持+鼓励!!!

诚然，斑竹说的有道理。将XLS文件打包成EXE是一个古老的话题了，不过偶觉得本例还是引入了一些新意。这就是偶为什么加上“原创”二字的原因。见笑了。[em04]

偶觉得，利用API中SLEEP函数延时，产生另类的类似flash的欢迎界面，应该有一定的参考价值。其二，在一个窗体中加入登录窗口，通过动态改变窗体的大小，形成一窗多用，应该也有点参考作用的。至少是节省了资源。

zldccmx

随感：　　　　　　　　梯　　子

小时候，站在父亲的肩膀上取物，父亲就成了我攀高的梯子。

等到读书了，写作文时模仿人家的文章，范文的作者就成了我的梯子。

参加工作了，师傅们成了我学技能的梯子。

到了这个坛子里，ldhyob 、taller、兰色幻想、 button、 清风_ll、 plxmm、 northwolves等许许多多的朋友就成了我学习VBA的梯子。

现在，我成了女儿的梯子，成了徒弟们的梯子；但愿有一天，我也能成为VBA粉丝的梯子。 

我甘愿当梯子！

[此贴子已经被作者于2006-8-23 16:52:34编辑过]

joulin

一、請問我在vb中使用2個表單(Form1.frm、frmMain.frm)，也設定要生成的圖標(ico)，可是最後用copy_.bat後出現的是vb中原始的圖標，可是我只用一個1個表單(form1.frm)，結果卻正確，不知這樣描述是否明白(即如你的附件所生成的start.exe圖標)

二、另外有個問題請教，我在原來excel文檔中的Module1有寫了一個程序(如下)，可是當我使用封裝後的exe(假設為testtype2.exe)執行，如果我按"保存離開"，就會出現"執行階段錯誤'9':陣列索引超出範圍(顯示出Windows("testtype2.xls").Activate的問題)，請問我應該怎麼修正我下列的代碼才能順利達成下列的任務?

Sub 保存離開()
Windows("testtype2.xls").Activate
  Application.Quit
  ActiveWorkbook.Save
End Sub
Sub 不保存離開()
Windows("testtype2.xls").Activate
  Application.Quit
  Workbooks("testtype2.xls").Close savechanges:=False
End Sub
Sub 保存不離開()
ThisWorkbook.Save
End Sub

感恩!

[此贴子已经被作者于2006-8-23 22:34:25编辑过]

zldccmx

偶是这样认为的，不知道正确与否。（PS：偶对vb可能不如你熟悉）

1、好象VB只支持给一个窗体（也就是你们台湾人说的表单）设置图标。

2、EXCEL封装之后，文件名就不再是原来的文件名了。如你使用了　copy/b testtype2.exe+testtype2.xls main.exe,在封装之后的可执行文件main.exe中，EXCEL文件就不能再用testtype2.xls来引用，因为EXCEL文件只是可执行文件中的一部分，其已经不再是一个单独的EXCEL文件了。所以就會出現"執行階段錯誤'9':陣列索引超出範圍(顯示出Windows("testtype2.xls").Activate的問題)。如果在EXCEL的代码中引用工作表，就只要使用“Thisworkbook”来表示，因为Thisworkbook永远是指向当前代码所在的工作表，就象表单中的me一样。

Sub 保存離開()
'Windows("testtype2.xls").Activate '这一句取消
 ThisWorkbook.Save 　'调换了原来两句代码的顺序
Application.Quit 
End Sub
Sub 不保存離開()
'Windows("testtype2.xls").Activate '同样取消
  Workbooks("testtype2.xls").Close savechanges:=False

  Application.Quit

End Sub

Sub 保存不離開()
ThisWorkbook.Save
End Sub

[此贴子已经被作者于2006-8-24 8:35:16编辑过]

joulin

謝謝zldccmx，另外有二個問題

一、你的檔案我執行後，一直停在窗體無法繼續運作，須強制關閉，請問為何會這樣

二、為何我的檔案修改的部分卻無法存檔，重新開啟後修改的資料不見了，請問該怎麼修改代碼

三、除了感謝還是感謝

第二個問題解決了

[此贴子已经被作者于2006-8-24 12:22:49编辑过]

第三杯茶

不错呀,论坛里又多了一个高手了!

zldccmx

补丁：

解决了封装之后无法保存ＥＸＣＥＬ的问题．

在ＥＸＣＥＬ文件中须有如下代码，原来的代码不完善．特此更正．

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ScreenUpdating = True
    Application.DisplayAlerts = False
    ThisWorkbook.Save  '文件存盘
    Dim myfile As FileSection    '定义变量
    Dim exec, xlsc, exen As String    '定义变量　增加了一个进程名定义exen
    Application.Visible = False    '隐藏EXCEL主窗口
    exec = Worksheets("Temp").Cells(1, 1).Value
    xlsc = Worksheets("Temp").Cells(2, 1).Value
    exen = Split(exec, "\")(UBound(Split(exec, "\")))
    Open exec For Binary As #1    '打开EXE文件
    ReDim myfile.Bytes(1 To EXE_SIZE)
    Get #1, 1, myfile.Bytes    '取得固有文件头
    Close #1         '关闭打开的EXE文件
    Shell "taskkill /im " & exen & " /f" '强制结束EXE文件
    Open exec For Binary As #1    '重新生成新的EXE文件
    Put #1, 1, myfile.Bytes    ''把原EXE文件文件头写进新的文件头
    Open xlsc For Binary As #2  '打开xls临时文件
    ReDim myfile.Bytes(1 To FileLen(xlsc))
    Get #2, 1, myfile.Bytes
    Put #1, EXE_SIZE + 1, myfile.Bytes    '将xls部分追加进EXE
    Close #1
    Close #2
    ActiveWorkbook.ChangeFileAccess xlReadOnly  ' 将活动工作簿设为只读，便于执行下面的语句，如不进行此操作，将没法完成
    Kill ActiveWorkbook.FullName '删除当前文件，其实是一个临时文件
    Application.Quit
End Sub

[此贴子已经被作者于2008-4-14 3:30:33编辑过]

zldccmx

QUOTE:

以下是引用ldhyob在2006-8-23 11:31:29的发言：

将XLS文件打包成EXE是一个老生常谈的话题了,zldccmx的制作看的出来花了不少的心思,将登陆窗体放在VB中来做,这是很不错的.

打包XLS成EXE会可以美化程序界面,但是使用VBA关键更在于制作出来的东西具备真正实用的功能,给我们的工作带来快捷和便利才是重中之重.

ps,最近发现zldccmx的学习热情很高,这是很好的事情啊,严重支持+鼓励!!!

斑竹ＧＧ，偶在你的基础上，修改了ＥＸＣＥＬ中附加的代码（见楼上），实现了可以保存ＥＸＣＥＬ文件的内容。

请指教！

[此贴子已经被作者于2006-8-26 17:23:09编辑过]