动态添加或删除引用

动态添加引用示例：
On Error Resume Next
Dim REF As Reference
Dim strfilename As String
strfilename = "c:\program files\common files" & _
"\system\ado\msado21.tlb" 路径由引用窗体获得
Set REF = Application.References.AddFromFile(strfilename) 必须加APPLICATION
MsgBox REF.Name & "已经被引用完毕" 获得应用名称的途径

动态删除引用示例：
On Error Resume Next
Dim REFE As Reference
Set REFE = Application.references!ADODB 由添加时的REF.NAME获得
Dim REF As String
REF = REFE.Name
Application.references.Remove REFE 必须加APPLICATION
MsgBox REF & "已经被取消引用" 获得应用名称的途径

发布人:sunredda…

分享到：

点击次数：更新时间：2005-08-16 12:20:14 【打印此页】【关闭】

上一条：如何诊断/修复损坏的 Jet 4.0 数据库下一条：VB中利用Winrar进行文件压缩