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

红尘如烟

导入数据（导入数据时第一行必须是字段名）：

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   这个是参考帮助文档写的，经过仔细测试验证，的确存在问题，所以建议大家不要再用了，看样子帮助中的东西也不能全信，问题不少

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

ui

很详细的解释,学到一招,谢谢

xinbao

谢谢分享! 不错的技巧

yangjj

很好的技巧！

wenjun4

谢谢分享! 不错的技巧

yangjj

试试看,正在做这方面的程序!希望能好用,如何判断文件是EXCEL2003的呢?如果不是2003,应该要提示啊!

todaynew

导入数据（导入数据时第一行必须是字段名）：
DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Excel 8.0; ...
红尘如烟 发表于 2010-10-13 11:58

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

yuly

这个实用三，，简便

yuly

ACCESS 2010 不行呀！！！有两种情况，一中说EXCEL中存在这个表，二是表不存在，但结果就是不允许导出到EXCEL中

yuly

ACCESS 2010 不行呀！！！有两种情况，一中说EXCEL中存在这个表，二是表不存在，但结果就是不允许导出到EXCEL中