EXCEL加载宏如何制作成安装文件。要详细过程，谢谢！！！

供参考：

**********************************************************************************************

EXCEL加载宏制作攻略

[日期：2007-08-01] 来源：  作者：QEE用 [字体：大 中 小]

一、概述

1．制作加载宏的一般步骤

（1）创建一个新的工作薄，在其中添加代码。

（2）在“文件”菜单上单击“属性”。在“文件名 属性”对话框中，单击“摘要信息”选项卡，然后在“标题”框中为加载宏指定一个您希望在“加载宏”对话框中出现的名称，在“备注”框中输入您希望当用户从“加载宏”对话框选择该加载宏时在“加载宏”对话框下方出现的说明信息。斗洞孙

（3）在“文件”菜单上单击“另存为”。在“另存为颤慎”对话框中，从“保存类型”框中选择“Microsoft Office Excel 加载宏（*.xla）”，然后再选择保存空链路径，并可在“文件名”框中修改文件名。

2．加载宏的加载和卸载

通过在“工具”菜单上单击“加载宏”，可以加载制作好的加载宏文件，如果它不在列表中，可以在“加载宏”对话框中单击“浏览”找到它，当某个加载宏名称前的复选框被选中时，说明它已经加载，取消选中复选框即为卸载该加载宏。

3．加载宏的作用

加载宏可以扩展EXCEL的功能，将代码写在加载宏中和写在普通的工作簿中相比，有如下优点：

（1）加载宏对所有打开的EXCEL文件都生效。普通工作簿的代码一般只在特定的工作簿中才生效。

（2）加载宏不受宏安全级的限制，也不会有宏运行的提示。即使将安全级设为“非常高”，加载宏就象EXCEL本身固有的功能一样工作。同样，它也不会被按住的Shift屏蔽。

特别提请不习惯使用加载宏而专门VBA代码书写的朋友们注意的是，加载宏的所有好处和优点，都是属于EXCEL的常规 *** 作者的，虽然加载宏中的代码可以被其他工作簿（中的代码）调用，但这样做是繁琐而低效的，千万不要把它当成了C中的“头”文件或链接库。也许不会有很多人这样认为，但笔者初学VBA的时候，真的这样天真过。

（3）加载宏在运行时其工作簿窗口是隐藏的，因此普通用户并不会感觉到它的存在。

二、处理加载宏函数

加载宏函数似乎是制作加载宏中最简单的，通常它只需要在模块中写一段Function代码，它就会和EXCEL自身的函数一样使用，并且出现在“插入函数”对话框的列表中。关于函数的制作，再没有其它的吗？

1．为函数添加说明信息

至少你可以通过对象浏览器设置“属性”为函数添加一段说明信息（对需要换行的说明可以在编辑时使用组合键CTRL+ENTER），这些信息当用户使用“插入函数”对话框时就会看到。需要说明的是，在对象浏览器中为函数添加说明信息必须在“另存为”加载宏之前，一旦文件名的后缀变为了XLA，函数的属性设置将不被接受。

关于为函数定制说明信息，请参见：图示自定义函数描述信息及有关介绍。

现在，请你新建一个工作簿，插入模块，粘贴下面的代码：

Function dx(n)

' by gly1126 金额小写转换为大写

dx = Replace(Application.Text(Round(n+0.00000001, 2), "[DBnum2]"), ".", "元")

dx = IIf(Left(Right(dx, 3), 1) = "元", Left(dx, Len(dx) - 1) & "角" & Right(dx, 1) & "分", IIf(Left(Right(dx, 2), 1) = "元", dx & "角整", IIf(dx = "零", "", dx & "元整")))

dx = Replace(Replace(Replace(Replace(dx, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")

End Function

如果觉得必要，你可以设置文件属性（见一、1．（2））并为该函数添加说明，先把它做为普通的工作簿保存（我们后面还会继续用它）再另存为XLA，然后感受一下它的效果吧。

对已经成为XLA文件的函数说明的添加及修改并不需要总是手工先还原为XLS文件，我们稍后就会提到MacroOptions方法。在此之前，先来说一下与加载宏相关的Workbook事件：

（1）AddinInstall和AddinUninstall。这两个事件分别发生在加载宏加载和卸载时的，因此使用这两个事件的工作簿一定是XLA工作簿，你需要记住的是，它们在加载宏作用期内各自只会发生一次，加载宏加载后每次EXCEL的打开和关闭都不会触发它们。

（2）Open和BeforeClose。和上两个事件不同，这两个事件在加载宏作用期内会被多次触发，除了分别发生在AddinInstall后和AddinUninstall前之外，每次打开和关闭EXCEL时都会触发它们。

清楚了上述特性，你就应该知道如何合理安排加载宏的初始化代码。

2．为函数分类

默认情况下，当用户使用“插入函数”时，加载宏函数会被分类放在“用户定义”类别中。

哦，没有个性！有的朋友甚至还会有被歧视的感觉呢，怎样才能和EXCEL自身的函数一样被放在“财务”类呢？我们会想到MacroOptions方法：

Application.MacroOptions Macro:="dx", Category:=1

不熟悉这个方法不要紧，看完后面的例子你再去查看一下它的帮助，很快就会掌握的。

现在的问题，上面的语句放在哪儿呢？首先把它放在AddinInstall事件中看看，你会发现，在第一次加载时，目的确实达到了，但当你关闭EXCEL重新打开时，却发现它又回到了“用户定义”中，看来需要放在Open事件中：

Private Sub Workbook_Open()

ThisWorkbook.IsAddin = False

Application.MacroOptions Macro:="dx", Category:=1

ThisWorkbook.IsAddin = True

ThisWorkbook.Saved = True

End Sub

你会发现，除了我们需要的，又增加了3条语句，这是因为加载宏文件与普通EXCEL文件除了后缀形式上的区别外，一个重要的内在区别就是IsAddin属性，该属性为True 说明是加载宏工作簿，MacroOptions方法对宏的设置不能在隐藏的工作簿中进行，需要先将还原为普通工作簿，加入宏设置后再改回。这两次改变不会触发AddinInstall和AddinUninstall事件，但EXCEL会记住普通EXCEL文件的修改，因此在完成设置后，还需要加一句ThisWorkbook.Saved = True以使EXCEL忘记这种改变。

下面列出了EXCEL内部分类对应的Category参数的整数。

1：财务           2：日期与时间     3：数学与三角函数

4：统计           5：查找与引用     6：数据库

7：文本           8：逻辑           9：信息

如果你不想记住这些整数的含义，你可以直接写成：

Application.MacroOptions Macro:="dx", Category:= "财务"

那么是否可以为加载宏函数增加一个新类别呢？很简单！只需要将上面的Category参数改变一下就可以了：

Application.MacroOptions Macro:="dx", Category:= "财务扩展函数"

上句会在“插入函数”对话框中增加一个新类别“财务扩展函数”，并把dx函数放入其中。

MacroOptions方法还有其它一些参数，可以帮助我们，包括为函数添加说明，下面语句在分类的同时会为函数增加说明。

Application.MacroOptions Macro:="dx", Description:="金额小写转换为大写" & vbCr & "参数N：要转换的金额。", Category:="财务扩展函数"

让我们再次回到Open事件中，看看这3句代码：

ThisWorkbook.IsAddin = False

ThisWorkbook.IsAddin = True

ThisWorkbook.Saved = True

在加载宏文件中使用类似在无耐情况下才采用的变通代码，达到的目的仅仅是一般人并不注意的函数分类，我想我已经把你引入歧途，真的很抱歉。我该如何纠正呢？

我无意保留一个没有多大实用价值的技巧，我更希望由你说出来……

三、处理加载宏过程

加载宏的另一个重用功能就是提供扩展的 *** 作，这通常是写在模块中的Sub过程。设计加载宏过程应注意两个方面，一是代码实体，二是提供适当的接口方式以便用户可以使用这些 *** 作。

在代码实体的设计上，加载宏代码与其它VBA代码看上去也许没有太多的差别，但它要求设计者更为密切地注意加载宏的运行环境，对象成员的使用也更应规范和严谨。比如，喜欢混用ThisWorkbook和ActiveWorkbook的朋友要好好看看帮助文档中二者的差别了。

现在请在模块中粘贴下面的代码：

Sub HVCenter()

' 这段代码的含义很简单，让选定区域文字水平垂直居中

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

End With

End Sub

在接口处理上，一般有3种处理方式。

1．快捷键

为过程设置快捷键可以在另存为加载宏文件前在“工具”菜单上单击“宏”-“宏”，在“宏”对话框中，单击“选项”按钮完成。也可使用前面介绍过的MacroOptions方法设置。

Application.MacroOptions Macro:="", HasShortcutKey:=True, ShortcutKey:="A"

2．菜单

通过在系统菜单上增加菜单项可以将 *** 作提供给使用者，加载宏是对EXCEL基本功能的扩充，一般不提倡使用自定义菜单来代替系统菜单。

3．工具栏

可以使用EXCEL现有的工具栏上增加按钮也可以通过新建工具栏来完成。下面代码将前面的过程关联到新建的菜单项和工具栏上。

Private Sub Workbook_AddinInstall()

On Error Resume Next

'新建菜单

With Application.CommandBars(1).Controls.Add(Type:=msoControlPopup)

.Caption = "测试(&T)"

With .Controls.Add(Type:=msoControlButton)

.Caption = "居中"

.OnAction = "HVCenter"

End With

End With

'新建工具栏

With Application.CommandBars.Add(Name:="myCmdbar")

.Position = msoBarTop

With .Controls.Add

.FaceId = 352

.Caption = "居中"

.OnAction = "HVCenter"

End With

.Visible = True

End With

End Sub

由于工具栏和菜单生成后不会随EXCEL的关闭而消失，因此创建工具栏和菜单的代码一般应写在AddinInstall事件中，并且在加载宏卸载时随之卸载。下面代码卸载前面创建的工具栏和菜单。

Private Sub Workbook_AddinUninstall()

On Error Resume Next

Dim ctl As CommandBarControl

'卸载工具栏和菜单

Application.CommandBars("myCmdbar").Delete

For Each ctl In Application.CommandBars(1).Controls

If ctl.Caption = "测试(&T)" Then ctl.Delete

Next ctl

End Sub

四、处理加载宏事件

原则上讲，加载宏事件应对所有打开工作簿发生的事件进行处理。加载宏事件的设计相对函数和过程的设计而言通常要复杂得多，它要求设计者具有一定的类知识和良好的代码组织能力。具体设计主要应解决两方面问题，一是事件代码本身，二是将预作的“事件代码”和对象关联。我们仍通过实例，继续前面的设计来介绍。

任务：让加载宏实现当用户在活动工作簿的活动工作表选择某一区域时，状态栏显示该区域的范围。

1．设计事件代码

（1）分析要用的对象和事件

不难知道，本例需要Workbook对象的SheetSelectionChange的事件。首先使用WithEvents关键字定义一个Workbook对象。

Dim WithEvents wkb As Workbook

注意，WithEvents关键字不能在标准模块中使用，因此，代码一般写在Thisworkbook中。

（2）书写事件代码

Private Sub wkb_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Application.StatusBar = "你选择的区域:" & Replace(Target.Address, "$", "")

End Sub

2．关联对象

（1）分析需要关联的所有情况

写好了上面的代码，如何将它与活动工作簿关联呢？首先应该分析可能进行关联的时机。以本例，大体我们将需要（改变）关联，即活动工作簿发生变化的情况列示如下：

a.当新建工作簿时，关联对象为新建的工作簿

b.当新打开工作簿时，关联对象为新打开工作簿

c.当在两个工作簿之间切换时，关联对象为新切换到的工作簿

（2）完成关联代码

上面的分析知道，需要用到Application级的事件。定义Application对象，写入相应的事件，然后在Open事件中将它关联到当前的Application即可。汇合前面的代码如下：

Dim WithEvents app As Application

Dim WithEvents wkb As Workbook

Private Sub app_NewWorkbook(ByVal Wb As Workbook)

Set wkb = Wb

End Sub

Private Sub app_WorkbookOpen(ByVal Wb As Workbook)

Set wkb = Wb

End Sub

Private Sub app_WorkbookActivate(ByVal Wb As Workbook)

Set wkb = Wb

End Sub

Private Sub wkb_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Application.StatusBar = "你选择的区域:" & Replace(Target.Address, "$", "")

End Sub

Private Sub Workbook_Open()

'关联到Application

Set app = Application

End Sub

还有一个问题，上面处理的都是加载宏加载后的关联，当加载宏加载时，调用加载宏的工作簿呢？你是否认为可以在上面的Open事件中加入：

Set wkb = ActiveWorkbook

就可以了呢？答案是否定的。正确的做法是使用属性过程和Auto_Open，首先在ThisWorkbook中加入下面的属性过程：

Property Let ActiveWkb(ByVal wk As Workbook)

Set wkb = wk

End Property

然后再在模块代码中加入Auto_Open过程：

Private Sub Auto_Open()

ThisWorkbook.ActiveWkb = ActiveWorkbook

End Sub

我把这个放在最后，目的是提请你注意Open和Auto_Open的区别。

（图）

生成lisp文档：打开记事本，将你手上的代码复制到记事本中，另存为后缀名为LSP的文件，请确保不要存成 “*.lsp.txt” ，这个文件事实上还是记事本文档，CAD不认的。

加载并读取：直接把后缀名是lsp的文件，拖动到CAD黑色的图形区域内，就能实现加载。

执行：此时需要注意执行的命令名.需要打开lsp文件查看，通常查找(defun c:xx()),其中XX位置的为橡前代码顷掘的执行命令。

如果你想让这个lisp程序，每次打开CAD的时候自动加载的话，可以将这个lsp文件拷贝到CAD的雀如核support目录下，然后执行appload，打开对话框中启动栏，选择support目录下的程序即可。

祝你好运！

如果图片不多的话，可衡旅以用几个picturebox或image控件，调用你图片，再将控件的visible属性设置为False，这样绝激界面上就看不到图片了，你可以直接调用控件中的图片显示并拦袜在其它地方。

---