Access交流网
电 话:0760-88315075
热 线:0760-88315075
邮 编:528463
咨询QQ:1918333016
营销QQ:4008553990
Email:1918333016@qq.com
动态引用 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 方法建立实例。