VBA中代码加载引用(Reference DLL)方法实践

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

   三，至此引用加载完毕，在客户机器上就可以安全使用该引用。这些经过笔者昨晚测试，初步成功，在这里总结出来，希望能给大家提供一个简单可行的操作实践线索。有疑问或不同见解，欢迎交流。

          至于VBA控件的自动注册，以后经实践确认后总结再放上。