VBA中代码加载引用方法实践

VBA中代码加载引用方法实践

因为excel使用范围广泛，VBA编程极大方便了数据的处理及提供了很好的方便易用的编程环境，但也许你在编程项目处理中经常会遇到这样的情况：编写好的程序有时候在客户的电脑无法正常运行，这很大一部分原因是因为客户的电脑没注册你使用的控件和对象引用。当然你也可以指导客户通过“工具”——“引用”等手工设置解决问题。

那能不能通过代码自动完成这样的操作？如果能实现，则就可以实现VBA程序文件真正的共享？答案是肯定的，下面笔者参考网上一些资料和实践经历谈下如何自动加载可使用的引用中需要加载的对象。这里暂时没涉及VBA控件的自动注册。

一,首先不同的引用（包括版本）是不同的，唯一标识的是GUID号，而且相同版本的引用在不同的机器上这个也是确定的。所以第一步我们必须获取我们使用的该引用的GUID,Major,和 Minor三个参数。

方法可以是：

Private Sub aas()

'遍历所有已使用的引用

Dim i As Integer

i = 2

With Sheet1

For Each refed In ThisWorkbook.VBProject.References

.Cells(i, 1) = refed.Name

.Cells(i, 2) = refed.GUID

.Cells(i, 3) = refed.Major

.Cells(i, 4) = refed.Minor

i = i + 1

Next

End With

End Sub

二，获得上面三个参数后，在初始化代码中通过ThisWorkbook.VBProject.References.AddFromGuid 加载该引用。

下面以加载ado2.6为例，代码如下：

Public Sub LoadFrom()

'首先检查ADO又没安装

Dim bolFindAdo As Boolean

On ERR GoTo ERRHandle

For Each refed In ThisWorkbook.VBProject.References

If refed.Name = "ADODB" Then

If refed.isbroken Then

ThisWorkbook.VBProject.References.Remove refed'如引用已损坏，删除

Else

bolFindAdo = True

Exit For

End If

End If

Next

If bolFindAdo = False Then

'还没安装，现在安装ado2.6

ThisWorkbook.VBProject.References.AddFromGuid _

GUID:="{00000206-0000-0010-8000-00AA006D2EA4}", Major:=2, Minor:=6

End If

FrmPrint.Show 0

Exit Sub

ERRHandle:

msgbox(ERR.Description & "加载失败，请联系管理员!")

Exit Sub

End Sub

三，至此引用加载完毕，在客户机器上就可以安全使用该引用。

本文来源：https://www.2haoxitong.net/k/doc/d53758a83968011ca30091a5.html