设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

1234下一页
返回列表 发新帖
查看: 19270|回复: 35

[查询] 一句查询代码实现Excel数据导入导出

[复制链接]
发表于 2010-10-13 11:58:25 | 显示全部楼层 |阅读模式
本帖最后由 红尘如烟 于 2010-12-12 17:55 编辑

导入数据(导入数据时第一行必须是字段名):
  1. DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Excel 8.0;DATABASE=E:\桌面\测试数据.xls].[Sheet1$]"
  2. DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Sheet1$] IN 'E:\桌面\测试数据.xls'[EXCEL 8.0;]"
  3. DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Sheet1$] IN 'E:\桌面\测试数据.xls' 'EXCEL 8.0;'"
复制代码

导出数据:
  1. DoCmd.RunSQL "SELECT * INTO [Excel 8.0;DATABASE=E:\桌面\测试数据.xls].[Sheet1] FROM 表名"
  2. DoCmd.RunSQL "SELECT * INTO [Sheet1] IN 'E:\桌面\测试数据.xls'[EXCEL 8.0;] FROM 表名"
  3. DoCmd.RunSQL "SELECT * INTO [Sheet1] IN 'E:\桌面\测试数据.xls' 'EXCEL 8.0;' FROM 表名"
复制代码

要点:导入时工作表名称后面要加$(如Sheet1$),而导出时却不能加(如Sheet1),另外示例代码中的Sheet1可以是其它名称(如“测试数据”)。
最初的写法: [Excel 8.0;DATABASE=E:\桌面\测试数据.xls].Sheet1   这个是参考帮助文档写的,经过仔细测试验证,的确存在问题,所以建议大家不要再用了,看样子帮助中的东西也不能全信,问题不少

在此感谢网友“疯狂的石头”的提醒!

评分

参与人数 1经验 +10 收起 理由
todaynew + 10 这个问题我考虑了两年,原来核心在于一个$号 ...

查看全部评分

本帖被以下淘专辑推荐:

发表于 2010-10-13 13:53:19 | 显示全部楼层
很详细的解释,学到一招,谢谢
发表于 2010-10-13 15:28:36 | 显示全部楼层
谢谢分享! 不错的技巧
发表于 2010-10-13 21:54:32 | 显示全部楼层
很好的技巧!
发表于 2010-10-13 23:24:15 | 显示全部楼层
谢谢分享! 不错的技巧
发表于 2010-10-17 17:04:27 | 显示全部楼层
试试看,正在做这方面的程序!希望能好用,如何判断文件是EXCEL2003的呢?如果不是2003,应该要提示啊!
发表于 2010-10-17 17:32:52 | 显示全部楼层
导入数据(导入数据时第一行必须是字段名):
DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Excel 8.0; ...
红尘如烟 发表于 2010-10-13 11:58

这个问题我想要解决的时间超过了两年,没想到核心在于一个$号上。
可以把这个问题简化为条件查询:
SELECT * FROM [Excel 8.0;DATABASE=E:\桌面\测试数据.xls].[Sheet1$]"
然后由这个查询再可考虑追加、更新、数据集、域函数等等方面的运用。



发表于 2010-10-19 20:51:22 | 显示全部楼层
这个实用三,,简便
发表于 2010-10-19 21:00:45 | 显示全部楼层
ACCESS 2010 不行呀!!!有两种情况,一中说EXCEL中存在这个表,二是表不存在,但结果就是不允许导出到EXCEL中
发表于 2010-10-19 21:00:54 | 显示全部楼层
ACCESS 2010 不行呀!!!有两种情况,一中说EXCEL中存在这个表,二是表不存在,但结果就是不允许导出到EXCEL中
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 06:30 , Processed in 0.098052 second(s), 38 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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