执行SQL select 后取得的数据集如何赋值到excel中呢?

用SQL 语句 取得符合条件的数据集,
要将数据集的某两个字段,写入 excel 中不相邻的两列单元格中.如何进行?
我现在使用的是循环

第一行放名称
for J=2 to 数据集的最后一条
     .cells(j,1)=数据集的第一条,第一个字段
     .cells(j,11)=数据集的第一条,第五个字段
next j


这样进行的,发现速度比较慢,还有什么更好的办法么?