VB6封装EXE文件运行Excel代码教程

microyip · 发表于 2017-5-31 06:54

本帖最后由 microyip 于 2017-5-31 06:55 编辑

刚刚昨天看到一个关于“Excel封装EXE的VBA”的贴，利用EXE文件直接对未开启低宏安全的Excel执行代码的好贴。或许很多人想看看如何做到的。在此向大家介绍操作方式。

开发工具：VB6精简版
如果没有安装的，可以下载附件进行安装。当然这个开发工具也可以封装ActiveX DLL文件哦。

vb6精简版.part1.rar (2 MB, 下载次数: 1226)

vb6精简版.part2.rar (2 MB, 下载次数: 1778)

vb6精简版.part3.rar (1.86 MB, 下载次数: 884)

代码准备：（在附件

VB6直接启动未设置宏安全的Excel代码(By.Micro).rar (12.05 KB, 下载次数: 1099) 里Excel工作簿内有代码可以复制）

Option Explicit
Sub Main()
Dim sPath As String
Dim ExcelApp As Excel.Application '定义ExcelApp为Excel程序对象
Dim bCreatApp As Boolean
Dim wWB As Workbook
sPath = App.Path & "" '获取当前Exe文件所在文件夹
On Error Resume Next '遇到出错时执行下一语句
Set ExcelApp = GetObject(, "Excel.Application") '获取已经打开的Excel程序
bCreatApp = ExcelApp Is Nothing '判断是否获取了Excel程序，如果ExcelApp是Nothing时表示Excel程序没有被运行
On Error GoTo 0 '恢复出错时提示错误并停止执行功能
If bCreatApp Then '没有运行Excel程序时
Set ExcelApp = CreateObject("Excel.Application") '运行Excel程序
ExcelApp.Visible = True '将Excel程序界面显示出来
End If
With ExcelApp '在Excel程序里
If bCreatApp Then
Set wWB = .Workbooks.Add '新建一个Excel工作簿
With wWB '在新建的Excel工作簿内
With .Sheets(1) '在第一个表内
.[A1] = .[A1] + 1
End With
.SaveAs sPath & "VB6测试程序(By.Micro).xlsx" '保存工作簿
.Close '关闭工作簿
End With
Else
Set wWB = .Workbooks.Open(sPath & "VB6测试程序(By.Micro).xlsm") '打开已有的工作簿
.Run "测试程序" '运行工作簿内已有过程
wWB.Close True '关闭并保存工作簿
End If
If bCreatApp Then .Quit '如果原本没有运行Excel程序时关闭Excel程序
End With
End Sub

复制代码

上述代码只是演示用，大家可以根据自己实际需要进行相关修改。

生成EXE文件
打开VB6开发工具，新建“标准 EXE”，对右边“工程-工程1”窗口进行操作
1、对着“工程1”右键，“工程1 属性”，“启动对象”改为“Sub Main”,“工程名称”改为你想要的名字，本演示里改为“VB6直接启动未设置宏安全的Excel代码”，确定
2、对着窗体“Form1”右键——移除，
3、右键“添加”——“添加模块”，在模块代码窗口里把代码复制粘帖进去。
4、VB6的菜单“工程”——“引用”,把代表Excel程序的“Microsoft Excel 14.0 Object Library”勾上。（这个是Excel2010版本的，如果是其他版本，可以对应勾上Microsoft Excel xx.0 Object Library）
5、VB6的菜单“文件”——“生成VB6直接启动未设置宏安全的Excel代码.EXE”——选择保存位置后
成功生成一个EXE文件了，你来试试？

microyip · 发表于 2017-5-31 07:12

liucqa 发表于 2017-5-31 07:09
有没有试过用你这个启动64位excel

尚未试过，因为安装的都是32位office呢，请指正

microyip · 发表于 2017-5-31 15:06

lzqlaj 发表于 2017-5-31 15:02
谢谢楼主浏览本人的帖子，代码大概如此。没有工作簿新建一个，并填写单元格内容，有则打开。

你的贴是好贴，好建议，好做法。我的只是效仿一下而已。至于是新开工作簿还是打开现有工作簿，纯粹是一个示范，实操的朋友们可以根据自己具体需求变通。

microyip · 发表于 2017-5-31 15:27

lzqlaj 发表于 2017-5-31 15:21
Private Sub Form_Load()
Dim xlApp As Excel.Application 'Excel对象
Dim xlbook As Excel.W ...

建议把Form_Load过程名改为Main放模块里，程序启动使用Sub_Main即可，原先的窗体就无需存在，文件相对会缩小一丁点大小，使用时内存也相应少一丁点。

abclmc · 发表于 2018-2-24 17:04

这个要留名参考

qinyu0745 · 发表于 2018-4-17 10:57

学习一下，但是出现未定义报错，指点一下，谢谢。

microyip · 发表于 2018-4-17 16:18

qinyu0745 发表于 2018-4-17 10:57
学习一下，但是出现未定义报错，指点一下，谢谢。

注意一下上面的第4点，需要引用Excel的

咸味 · 发表于 2018-5-19 13:49

此处留名学习

qinyu0745 · 发表于 2018-5-20 11:17

留个记号，以后有大用

Ting666 · 发表于 2018-5-22 19:34

感谢分享，好好学习学习~

		自动登录	找回密码
密码			免费注册

[分享] VB6封装EXE文件运行Excel代码教程

评分

评分