动态引用 DLL 库_access模块-access类模块-access函数-access VBA

动态引用 DLL 库

时间：2009-04-11 09:16 来源：access911 作者：cg1 阅读：次

动态引用 DLL 库

Public Sub DeclareDLL()
    Dim I As Boolean
    I = False
    Dim R As Reference
    For Each R In References
        If R.Name = "ADOX" Then I = True
        Debug.Print R.Name

    Next
    If I = False Then 'ADOX引用丢失
        MsgBox "ADOX引用不存在,即将加载"
        Dim PathName As String
        PathName = Application.CurrentProject.Path & "\"
        Dim Library As String
        Library = "msadox.dll"
        References.AddFromFile PathName & Library
    End If
End Sub

注意，由于上述方法修改引用，所以只适用于未编译前。

如果你要使用在编译后，请先用 Regsrv32 dllname.dll 在注册表注册，在调用时用后引用的方法，也就是 CreateObject 方法建立实例。

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：ACCESS-VBA编程第五章 ACCESS表1
下一篇：ACCESS-VBA编程第九章 VBA使用技巧3