动态引用 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 |
注意，由于上述方法修改引用，所以只适用于未编译前。
如果你要使用在编译后，请先用 Regsrv32 dllname.dll 在注册表注册，在调用时用后引用的方法，也就是 CreateObject 方法建立实例。
