用循环写入单元格的方法，将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中的指定位置。
这个方法可以，查资料，用类似以下代码可以完成。
objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")
但有一事，如果用数组，应该怎么写？
如：
dim a(10)
objExcelSheet.Range("B3:k3").Value = a(10)
最佳答案
你用数组变量把查询的结果保存下来，然后统一写到Excel中的指定位置。
提问者对于答案的评价：
解决了，数组插入这样写
dim a(9)
objExcelSheet.Range("B3:k3").Value = a
非常感谢
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc315802.html
微信扫一扫 
支付宝扫一扫