这几天跟自动重新引用控件杠上了,也是以前经常手动引用各种控件怕了,遇到一个网友问一次引用就手动教一次,各种抓狂各种无奈,索性继续发文章给懒人参考,一劳永逸了,加上代码,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
|
使用上述代码自动引用后,再打开数据库看一下引用是不是成功了,如下图: