ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 172759|回复: 205

[原创] VBA封装成exe示例

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2012-5-9 20:40 | 显示全部楼层 |阅读模式
本帖最后由 chlele 于 2012-5-9 21:02 编辑

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


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

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

写完代码以后工程的属性如下图:
exe封装示例.PNG

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.

评分

14

查看全部评分

TA的精华主题

TA的得分主题

发表于 2012-5-9 20:57 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-5-9 21:49 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
谢谢!!!楼主分享。

TA的精华主题

TA的得分主题

发表于 2012-5-9 22:08 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
谢谢!!!楼主分享。

TA的精华主题

TA的得分主题

发表于 2012-5-9 22:10 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
谢谢分享!

TA的精华主题

TA的得分主题

发表于 2012-5-9 22:24 | 显示全部楼层
楼主,
我已可以成功封装EXE文件了,也可以正常运行了。
但是:
1, 速度慢了很多,以前不封装前,10秒就可以完成计算,封装成DLL也是10秒,但是封装成EXE,却要运行40秒!
2,是可以正常运行,结果也是对的,但是却在运行完成之后,出现以下错误提示:
   run-time error '1004'  application -defined or object -defined error.
是什么原因使程序变慢了?

TA的精华主题

TA的得分主题

发表于 2012-5-9 22:25 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-5-10 01:22 来自手机 | 显示全部楼层
lotteryman 发表于 2012-5-9 22:24 楼主, 我已可以成功封装EXE文件了,也可以正常运行了。 但是:

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-5-10 18:26 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
zhaogang1960 发表于 2012-5-9 22:10
谢谢分享!

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

TA的精华主题

TA的得分主题

发表于 2012-5-10 18:45 | 显示全部楼层
本帖最后由 wangminbai 于 2012-5-10 18:45 编辑

好,很不错~~~~~~
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-23 13:50 , Processed in 0.044248 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表