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

疯狂雪狼 · 发表于 2013-8-3 00:21:11

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

源码如下：

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

心跳的回忆 · 发表于 2013-8-3 00:21:12

.版本 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, 下载次数: 182)

疯狂雪狼 · 发表于 2013-8-5 23:51:19

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

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

疯狂雪狼 · 发表于 2013-8-6 00:05:06

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

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

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

青云 · 发表于 2013-9-7 20:39:44

谢谢分享！！

青云 · 发表于 2013-9-7 20:54:05

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

		自动登录	找回密码
密码			注册

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

最佳答案

评分

点评