問(wèn)題:
如何知道引用的相對(duì)應(yīng)的名稱?
我想引用在引用對(duì)話框沒(méi)有的引用,但又不知道它的名稱,不知有什么幫助呢?
如:microsoft Office 10.0 Object Library在對(duì)話框沒(méi)有,那要瀏覽它,請(qǐng)問(wèn)它相對(duì)應(yīng)的名稱是什么呢?
還有如果看到別的人數(shù)據(jù)庫(kù)有些引用,而在我的數(shù)據(jù)庫(kù)的引用對(duì)話框上找不到的呢?
回答:
用以下代碼顯示出現(xiàn)在已經(jīng)引用的所有類庫(kù)的名稱
Function displayAllDll()
Dim r As Reference
On Error Resume Next
For Each r In References
Debug.Print "類庫(kù)名:" & r.name
Debug.Print "類庫(kù)文件絕對(duì)路徑:" & r.FullPath
Debug.Print "是否內(nèi)建:" & r.BuiltIn
Debug.Print "類庫(kù)版本號(hào)" & r.Minor
Next
End Function
得到類庫(kù)名后你可以直接使用“后引用”的方式來(lái)建立需要的對(duì)象,比如
Dim rs
Set rs = CreateObject("adodb.recordset")
如何知道引用的相對(duì)應(yīng)的名稱?
我想引用在引用對(duì)話框沒(méi)有的引用,但又不知道它的名稱,不知有什么幫助呢?
如:microsoft Office 10.0 Object Library在對(duì)話框沒(méi)有,那要瀏覽它,請(qǐng)問(wèn)它相對(duì)應(yīng)的名稱是什么呢?
還有如果看到別的人數(shù)據(jù)庫(kù)有些引用,而在我的數(shù)據(jù)庫(kù)的引用對(duì)話框上找不到的呢?
回答:
用以下代碼顯示出現(xiàn)在已經(jīng)引用的所有類庫(kù)的名稱
Function displayAllDll()
Dim r As Reference
On Error Resume Next
For Each r In References
Debug.Print "類庫(kù)名:" & r.name
Debug.Print "類庫(kù)文件絕對(duì)路徑:" & r.FullPath
Debug.Print "是否內(nèi)建:" & r.BuiltIn
Debug.Print "類庫(kù)版本號(hào)" & r.Minor
Next
End Function
得到類庫(kù)名后你可以直接使用“后引用”的方式來(lái)建立需要的對(duì)象,比如
Dim rs
Set rs = CreateObject("adodb.recordset")