用以下代碼顯示出現在已經引用的所有類庫的名稱 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")
