VBA代码添加常见的DLL及控件OCX的引用

使用代码来自动添加常见的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

发布人:zstmtony

分享到：

点击次数：更新时间：2015-01-02 23:01:11 【打印此页】【关闭】