EXCEL-VBA文件封装成EXE的方法

1、EXCEL-VBA 文件=成EXE的方法EXCEL VBA文件封装成EXE的方法XLS封装成EXE制作全攻略 Idhyob写出此文以帮助关注那张帖的版友们能完全自己独立完成xls2exe的过程，实 现简单的封装。首先申明，将xls做成exe并不是指就能使您的VBA工程受到 坚强的保护，当然您可以通过数种方法来提高xls文档VBA工程防止查看的保 护几率，如屏蔽一些系统热键、监控VBE窗口的开启、给文档加上口令保护、 加VBA 口令、使VBA “不可查看”、利用宏表来禁止用户取消宏来查看文档等 等，但“道高一尺，魔高一丈”，所以就没有必要去追求所谓的“完美”加 密关于这些保护方法不属本文叙述范围

2、，请版友在论坛上查看相关帖。假如您手头已有一 xls文档等待封装，假如您机子上已安装有VB6 开发系统，那么请跟着往下操作：一、用VB制作EXE文件头部分1、打开VB, “文件”- “新建工程”- “标准EXE” ；2、此时会出现名为Forml的默认窗体编辑窗口，Forml将作为软件 启动封面窗体，打开该Forml的属性窗口，对如下属性进行设置：BorderStyle 二0, St ar tUpPos i t i on=2, Icon与Picture属性设置成你需要的图标（这也将 成为你EXE的图标）和设计好准备使用的图片（即软件封面），窗体的大小设 置成您需要的合适值即可。3、往窗体中添加一

3、个时钟控件timerl,并将其InterVai属性设为 1000c4、双击窗体打开代码编辑窗口，录入以下代码：Private Declare Function SetWindowPos Lib user32 (ByVai hwnd As Lon g, ByVai hWndlnsertAfter As Long, ByVai x As Long, ByVai y As Long, B yVal ex As Long, ByVai cy As Long, ByVai wFlags As Long) As Long Private Declare Function GetTempFi1eName L

4、ib kernel32 Alias ，zGetTem pFileNameAz/ (ByVai IpszPath As String, By Vai IpPref ixString As String,By Vai wUnique As Long, By Vai IpTempFil eName As String) As Long Private Declare Function GetTempPath Lib kernel32 Alias ，zGetTempPat hA (ByVai nBufferLength As Long, ByVai IpBuffer As String) As Lon

5、g Private Const MAX_PATH = 260Private Const EXE.SIZE = 81920 '本 EXE 实际字节大小Private Type FileSectionBytes () As ByteEnd TypePrivate Type SectionedFileFiles() As FileSectionEnd TypeDim StopTime As IntegerPrivate Sub Form_Activate() If Command() = "" Then Mainl End SubPrivate Sub Form_Load

6、()On Error Resume NextIf Command() = "" Then=TrueSetWindowPos , -1, 0, 0, 0, 0, &H2 Or &H1 '将封面置为最顶层窗体 Else=False=TrueEnd IfEnd SubSub Mainl ()Dim StartXLSByte, I, J As LongDim AppPath, XlsTmpPath As StringDim myfile As SectionedFileDim xlApp As '定义 EXCEL 类Dim xlBook As 

7、9;定义:件簿类Dim xlsheet As '定义工作表类AppPath =XlsTmpPath = GetTempFile ()'取得XLS临时文件名(带路径)If , 1) = " Then AppPath =，-1)Open AppPath && & . exe For Binary As #1ReDim (1)ReDim (1). Bytes(1 To LOF(l) - EXE.SIZE)Open XlsTmpPath For Binary As #2Get #1, EXE_SIZE + 1, (1). Bytes '此处数字

8、要根据EXE实际头文件大 小更改设定Put #2, 1, (1). BytesClose #1Close #2Set xlApp = CreateObject '创建 EXCEL 应用类Set xlBook = password：="Idhyob")'打开 EXCEL II作簿，已知该工作簿已加 打开口令为Idhyob'以下星号括起部分代码是往X1S里写数据(也可不往工作簿里写数据的方法， 而生成txt的方法)，作用是保存本exe的绝对路径与临时X1S绝对路径，以 便于EXE重写更新与临时文件删除,»>w viw vaw vgW vi

9、w vaw vVw vTw vVw »«w vaw vgW viw vaw vVw vTw vVw »«w vaw vgW viw vaw vVw vTw vVw »«w vaw vgW viw vaw vVw vTw vVw »«w vaw vgW viw vaw vVw vaw vVwSet xlsheet = ("temp")'设置活动工作表(1, 1) = AppPath & & & ”. exe '将该EXE完全路径存在工作表单元格 内(2, 1

10、)二XlsTmpPath '将该EXE本次运行产生XLS临时文件路径存在工作表单 元格内 ' 1 ' ' '" ' ' ' ' ' ' ' '" ' ' ' ' ' ' ' '" ' ' ' ' ' ' ' '" ' ' ' ' ' ' ' '" 

11、9; ' ' I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I =True '设置EXCEL可见Set xlApp = Nothing '释放 xlApp 对象StopTime = 0二True '启动时钟End SubPrivate Function GetTempFile() As String '用来产生系统临时文件名Dim IngRet As LongDim strBuffer As String, strTempPath As

12、StringstrBuffer = String$(MAX.PATH, 0)IngRet = GetTempPath(Len(strBuffer), strBuffer)If IngRet = 0 Then Exit FunctionstrTempPath = Left$ (strBuffer, IngRet)strBuffer = String$ (N!AX_PATH, 0)IngRet = GetTempFileName(strTempPath, tmp”, 0&, strBuffer)If IngRet = 0 Then Exit FunctionIngRet = InStr(1

13、, strBuffer, Chr(0)If IngRet > 0 ThenGetTempFile = Left$(strBuffer, IngRet - 1) ElseGetTempFile = strBufferEnd IfEnd FunctionPrivate Sub Timerl_Timer()On Error Resume NextIf Command() <> ThenIf (Command () <> "" ThenKill Command。'删除本次运行遗留的临时XLS文件ElseEndEnd IfElseStopTime

14、 = StopTime + 1 '计时累加If StopTime = 1 Then Unload Me： End ' 2 秒后自动关闭退出End IfEnd Sub5、可保存工程，如取名为“工程1” ；6、进行编译，“文件”-“生成工程”，此时也可将生成的EXE另 外取名，如取名叫。7、查看第6步生成的EXE文件字节大小，并将具体数字记下来，并 将 VB 模块中的 “Private Const EXE.SIZE = 81920” 保证一致(这里的 81920 是笔者例子的结果数字，每个人在实底时会有不同)。此例此步很重要，必须 要做，该数字在xls文档VBA中还要使用到。至此，

15、文件头部分已做完，文件也已生成于磁盘中。特别提示:编译前,确保VB里”工程一-引用里"Micros。 ft Excel Object Library”前面的勾已打上.二、xls文档部分操作1、给工作簿增加一个工作表temp,将其置为隐藏。2、增加xls文档宏代码以实现文档关闭时 EXE数据刷新。打开xls文档，打开VBE窗口,在ThisWorkBook代码区头部加入以 下代码：Private Const EXE.SIZE = 81920 '此处数字为前面第7步得到的EXE文件字 节数Private Type FileSectionBytes () As ByteEnd Typ

16、e在Workbook_BeforeClose事件中加入如下代码(对原有的代码可保留)： Dim myfile As FileSection '定义变量Dim come, exec, xlsc As String '定义变量=False '隐藏 EXCEL 主窗口exec = Worksheets( "temp" ). cells(1, 1). valuexlsc = Worksheets( “temp" ). cells(2, 1). valuecome = exec & & xlscOpen exec For Binary

17、 As #1 '打开 EXE 文件ReDim (1 To EXE.SIZE)Get #1, 1,'取得固有文件头Close #1If (exec) <> "" Then Kill execOpen exec For Binary 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,'将 xls 部分追加进 EXEClose #1Close #2Shell come, vbMinimizedNoFocus '删除临时 xls 文件3、保存文档，退出，关闭EX