设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1913|回复: 3
打印 上一主题 下一主题

[窗体] 怎样在access2007中打开exccel2003的表?

[复制链接]
跳转到指定楼层
1#
发表于 2013-11-15 10:18:19 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在一个窗体代码中有如下两句:
set A=DBEngine.workspaces(0).OpenDatabase(Me![text2],Fase,False,"Excel 8.0")
set Bm=A.OpenRecordset (Me![Combo4] & "$")
解释:text2是窗体中一个文本框,里面是Exce2003文件的完整路径;Combo4是同一个窗体的组合框,在其下拉选项中显示Excel2003文件中各个表的名称。
问题:代码在Access2003可以正常运行,可是在access2007中运行时,在第一句出现问题,显示消息框:“运行时错误 3051  Mirosoft Office Access 数据库引擎无法打开文件 “xxxx.xls”   (注:XXXX.xls 是在text2种显示的Excel2003文件的完整路径)
期待:求可以在Access2007中可以打开运行的代码,   谢谢!

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2013-11-15 15:18:13 | 只看该作者
Excel 8.0
应该是这个问题吧
论坛里面有很多关于用代码打开excel文件的例子,看看就清楚了
3#
发表于 2013-11-17 17:15:39 | 只看该作者
引用Excel 14.0(Excel2007版本),我这里是2003版本,供参考
然后建立一个模块:
  1. Sub OpenExl()
  2. Dim exl As New Excel.Application
  3. Dim wk As Workbook
  4. Set wk = exl.Workbooks.Open("c:\xxx.xls")
  5. exl.Visible = True
  6. End Sub
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
4#
 楼主| 发表于 2013-11-18 20:37:29 | 只看该作者
谢谢roych版主帮i助,确实是因为引用的问题,已经解决。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-16 08:11 , Processed in 0.100560 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表