用循环写入单元格的方法，将SQL查到的数据一个个写入EXCEL，18000数值，用了20分左右。用户体验非常差。 请教各位老师，有什么办法以可以加快EXCEL写入的速度？
我发现WINCC自带的曲线控件里，的导出功能，导出速度就很快，同样是1万多个数据，导出只要几秒钟。
以下为写入EXCEL部分代码
For i = 1 To m '填测试数据
For j2=1 To 10
Excel.cells(i+10, j2)=oRs.Fields(j2+6)
Next
oRs.MoveNext '移到下一行
Next
我猜想，是否有批量写入EXCEL的代码？
最佳答案
脚本中定义内部变量，循环把查询结果保存到内部变量中。如果可以用循环，在下一个循环中查询结束再把结果统一写到Excel中指定位置。
提问者对于答案的评价：
解决了，数组插入这样写
dim a(9)
objExcelSheet.Range("B3:k3").Value = a
应该也可以插入二维数组。
非常感谢
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc316001.html
微信扫一扫 
支付宝扫一扫 