使用代码来自动添加常见的DLL及控件OCX的引用

Public Function AddRef()

 

On Error Resume Next

Application.References.AddFromFile "C:\WINNT\system32\STDOLE2.TLB"

Application.References.AddFromFile "C:\PROGRA~1\COMMON~1\MICROS~1\DAO\dao360.dll"

Application.References.AddFromFile "C:\Program Files\Common Files\system\ado\msado25.tlb"

Application.References.AddFromFile "C:\xbhrm\ocx\ctToolBar.ocx"

Application.References.AddFromFile "C:\WINNT\system32\ctExplorer.ocx"

Application.References.AddFromFile "C:\xbhrm\ocx\ctTabs.ocx"

Application.References.AddFromFile "C:\WINNT\system32\MSCOMCTL.OCX"

Application.References.AddFromFile "C:\xbhrm\ocx\command.ocx"

Application.References.AddFromFile "C:\xbhrm\ocx\commandsce.ocx"

 

End Function