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

wuxingch · 发表于 2004-12-13 22:54

谢谢！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 · 发表于 2004-12-14 07:58

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

wuxingch · 发表于 2004-12-14 13:58

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

附件如下：

5KunAQao.rar (101.36 KB, 下载次数: 110)

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

dljyh · 发表于 2004-12-14 16:56

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

x2dukQuj.rar (108.05 KB, 下载次数: 332)

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

wuxingch · 发表于 2004-12-14 17:16

还是有错误，下标越界

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

spoofing · 发表于 2004-12-14 21:59

不要沉下去了

[em04][em08]

BackStBoy · 发表于 2004-12-16 21:41

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

jlpdgy004 · 发表于 2004-12-27 14:07

批处理文件不起作用啊

dljyh · 发表于 2004-12-27 14:28

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

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

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

dljyh · 发表于 2004-12-27 15:00

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

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

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