[已解决]怎么自动加载宏？

dadasdas

怎么加载指定加载宏？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-29 13:05

写在工作簿里。
直接写进工作簿的OPEN事件里。

跳转到最佳答案楼层

hwc2ycy

可以用代码来加载，删除的话不太方便。
有些加载宏并不会出现在加载宏列表里。

dadasdas

hwc2ycy 发表于 2013-3-29 12:41
可以用代码来加载，删除的话不太方便。
有些加载宏并不会出现在加载宏列表里。

代码怎么写？

hwc2ycy

AddIns.Add 方法
将新加载宏文件添加到加载宏列表中。返回 AddIn 对象。
语法

表达式.Add(FileName, CopyFile)

表达式   一个代表 AddIns 对象的变量。

参数

名称 必选/可选 数据类型 说明
Filename 必选 String 包含要添加到加载宏管理器列表中的加载宏的文件名称。
CopyFile 可选 Variant 如果加载宏文件在硬盘上，则省略此参数。在加载宏处于可移动介质（软盘或光盘）上时，如果为 True，就将该加载宏复制到硬盘上；如果为 False，则将该加载宏保留在可移动介质上。如果省略此参数，Microsoft Excel 将显示对话框，提示您选择。

返回值
一个代表新加载宏的 AddIn 对象。

说明


该方法不安装新的加载宏。必须设置 Installed 才能安装加载宏。


示例


此示例从 A 驱动器中添加加载宏 Myaddin.xla。运行此示例后，Microsoft Excel 会将文件 A:\Myaddin.xla 复制到硬盘上的 Library 文件夹中，并将该加载宏的标题添加到“加载宏”对话框的列表中。

Visual Basic for Applications
Sub UseAddIn()

    Set myAddIn = AddIns.Add(Filename:="A:\MYADDIN.XLA", _
        CopyFile:=True)
    MsgBox myAddIn.Title & " has been added to the list"

End Sub

hwc2ycy

AddIn.Installed 属性
如果安装了此加载宏，则该属性值为 True。Boolean 类型，可读写。
语法

表达式.Installed

表达式   一个代表 AddIn 对象的变量。

说明


将此属性设为 True 将安装指定加载宏，并调用 Auto_Add 函数。将此属性设为 False 则移去指定加载宏，并调用 Auto_Remove 函数。


示例


本示例用一个消息框显示 Solver 加载宏的安装状态。

Visual Basic for Applications
Set a = AddIns("Solver Add-In")
If a.Installed = True Then
    MsgBox "The Solver add-in is installed"
Else
    MsgBox "The Solver add-in is not installed"
End If

hwc2ycy

你等会，我自己在电脑上测试下是否能删除吧。

hwc2ycy

设置属性是可以不加载。
你加载前可以先用代码判断下你的加载宏是否已经加载了

dadasdas

hwc2ycy 发表于 2013-3-29 12:59
设置属性是可以不加载。
你加载前可以先用代码判断下你的加载宏是否已经加载了

这代码写在哪？

hwc2ycy

写在工作簿里。
直接写进工作簿的OPEN事件里。

dadasdas

hwc2ycy 发表于 2013-3-29 13:05
写在工作簿里。
直接写进工作簿的OPEN事件里。

用别的方法加载？