[在线等]关于access数据库某张表内全部数据如何快速的导出到excel文件里

疯狂雪狼

关于access数据库某张表内全部数据如何快速的导出到excel文件里面，源码写好了，导出的数据表中才1万2千多条数据，但是导出却花费了2分多钟的时间。
经过测试，要是使用直接打开数据库后，点击导出，这种方式只要1-2秒钟的时间。
如何可以实现，点击软件界面的按钮来实现这种超快速度的导出到excel文件的方式？求前辈写个例程！

源码如下：

源码.rar (1.7 MB, 下载次数: 50)

2013-8-3 00:19 上传

点击文件名下载附件

有前辈指出,可以用对象的方式直接拷贝到excel中，大概也就几秒钟.
找了一段时间的资料,实在是没辙了,在次求助!

心跳的回忆

.版本 2
.支持库 spec

.子程序 _按钮_导出数据_被单击
.局部变量 a, 整数型
.局部变量 b, 整数型

.如果真 (外部数据库1.打开MDB数据库 (“shlc.mdb”, , , , ) ＝ 假)
    信息框 (“连接数据库失败！”, #信息图标, “温馨提示：”)
.如果真结束
a ＝ 取启动时间 ()
外部数据库1.查询 (“SELECT * INTO [Excel 8.0;DATABASE=导出的文件名称].[工作薄名称] FROM shihenglicheng”)
b ＝ 取启动时间 ()
调试输出 (取文本 (“耗费时间: %s 秒”, (b － a) ÷ 1000))  ' 取启动时间 返回的是 毫秒,所以转换到秒要除以1000, 1秒=1000毫秒

' 如果XLS 文件不存在 那么需要耗费 1.2-1.4秒, 如果存在耗费0.5-0.6秒.
' 以上时间是我这个6年前电脑测试的速度.
'导出的文件会写到 源码根目录  DATABASE= 的名称.xsl

源码.rar (1.7 MB, 下载次数: 183)

2013-8-5 23:42 上传

点击文件名下载附件

疯狂雪狼

心跳的回忆 发表于 2013-8-5 23:42
.版本 2
.支持库 spec

感谢前辈的指点,正在测试中.效果好的话,等下给最佳.  我还以为不会有人帮助解答了!

疯狂雪狼

心跳的回忆 发表于 2013-8-3 00:21
.版本 2
.支持库 spec

导出的文件名称].[工作薄名称]

这里的导出的文件名称是设置的名称,可是后面跟了一个.[工作薄名称],这里具体是什么意思啊?麻烦前辈指点下!

青云

谢谢分享！！

青云

代码很好，这里想问一下，能否反过来，把EXCEL的数据追加到ACCESS中去？