问题:* S( h7 e% W3 K$ z- \/ q% k! ]
如何知道引用的相对应的名称?/ V/ I8 X6 y- x. x: i4 J" l/ H) T
我想引用在引用对话框没有的引用,但又不知道它的名称,不知有什么帮助呢?
! Z7 x7 U( P, | 如:microsoft Office 10.0 Object Library在对话框没有,那要浏览它,请问它相对应的名称是什么呢?! Q" g7 F X9 m3 V) z9 ]
还有如果看到别的人数据库有些引用,而在我的数据库的引用对话框上找不到的呢?
8 x% ^2 A4 C ~3 T8 ^; j; t 回答:
& E1 T$ L; D+ K0 r G 用以下代码显示出现在已经引用的所有类库的名称, M4 s8 R8 s' k$ n
Function displayAllDll()
; b1 u1 s" W% G+ `! ? Dim r As Reference k& r& Y. p' q: \, c
On Error Resume Next* \6 f% H& Z6 U2 D. u7 Y0 ~+ X
For Each r In References
$ W9 T/ t9 z8 _- G2 s, w J Debug.Print "类库名:" & r.name, q2 a4 H5 n, o/ V, l6 P6 Z
Debug.Print "类库文件绝对路径:" & r.FullPath$ n( u% Y- Q/ u) K
Debug.Print "是否内建:" & r.BuiltIn
, g9 E) M D0 q: d" p Debug.Print "类库版本号" & r.Minor
) F% j8 |4 M! F- b4 f Next
1 s8 U/ [) s7 v' |% M End Function- T1 t5 s2 c+ n: m L) ]8 b' I1 M
得到类库名后你可以直接使用“后引用”的方式来建立需要的对象,比如
5 \* C: U0 Y; w1 ?4 b; i Dim rs" d y; c; m( y/ v2 V# [. x
Set rs = CreateObject("adodb.recordset") |