wincc VBS 将SQL数据导出EXCEL 问题

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

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2020年11月1日
下一篇 2020年11月1日

相关推荐