Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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

时 间: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


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



Access软件网QQ交流群 (群号:297018933)       access源码网店

最新评论 查看更多评论(0)

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助