VBA基础
动态引用 DLL 库
2009-04-11 10:54:43
动态引用 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 方法建立实例。