执行SQL select 后取得的数据集如何赋值到excel中呢?
用SQL 语句 取得符合条件的数据集,要将数据集的某两个字段,写入 excel 中不相邻的两列单元格中.如何进行?
我现在使用的是循环
第一行放名称
for J=2 to 数据集的最后一条
.cells(j,1)=数据集的第一条,第一个字段
.cells(j,11)=数据集的第一条,第五个字段
next j
这样进行的,发现速度比较慢,还有什么更好的办法么?
你试试用range下的copyfromrecordset方法，
比如:
objSheet.Range("A1").CopyFromRecordset
