【Access懒人工具】用VBA代码自动引用Excel项

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

时　间:2016-09-19 09:22:41
作　者:麥田 ID：11 城市：上海 QQ：3002789054
摘　要:【Access懒人工具】用VBA代码自动引用Excel项
正　文:

网友 九江--菜鸟先飞(329237304) 问题
选择Microsoft Excel 14.0 Object Library 引用项有办法让Access系统自动选择吗?

Accessoft--麥田(2851379731)
答案当然是：有！

方法如下：

用VBA代码自动引用Excel项

     Dim REFE As References    '声明REFE为引用
     Dim strFileName As String    '声明strFileName为文本型变量
     Dim rf
     Set REFE = Application.References
     For Each rf In REFE    '在引用中循环查找
         If rf.Name = "Excel" Then    '如果名字为Excel就移动Excel的引用
             Application.References.Remove rf    '移除
             Exit For    '退出循环
         End If
     Next
     '这里的Excel启动路径为您电脑上Excel所在的Office文件夹盘符路径,2013版本为Office15,
     '如果您的是2010版本,则为Office14;2007版本为Office12;2003版本为Office11
     strFileName = "C:\Program Files\Microsoft Office\Office15\EXCEL.EXE"
     Set rf = Application.References.AddFromFile(strFileName)    '自动引用Excel

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