2024年5月2日发(作者：)

EXCEL VBAfc件封装成EXE的方法

XLS封装成EXE制作全攻略

■ ldhyob 2003.12 写出此文以帮助关注那张帖的版友们能完全自已独立完成 xls2exe

的过程，实现 简单的封装。首先申明，将xls做成exe并不是指就能使您的VBA工程

受到坚强 的保护，当然您可以通过数种方法来提高xls文档VBA工程防止查看的保护

几率， 如屏蔽一些系统热键、监控VBE窗口的开启、给文档加上口令保护、加VBA

口令、 使VBA“不可查看”、利用宏表4.0来禁止用户取消宏来查看文档等等，但“道

高一尺，魔高一丈”，所以就没有必要去追求所谓的“完美”加密 ,, 关于这些 保护方

法不属本文叙述范围，请版友在论坛上查看相关帖。

假如您手头已有一 xls 文档等待封装，假如您机子上已安装有 VB6

开发系统，那么请跟着往下操作：

、用VB制作EXE文件头部分

1、打开vB “文件”-“新建工程”-“标准

EXE

；

2、此时会出现名为 Form1 的默认窗体编辑窗口， Form1 将作为软件 启

动封面窗体，打开该 Form1 的属性窗口，对如下属性进行设置： BorderStyle =0，

StartUpPosition=2 ， Icon 与 Picture 属性设置成你需要的图标（这也将成 为你EXE

的图标）和设计好准备使用的图片（即软件封面），窗体的大小设置成 您需要的合适

值即可。

3、往窗体中添加一个时钟控件 timer1 ，并将其 Interval 属性设为 1

000。

4、双击窗体打开代码编辑窗口，录入以下代码： Private Declare Function

SetWindowPos Lib "user32" (Byval hwnd As Lon g, Byval hWndInsertAfter As Long,

Byval x As Long, Byval y As Long, B yval cx As Long, Byval cy As Long, Byval wFlags

As Long) As Long Private Declare Function GetTempFileName Lib "kernel32" Alias

"GetTem pFileNameA" (Byval lpszPath As String, Byval lpPrefixString As String,

Byval wUnique As Long, Byval lpTempFileName As String) As Long Private Declare

Function GetTempPath Lib "kernel32" Alias "GetTempPat hA" (Byval nBufferLength

As Long, Byval lpBuffer As String) As Long Private Const MAX_PATH = 260

Private Const EXE_SIZE = 81920 ' 本 EXE实际字节大小

Private Type FileSection

Bytes() As Byte

End Type

Private Type SectionedFile

Files() As FileSection

End Type

Dim StopTime As Integer

Private Sub Form_Activate()

If Command() = "" Then Main1 End Sub

Private Sub Form_Load()

On Error Resume Next

If Command() = "" Then

e = True

SetWindowPos , -1, 0, 0, 0, 0, &H2 Or &H1 顶层窗

将封面置为最

体

Else

e = False

d = True

End If

End Sub

Sub Main1()

Dim StartXLSByte, I, J As Long

Dim AppPath, XlsTmpPath As String

Dim myfile As SectionedFile

Dim xlApp As ation '

定义EXCEL类

Dim xlBook As ok '

定义工件簿类

Dim xlsheet As eet

定义工作表类

AppPath =

XIsTmpPath = GetTempFile()' 取得XLS临时文件名(带路径)

If (, 1) = "" Then AppPath = (, VBA.

Len() - 1)

Open AppPath & "" & e & ".exe" For Binary As #1

ReDim (1)

ReDim (1).Bytes(1 To LOF(1) - EXE_SIZE)

Open XlsTmpPath For Binary As #2

Get #1, EXE_SIZE + 1, (1).Bytes '

实际头文件大小更改设定

Put #2, 1, (1).Bytes

Close #1

Close #2

此处数字要根据 EXE

Set xIApp = CreateObject("ation")' 创建 EXCEL应用类

Set xlBook = (FileName:=XlsTmpPath, password:="ld hyob")'

打开EXCEL

T

作簿,已知该工作簿已加打开口令为Idhyob

' 以下星号括起部分代码是往 xls 里写数据(也可不往工作簿里写数据的方法， 而生成

txt 的方法)，作用是保存本 exe 的绝对路径与临时 xls 绝对路径， 以便 于EXE重写

更新与临时文件删除

******************************************

Set xlsheet = eets("temp") ' 设置活动工作表 (1, 1) =

AppPath & "" & e & ".exe" ' 将该 EXE

完全路径存在工作表单元格内

(2, 1) = XIsTmpPath ' 将该EXE本次运行产生XLS临时文件路径 存在工

作表单元格内

'**************************************** e = True ' 设置 EXCE可见 Set xlApp

= Nothing ' 释放 xlApp 对象 StopTime = 0

d = True ' 启动时钟 End Sub

Private Function GetTempFile() As String ' 用来产生系统临时文件名

Dim lngRet As Long

Dim strBuffer As String, strTempPath As String

strBuffer = String$(MAX_PATH, 0)

lngRet = GetTempPath(Len(strBuffer), strBuffer)

If lngRet = 0 Then Exit Function

strTempPath = Left$(strBuffer, lngRet) strBuffer = String$(MAX_PATH, 0) lngRet =

GetTempFileName(strTempPath, "tmp", 0&, strBuffer)

If lngRet = 0 Then Exit Function

lngRet = InStr(1, strBuffer, Chr(0))

If lngRet > 0 Then

GetTempFile = Left$(strBuffer, lngRet - 1)

Else

GetTempFile = strBuffer

End If

End Function

Private Sub Timer1_Timer()

On Error Resume Next

If Command() <> "" Then

If (Command()) <> "" Then

Kill Comma nd()'删除本次运行遗留的临时 XLS文件 Else

End

End If

Else

StopTime = StopTime + 1 ' 计时累加

If StopTime = 1 Then Unload Me: End '2

End If

秒后自动关闭退出

End Sub

5、可保存工程，如取名为“工程 1”；

6、进行编译，“文件” - “生成工程 ”，此时也可将生成的 E

XE另外取名，如取名叫 。

7、查看第6步生成的EXE文件字节大小，并将具体数字记下来，并 将 VB

模块中的“ Private Const EXE_SIZE = 81920 ”保证一致（这里的 81920 是笔者例

子的结果数字，每个人在实际时会有不同）。此例此步很重要，必须要 做，该数字在

xls文档VBA中还要使用到。

至此，文件头部分已做完， 文件也已生成于磁盘中。

特别提示

：

编译前,确保VB里"工程"---"引用"里"Microso ft Excel

9.0 Object Library" 前面的勾已打上 .

二、 xls 文档部分操作

1、 给工作簿增加一个工作表temp,将其置为隐藏。

2、 增加xls文档宏代码以实现文档关闭时 EXE数据刷新。

打开xls文档，打开VBE窗口，在ThisWorkBook代码区头部加入以 下

代码：

Private Const EXE_SIZE = 81920 '

数

Private Type FileSection

Bytes() As Byte

End Type

此处数字为前面第7步得到的EXE文件字节

在 Workbook_BeforeClose 事件中加入如下代码 (对原有的代码可保留 )：

Dim myfile As FileSection ' 定义变量

Dim comc, exec, xlsc As String ' 定义变量

Applicati on .Visible = False ' 隐藏 EXCEL主 窗口

exec = WorkSheets( “temp” ).cells(1,1).value

xlsc = WorkSheets( “temp” ).cells(2,1).value

comc = exec & " " & xlsc

Ope n exec For Bin ary As #1 ' 打开 EXE文 件

ReDim (1 To EXE_SIZE)

Get #1, 1, ' 取得固有文件头

Close #1

If (exec) <> "" Then Kill exec

Ope n exec For Bin ary As #1 ' 生成新的 EXE文 件

Put #1, 1, ' 先写入文件头

Open xlsc For Binary As #2 ' 打开 xls 临时文件

ReDim (1 To FileLen(xlsc))

Get #2, 1,

Put #1, EXE_SIZE + 1, '

Close #1

Close #2

将 xls 部分追加进 EXE

Shell comc, vbMinimizedNoFocus ‘删除临时 xls 文件

3、保存文档，退出，关闭 EXCEL。

三、将EXE与XLS结合生成新的EXE

将第一步得到的 与第二步得到的 (文件名随你愿 意取)

放到同一目录下，切换到 MS-DO模式，或者在该目录下建立一个批处理 文件即bat

文件，这样就不用切换到 MS-DO模式下输入DOS命令了。建立bat 文件的步骤方法

是：鼠标右键“新建”—“文本文档”，输入以下内容： @echo off

copy /b + 保存，更改文件名(包括扩展名)为“合并 .bat ”，

然后双击它，不一会就会发 现在当前目录下会多出一个 EXE文件，这就是

封装成品了，你可以将 其重命名为所需要的名称。

好了，大功告成！