一个数据集输出到EXCEL文件的问题？！

Question

我不大懂VBA
想把一个数据集中的数据每1000条输出到xls文件
本人用了最没办法的办法:-)
Dim xlsApp As Excel.Application
Dim xlsWk As Excel.Workbook
Dim xlsSht As Excel.Worksheet
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = False
Set xlsWk = xlsApp.Workbooks.Add
Set xlsSht = xlsWk.Worksheets(1)
为了在生成xls文件时不提示，就每次都生成excel.application（这法子很慢）
有没好一点的发法，在一个excel.application中可直接保存（excel不给提示）多个xls文件各位有想法兄弟，帮帮忙！感激不尽！
给个思路，最好能有源码.

Answer 1

直接用SQL的導出語法啊。
insert into...
select ....