用以下代码显示出现在已经引用的所有类库的名称 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")