vb封装vba代码成exe文件

VB封装Excel_VBA成DLL技巧

VB封装Excel_VBA成DLL技巧

使用VB6.0在WinXP_sp2、Excel 2000环境下制作、测试通过。一、启动VB6.0： 执行：“文件夹(F)”——“新建(N)”——选择“ActiveX DLL”，如下图1：二、引用：VB中对Excel的引用 执行：“工程(P)”——“引用(N)”——选择所要引用的项目：如下图2 Excel 2000中：

Microsoft Excel 9.0 Object Library

Microsoft Office 9.0 Object LibraryExcel 2003中： Microsoft Excel 11.0 Object Library

Microsoft Office 11.0 Object Library三、编写代码： 1、将工程默认名称“工程1”，改为“zygtest”，将类模块默认名称“Class1”， 改为“zyg365”，

2、在类模块的代码编辑区写入代码：如下图3

模块名称为“hongtong”，代码如下 在VB中编写代码时：要注意以下声名 Dim XLAPP As Object

Set X

VBA代码封装过程

一、函数和子过程的封装过程 二、封装后函数和子过程的调用 三、窗体的封装和调用 四、com加载项的制作

五、利用com加载项制作功能区

如果你写VBA代码只是给自己使用或者不介意和别人共享代码，那么就用不到封装。

我们一般用VB6.0作为VBA代码的封装工具，VBA代码的封装在我理解就是将VBA代码修改成VB6.0能运行的代码，然后利用VB6.0可以制作dll文件的特点将所有代码封装在dll文件中，最后我们可以通过安装加载项或者引用的方式在工作表界面或VBA界面调用其中的函数、子过程和窗体。下面让我们具体看下VBA代码的封装过程（封装调用环境：xp系统，excel2007，VB6.0）：

一、函数和子过程的封装过程

函数和子过程也就是function过程和sub过程。封装的过程如下： 1、在vba编写代码，此次实验的代码如下,包含一个函数过程和一个子过程：

Function ceshi(a, b) ceshi = a + b End Function Sub ceshi1()

MsgBox Application.Name End Sub

2、打开VB6.0，新建工程，选择ActiveX dll，然后点打开。

3、点打开

[原创]XLS封装成EXE制作全攻略

XLS封装成EXE制作全攻略 ■ ldhyob 2003.12

曾在论坛发表过一张帖，是关于制作动态EXE例子(http://www.officefans.net/cdb/viewthread.php?tid=15781)的，大家对此兴趣颇浓，都建议公开详细制作细节，故决定写出此文以帮助关注那张帖的版友们能完全自已独立完成xls2exe的过程，实现简单的封装。首先申明，将xls做成exe并不是指就能使您的VBA工程受到坚强的保护，当然您可以通过数种方法来提高xls文档VBA工程防止查看的保护几率，如屏蔽一些系统热键、监控VBE窗口的开启、给文档加上口令保护、加VBA口令、使VBA“不可查看”、利用宏表4.0来禁止用户取消宏来查看文档等等，但“道高一尺，魔高一丈”，所以就没有必要去追求所谓的“完美”加密……关于这些保护方法不属本文叙述范围，请版友在论坛上查看相关帖。

假如您手头已有一xls文档等待封装，假如您机子上已安装有VB6开发系统，那么请跟着往下操作：

一、用VB制作EXE文件头部分

1、打开VB，“文件”-“新建工程”-“标准EXE”；

2、此时会出现名为Form1的默认窗体编辑窗口，For

VBA封装为DLL及调用

2012-09-04 02:36:00| 分类： VB / VBA / EXCEL | 标签： |举报 |字号大中小 订阅 使用程序：

1、Microsoft Office Excel 2003 2、Microsoft Visual Basic 6.0

案例：在工作表的C1单元格得出A1单元格+B1单元格的值。 设计的VBA代码： Sub Test()

On Error Resume Next

Range(\End Sub

第一部分、使用VB6.0制作DLL文件

一、 启动VB6.0，新建一个ActiveX DLL工程：

二、 引用：在VB中对Excel的引用

不同版本的EXCEL在“引用”窗口里显示的版本号也不同： EXCEL2000（Microsoft Office 9.0）

EXCEL2002（Microsoft Office 10.0），即ExcelXP EXCEL2003（Microsoft Office 11.0） EXCEL2007（Microsoft Office 12.0） EXCEL2010（Microsoft Office 14.0） EXCEL2013（Microsoft Offi

'''VBA_1基本入门代码集

''' by daode1212 2010-10-20

Sub Msg_01() '''消息框:

MsgBox \我们将成为VBA高手!\End Sub

Sub Msg_02() '''消息框,换行:

MsgBox \我们将成为:\高手!\高手!\高手!\End Sub

Sub Msg_03()

'''消息框,双引号:

MsgBox \我们将成为VBA高手!\专家级的高手!\End Sub

Sub Msg_04()

'''消息框,当前时间:

'MsgBox \新的长征起步于:\

'MsgBox \新的VBA高手诞生于:\'MsgBox \当前日期:\'MsgBox \当前时间:\

'MsgBox \当前时钟(秒):\

'MsgBox \星期(星期日:1,星期一:2):\

'MsgBox DateDiff(\距2010-01-10的天数 ''==================字母所表示的意义===================== '' yyyy 年 '' q 季度 '' n 月

'' y 一年的日数 '' d 日

'' w 一周

Java如何生成exe文件

对于作Java桌面应用来说，比较烦人的就是安装部署问题，客户端是否安装有jre、jre版本问题、jre去哪下载、如何用jre启动你的Java应用？不要说刚接触电脑的人，就算是比较熟悉电脑，如果没有接触过Java,面对一个Java应用，如何在Windows下启动它，估计都会折腾半天。如果不是因为这个问题，Java在我的眼里算是最完美的语言了，也是我最喜爱的语言。

所以我认为这个是导致Java桌面应用被一些人所讨厌的最大原因，Java的优势是“一次编写，随处运行”,跨平台特性确实很好，但并不是每个人都需要或都想要跨平台,而且有时候JVM平台或版本问题也会造成“一次编写，到处测试”的尴尬。

最好的方式莫过于带着JRE,让用户轻松点击就能运行。下面我们来解决这样的问题，有什么好的建议或方法请其他朋友多多指教或补充！

针对windows平台，让用户一键式安装，双击使用, 使用工具exe4j + Inno Setup, 这两个工具都可以在网上找到，不熟悉的可以多搜搜，使用起来也不难。

带着JRE运行，JRE的大小应该是最让人头疼的，我默认安装的jre6大小达到80M，而程序只有200-300k

前言

我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。

而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。

第1.1例 ASC函数

一、题目：

要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。

二、代码：

Sub 示例_1_01()

Dim myNum1%, myNum2%

myNum1 = Asc("Excel") '返回69

myNum2 = Asc("e") '返回101

[a1] = "myNum1= ": [b1] = myNum1

[a2] = "myNum2= ": [b2] = myNum2

End Sub

三、代码详解

1、Sub 示例_1_01()：宏程序的开始语句。

2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。

14

也可以写为 Dim myNum1 As Integer 。Integer 变量存储为 16位（

1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.

删除重复行 ....................................................................................................................................................... 1 ActiveX控件的相关操作 ................................................................................................................................. 2 单元格内容匹配 ............................................................................................................................................... 2 单元格填充公式 ................

问题 1

将Sheet1中的一行复制到 Sheet2 上。

得 0 分，满分 20 分

正确答案

Sub RowCopy() 1.

Worksheets(\ 2.

所选答案 - [未给定] - [未给定] - [未给定]

Worksheets(\ 3.

Worksheets(\ - [未给定] 4.

Worksheets(\ 5.

End Sub 6.

- [未给定] - [未给定]

得 0 分，满分 20 分

问题 2

将A1到C6中大于等于3的数依次放入E列。

正确答案

Private Sub CommandButton1_Click()

所选答案 [未给

- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定] [未给- 定]

得 0 分，满分 20 分

1.

Dim i As Long, iRng As Range

2. 3.

If iRng.Value >= 3 Then

For Each iRng In Sheets(1).Range(\

4.

i = i + 1

讨论了当花费很多精力设计出一个PPT演示文稿后,将其转换为可独立执行的exe文件呢,以及将演示文稿的源文件进行一定程度的保护的问题。

SFW R EE0M N N EIN 0r A E VLPE T D S D A D G

软件开发与设计

如何将 P T文件打包成 ee P x文件廖明梅(临沧师范高等专科学校，云南临沧 6 7 0 ) 70 0摘要：讨论了当花费很多精力设计出一个 Pr f r演示文稿后，将其转换为可独立执行的 ee文件呢，以及将演示文 x

稿的源文件进行一定程度的保护的问题。

关键词：P r F r文件； k文件；包；护 ee打保

Ho t c g w o Pa ka e PPT l si o e e Fie Fie nt x l sLI AO i -m e M ng i

(icn ihT ahr olg Yu"a ic g6 70 C i ) Lna gH g ece C l e, nn nLn a 7 0 0, hn S e n a A s a tWh nyuse dalt f f rt ei rsnai, fe, o o vr (akg) f eidp n et bt c: e o pn otod s