VBA封装成exe示例

chlele

前言：
      论坛上有很多dll的封装示例了。但是dll总是需要注册，而且如果你没注册权限的话根本没法使用。所以就想到封装成exe文件，然后用shell调用。其实exe封装和dll封装是同样的东西，只不过最终封装成exe的形式。
      具体示例如附件所示。附件包含源文件。请把附件的"测试.xls" 和 "Test.exe" 两个文件放在同一个文件夹下面，打开测试.xls进行测试。
      如果直接点击exe文件，只显示About。 如果把本机日期改到2013，将会显示软件过期提示，然后程序直接退出。
exe封装示例.rar (21.42 KB, 下载次数: 11536)

2012-5-9 20:32 上传

点击文件名下载附件

具体步骤如下：
  1. 新建一个标准exe工程，如下图所示：


2. 写模块代码，具体如附件。其中Sub Main() 是程序的入口，其他的是功能模块，根据需求写。
Public XL As Object
Public scmd As String
Sub Main()
If Now() >= #1/1/2013# Then
    MsgBox "软件已过期，谢谢使用！", , "提示"
    End
End If
scmd = Command()
   
If scmd = "Test1" Then Call Test1
If scmd = "Test2" Then Call Test2
If scmd = "About" Then Call About
If scmd = "" Then Call About
End Sub

Sub Test1()
    Set XL = GetObject(, "Excel.Application")
    XL.Cells.Clear
    For I = 1 To 25
        For J = 1 To 25
        If J <= I Then XL.Cells(I, J) = I * J
        Next J
    Next I
    MsgBox "完成！"
End Sub

Sub Test2()
MsgBox "你调用了 " & scmd & " 程序"
End Sub

写完代码以后工程的属性如下图：


3. exe封装的文件和dll封装的类使用是不一样的。exe需要用shell 调用，示例如下：
Sub Test()
Shell """" & ThisWorkbook.Path & "\Test.exe" & """Test1"
End Sub

Sub Test2()
Shell """" & ThisWorkbook.Path & "\Test.exe" & """Test2"
End Sub

Sub About()
Shell """" & ThisWorkbook.Path & "\Test.exe" & """About"
End Sub





补充内容 (2016-4-24 17:07):
最后Shell调用代码可以简化如下：
Sub Test()
    Shell ThisWorkbook.Path & "\Test.exe Test1"
End Sub

Sub Test2()
    Shell ThisWorkbook.Path & "\Test.exe Test2"
End Sub

补充内容 (2016-5-22 01:00):
用Shell调用是异步的，用WScript.Shell.Run 可以实现同步：
Sub Shell_同步()
    Dim WShell As Object
    Set WShell = CreateObject("WScript.Shell")
    WShell.Run "calc.exe", 0, True
    MsgBox "OK"
E...

补充内容 (2016-5-22 01:05):
所谓异步就是 开始执行shell,但还没完成，已经执行下一个语句了。
同步是指执行完一句再执行下一句，包括Shell.

lotteryman

谢谢！！！楼主分享。

jiminyanyan

谢谢！！！楼主分享。

sunxh

谢谢！！！楼主分享。

zhaogang1960

谢谢分享！

lotteryman

楼主，
我已可以成功封装EXE文件了，也可以正常运行了。
但是：
1， 速度慢了很多，以前不封装前，10秒就可以完成计算，封装成DLL也是10秒，但是封装成EXE，却要运行40秒！
2，是可以正常运行，结果也是对的，但是却在运行完成之后，出现以下错误提示：
   run-time error '1004'  application -defined or object -defined error.
是什么原因使程序变慢了？

EH2003

谢谢！！！楼主分享。

chlele

lotteryman 发表于 2012-5-9 22:24 楼主， 我已可以成功封装EXE文件了，也可以正常运行了。 但是：

1.我没有看到代码，所以无法分析具体变慢原因。
2.在Main Sub 最后加Set XL=Nothing 或在开始加On Error Resume Next试试。

chlele

zhaogang1960 发表于 2012-5-9 22:10
谢谢分享！

谢谢版主老大鼓励！^_^

wangminbai

好，很不错~~~~~~