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

(word完整版)EXCEL VBA文件封装成EXE的方法EXCEL VBA文件封装成EXE的方法XLS封装成EXE制作全攻略 ldhyob2003.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属性设为1000。 4、双击窗体打开代码编辑窗口，录入以下代码：Private Declare Function SetWindowPos Lib ”user32 (ByVal hwnd As Long， ByVal hWndInsertAfter As Long， ByVal x As Long， ByVal y As Long, ByVal cx As Long， ByVal cy As Long, ByVal wFlags As Long） As LongPrivate Declare Function GetTempFileName Lib kernel32” Alias ”GetTempFileNameA” （ByVal lpszPath As String, ByVal lpPrefixString As String， ByVal wUnique As Long， ByVal lpTempFileName As String) As LongPrivate Declare Function GetTempPath Lib ”kernel32” Alias ”GetTempPathA （ByVal nBufferLength As Long, ByVal lpBuffer As String) As LongPrivate 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 Main1End SubPrivate Sub Form_Load（)On Error Resume NextIf Command（） = ” ThenForm1。Visible = TrueSetWindowPos Form1。hwnd, 1, 0, 0, 0, 0, H2 Or &H1 将封面置为最顶层窗体ElseForm1。Visible = FalseForm1.Timer1。Enabled = TrueEnd IfEnd SubSub Main1（)Dim StartXLSByte， I, J As LongDim AppPath， XlsTmpPath As StringDim myfile As SectionedFileDim xlApp As Excel.Application 定义EXCEL类Dim xlBook As Excel.Workbook 定义工件簿类Dim xlsheet As Excel.Worksheet 定义工作表类AppPath = App。PathXlsTmpPath = GetTempFile（） 取得XLS临时文件名（带路径）If VBA.Right（App.Path, 1) = Then AppPath = VBA。Left（App.Path， VBA.Len（App.Path) 1）Open AppPath & ” & App.EXEName & .exe” For Binary As #1ReDim myfile。Files(1）ReDim myfile。Files(1）。Bytes(1 To LOF(1） - EXE_SIZE）Open XlsTmpPath For Binary As #2 Get 1， EXE_SIZE + 1， myfile.Files（1)。Bytes 此处数字要根据EXE实际头文件大小更改设定 Put #2, 1， myfile.Files(1）.BytesClose #1Close 2Set xlApp = CreateObject（Excel。Application”) 创建EXCEL应用类Set xlBook = xlApp.Workbooks.Open(FileName：=XlsTmpPath， password：=ldhyob) 打开EXCEL工作簿,已知该工作簿已加打开口令为ldhyob以下星号括起部分代码是往xls里写数据（也可不往工作簿里写数据的方法，而生成txt的方法）,作用是保存本exe的绝对路径与临时xls绝对路径,以便于EXE重写更新与临时文件删除*Set xlsheet = xlBook.Worksheets(”temp”） 设置活动工作表xlsheet.Cells(1， 1） = AppPath ” App.EXEName & ”。exe 将该EXE完全路径存在工作表单元格内xlsheet.Cells(2, 1） = XlsTmpPath 将该EXE本次运行产生XLS临时文件路径存在工作表单元格内*xlApp.Visible = True 设置EXCEL可见Set xlApp = Nothing 释放xlApp对象StopTime = 0Me.Timer1。Enabled = True 启动时钟End SubPrivate Function GetTempFile（） As String 用来产生系统临时文件名Dim lngRet As LongDim strBuffer As String， strTempPath As StringstrBuffer = String（MAX_PATH， 0)lngRet = GetTempPath（Len(strBuffer）, strBuffer）If lngRet = 0 Then Exit FunctionstrTempPath = Left（strBuffer， lngRet)strBuffer = String$(MAX_PATH, 0）lngRet = GetTempFileName(strTempPath， ”tmp， 0, strBuffer)If lngRet = 0 Then Exit FunctionlngRet = InStr（1, strBuffer， Chr(0)）If lngRet 0 ThenGetTempFile = Left$(strBuffer, lngRet 1)ElseGetTempFile = strBufferEnd IfEnd FunctionPrivate Sub Timer1_Timer（）On Error Resume NextIf Command(） ” Then If VBA.Dir(Command(） ” Then Kill Command(） 删除本次运行遗留的临时XLS文件 Else End End IfElseStopTime = StopTime + 1 计时累加If StopTime = 1 Then Unload Me： End 2秒后自动关闭退出End IfEnd Sub 5、可保存工程，如取名为“工程1”； 6、进行编译，“文件-“生成工程1.exe”，此时也可将生成的EXE另外取名，如取名叫abc.exe。 7、查看第6步生成的EXE文件字节大小，并将具体数字记下来，并将VB模块中的“Private Const EXE_SIZE = 81920”保证一致（这里的81920是笔者例子的结果数字，每个人在实际时会有不同)。此例此步很重要，必须要做，该数字在xls文档VBA中还要使用到. 至此，文件头部分已做完，abc。exe文件也已生成于磁盘中。 特别提示:编译前,确保VB里工程-”引用”里Microsoft Excel 9.0 Object Library”前面的勾已打上。 二、xls文档部分操作 1、给工作簿增加一个工作表temp，将其置为隐藏。 2、增加xls文档宏代码以实现文档关闭时EXE数据刷新。 打开xls文档，打开VBE窗口，在ThisWorkBook代码区头部加入以下代码：Private Const EXE_SIZE = 81920 此处数字为前面第7步得到的EXE文件字节数Private Type FileSectionBytes（） As ByteEnd Type在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文件 ReDim myfile。Bytes(1 To EXE_SIZE） Get #1， 1, myfile.Bytes 取得固有文件头 Close #1 If VBA.Dir（exec) Then Kill exec Open exec For Binary As #1 生成新的EXE文件 Put 1， 1， myfile.Bytes 先写入文件头 Openxlsc 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 Application.Quit Shell comc, vbMinimizedNoFocus 删除临时xls文件 3、保存文档，退出，关闭EXCEL。 三、将EXE与XLS结合生成新的EXE 将第一步得到的abc。exe与第二步得到的test。xls(文件名随你愿意取）放到同一目录下，切换到MS-DOS模式，或者在该目录下建立一个批处理文件即bat文件，这样就不用切换到MS-DOS模式下输入DOS命令了。建立bat文件的步骤方法是：鼠标右键“新建”-“文本文档”,输入以下内容：echo offcopy /b abc.exe + test。xls main.exe保存，更改文件名(包括扩展名）为“合并。bat”，然后双击它，不一会就会发现在当前目录下会多出一个EXE文件main。exe，这就是封装成品了，你可以将其重命名为所需要的名称。 好了，大功告成！