【Access懒人工具】用VBA代码自动引用OLE项|代码引用OLE Automation

来源:www.accessoft.com 点击数:9661 　 | 收藏 | 复制

时　间:2013-12-07 00:13:24
作　者:麥田 ID：11 城市：上海 QQ：3002789054
摘　要:【Access懒人工具】用VBA代码自动引用OLE项|代码引用OLE Automation
正　文:

这几天跟自动重新引用控件杠上了，也是以前经常手动引用各种控件怕了，遇到一个网友问一次引用就手动教一次，各种抓狂各种无奈，索性继续发文章给懒人参考，一劳永逸了，加上代码，Access程序会自动检测。

     '用VBA代码自动引用OLE Automation项
    Dim REFE As References     '声明REFE为引用
    Dim strFileName As String   '声明strFileName为文本型变量
    Dim rf
    Set REFE = Application.References
    For Each rf In REFE    '在引用中循环查找
        If rf.Name = "OLE" Then    '如果名字为OLE就移动OLE的引用
            Application.References.Remove rf    '移除
            Exit For    '退出循环
        End If
    Next
    strFileName = "C:\Windows\System32\stdole2.tlb"
    Set rf = Application.References.AddFromFile(strFileName)    '重新引用OLE

使用上述代码自动引用后，再打开数据库看一下引用是不是成功了,如下图: