如何用vba自动添加前期引用?

在编写vba代码时,遇到需要使用的对象,有两种引用方式,一种是前期引用,也就是先在“工具”菜单下的“引用”命令中添加需要引用的库,如下图所示。

另一种是直接用 CreateObject(“Scripting.Dictionary”)语句添加的后期引用。

这两种的区别就是,前期引用可以直接列出成员属性、方法列表,后期引用不可以直接列出成员属性、方法列表。

前期引用一般都是通过手动添加要引用的库的方式实现,如果需要用vba代码自动添加需要的引用库,可以使用

References对象的AddFromGuid方法或者AddFromFile方法。

其中AddFromGuid方法直接根据全局唯一标识符字符串globally unique identifier (GUID) 添加引用,这种方法可以跨平台、跨版本、跨系统都有效。

AddFromFile方法是通过添加具体的文件路径的方法引用,这种方法有很大的局限性,不同的系统、不同的安装路径都会导致同一个库的路径不一致。

AddFromGuid方法的语法如下:

其中参数guid, major, minor分别表示引用的全局唯一标识符,major版本号和minor版本号。

具体的某个引用的guid, major, minor参数如何获得呢?

可以通过先手动添加要引用的库,然后用如下的代码列举:

比如CreateObject(“Scripting.Dictionary”)对应的引用是Microsoft Scripting Runtime,它的GUID是

{420B2830-E718-11CF-893D-00A0C9054228},major是1,minor是0。

那么下次就可以通过以下的代码自动用vba添加Microsoft Scripting Runtime:

由于如果已经手动添加了库,再次用上述代码添加会弹出“名称冲突的提示”,此时,可以添加防错语句即可。

全局唯一标识符字符串globally unique identifier (GUID) 是独立于应用程序之外的一个标识符,它不会因为引用的版本号的变化而变化。

通过AddFromGuid方法可以保证引用的准确性。

以下是一些常用的对象用AddFromGuid方法添加前期引用的代码:





       

发表评论