用以下代碼顯示出現在已經引用的所有類庫的名稱 Function displayAllDll() Dim r As Reference On Error Resume Next For Each r In References Debug.Print "類庫名:" & r.name Debug.Print "類庫文件絕對路徑:" & r.FullPath Debug.Print "是否內建:" & r.BuiltIn Debug.Print "類庫版本號" & r.Minor Next End Function
得到類庫名後你可以直接使用“後引用”的方式來建立需要的對象,比如 Dim rs Set rs = CreateObject("adodb.recordset")