【Access小品】Excel导出新法--CopyFromRecordset方法示例

todaynew

　　导出Excel有许多中方法，其中用Excel.Application对象进行导出作业，可以实现在Excel的指定区域内导出，其灵活性比较强。通常情况下，我们用Cells对象做循环导出。最近aydl1014 同志认为该方法速度较慢，并通过研究找到了用Range对象的CopyFromRecordset处理导出问题。这个方法就是以Excel表的某个单元格为左上角，一次性的拷贝ADO或DAO数据集。不过这个方法有一个缺陷，就是不能同时拷贝字段名称，不过向Excel读出数据主要花费时间的是对记录的读写，这个小缺陷不是大问题。

　　这两天恰好在给版友nbxxhzh同志折腾一个计划生育的管理系统，由于不想在Access中编制报表（因为很麻烦），所以考虑导出数据到Excel中作为报表。于是用到了aydl1014 同志所论的方法，感觉效果不错。同时对江羽同志原来的一个关于判断某个Excel文件是否打开的函数进行了一些修改，因为我觉得判断不是重点，关闭才是目的，特别是对不可见的打开文件，需要的是关闭它，以便用Excel.Application重新正常打开，以便操作。此外在这个实例中写了很多关于Excel操作的自定义函数，有兴趣的初学者可以借鉴。

xylq

123456

xylq

123456

wanghu10102121

学习一下

wuwu200222

学习

gxwzljb

必须要学习一下。

andliu

多谢分享经验，学习

QQ214189912

谢谢分享

nncchh

学习学习，谢谢分享！

wu8313

当记录达到3000条以上的话，这个方法就慢了。感觉还是把结果集存为xml.然后用excel读取xml比较好，只好工作表是打开的，可以多次读取xm，不用考虑excel.application对象是否打开。
这样的话，几万条记录也蛮快的。