用循环写入单元格的方法,将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