Excel VBA 以编程方式添加引用 - VBA

在编写Excel VBA宏时，有时需要使用其他库（如ADO、XML等）提供的对象和方法。在这种情况下，我们需要以编程方式添加对这些库中的引用。本文将介绍如何以编程方式添加引用。

1. 手动添加引用

首先，我们来看一下如何手动添加引用。

1. 打开Visual Basic Editor。 在工具栏上选择“工具”>“引用”。

   

2. 在“引用”对话框中，选中您需要引用的库。假设我们选择Microsoft ActiveX Data Objects 2.8库，勾选它后按下“确定”按钮。

   

3. 在您的VBA代码中，您就可以使用这个库中的对象和方法了。

Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\myFolder\myAccessFile.mdb;"

2. 以编程方式添加引用

如果您的VBA代码需要在不同的电脑上运行，那么手动添加引用可能会带来不便。 现在，我们将介绍如何以编程方式添加引用。

在VBA中，我们可以使用VBA.Extensibility库中的VBIDE对象实现以编程方式添加引用。

以下是一个简单的例子。

Sub AddReference()
    ' 获取VBIDE对象
    Dim vbProj As VBIDE.VBProject
    Set vbProj = ThisWorkbook.VBProject
    
    ' 添加Microsoft ActiveX Data Objects 2.8库的引用
    vbProj.References.AddFromFile "C:\Program Files\Common Files\System\ado\msado28.tlb"
End Sub

在上面的例子中，我们使用VBIDE.VBProject对象获取了当前工作簿的VBProject。然后，我们使用References.AddFromFile方法添加了Microsoft ActiveX Data Objects 2.8的引用。在这个例子中，我们将msado28.tlb文件从磁盘中添加到引用中。

您可以根据需要更改库的名称和文件路径。 请注意，您需要在计算机上安装相应的库才能以这种方式添加引用。

3. 结论

在编写Excel VBA宏时，我们可能需要使用不同的库中的对象和方法。 您可以手动将库添加到引用中，也可以以编程方式添加引用。 前者非常简单，但当您将宏部署到其他计算机时，您可能需要在每个计算机上手动添加库。后者需要更多的代码，但可以让您轻松地实现库的引用。在实践中，您可以根据需要选择适合您的选项。