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

wuxingch

谢谢！dljyh的帮忙，我在关闭EXCEL时还是出错，程序如下：

Private Sub Workbook_BeforeClose(Cancel As Boolean) '在Workbook_BeforeClose事件中加入如下代码 (对原有的代码可保留): Dim myfile As FileSection '定义变量 Dim comc, exec, xlsc As String '定义变量 Application.Visible = False '隐藏EXCEL主窗口 exec = Worksheets("temp").Cells(1, 1).Value xlsc = Worksheets("temp").Cells(2, 1).Value comc = exec & " " & xlsc Open exec For Binary As #1 '打开EXE文件

..........................................................

就是此名出错，请高手指点

dljyh

wuxingch 你好，可能是你没有新建一个工作表，然后把此工作表起名为temp，你再检查检查

wuxingch

有的呀！还是请dljyh 高手帮我看下，错在什么地方吧？

附件如下：

[此贴子已经被作者于2004-12-14 13:58:43编辑过]

dljyh

1、excel文件关闭时出现的错误不用考虑

2、你有两点错误：

1）Open XlsTmpPath For Binary As #2 Get #1, 135168 + 1, myfile.Files(1).Bytes '此处数字要根据EXE实际头文件大小更改设定 Put #2, 1, myfile.Files(1).Bytes Close #1 Close #2 2）新建 文本文档.bat中的名称错误

@echo off copy /b abc.exe + test1.xls main.exe

是test1.xls文件而不是text1.xls

[此贴子已经被作者于2004-12-14 17:28:12编辑过]

wuxingch

还是有错误，下标越界

还是，请版主，帮我搞下后，传下来吧！谢谢！！

spoofing

不要沉下去了[em01][em04][em08]

BackStBoy

to dljyh兄：你封装后的VBA还是可看的呀。

jlpdgy004

批处理文件不起作用啊

dljyh

以下是引用BackStBoy在2004-12-16 21:41:00的发言：

to dljyh兄：你封装后的VBA还是可看的呀。

对呀，我没有设密码呀？如果是为加密而用，请不要做成exe,做成dll

dljyh

以下是引用jlpdgy004在2004-12-27 14:07:00的发言： 批处理文件不起作用啊

请检查名称是否一致，例如把Test 写成Text