关于A0579 在WinCC中如何使用VBS读取变量归档数据到EXCEL的脚本问题

我对VB不熟,请大家帮忙:以下是文档A0579中的脚本,查询多个变量,在填充数据到Eccel中时,怎样才能按第一列为时间,第二列变量1值,第三列变量2值,第四列变量3值?谢谢各位!

''填充数据到Excel中
 Set oRs = oCom.Execute
  m = oRs.RecordCount
 If (m > 0) Then
   objExcelApp.Worksheets(sheetname).cells(2,1).value=oRs.Fields(0).Name
   objExcelApp.Worksheets(sheetname).cells(2,2).value=oRs.Fields(1).Name
   objExcelApp.Worksheets(sheetname).cells(2,3).value=oRs.Fields(2).Name
   objExcelApp.Worksheets(sheetname).cells(2,4).value=oRs.Fields(3).Name
   objExcelApp.Worksheets(sheetname).cells(2,5).value=oRs.Fields(4).Name
     oRs.MoveFirst  
     i=3  
     Do While Not oRs.EOF                           ''是否到记录末尾,循环填写表格   
         objExcelApp.Worksheets(sheetname).cells(i,1).value= oRs.Fields(0).Value
         objExcelApp.Worksheets(sheetname).cells(i,2).value= GetLocalDate(oRs.Fields(1).Value) 
         objExcelApp.Worksheets(sheetname).cells(i,3).value= oRs.Fields(2).Value
         objExcelApp.Worksheets(sheetname).cells(i,4).value= oRs.Fields(3).Value
         objExcelApp.Worksheets(sheetname).cells(i,5).value= oRs.Fields(4).Value
         oRs.MoveNext
         i=i+1
     Loop
     oRs.Close
 Else
     MsgBox "没有所需数据……"
     item.Enabled = True
     Set oRs = Nothing
  conn.Close
     Set conn = Nothing
     objExcelApp.Workbooks.Close
     objExcelApp.Quit
     Set objExcelApp= Nothing
     Exit Sub
 End If

最佳答案

首先明白Excel里单元格Cells(2,1)表示第2行第1列
 GetLocalDate(oRs.Fields(1).Value) 就是转换过的时间
这段代码只是读取一个变量的归档数据,读取多个要执行多次数据库查询
你可以参考一下下载中心的A0567文档

提问者对于答案的评价:
问题没有解决啊,能详细些吗
不过还是谢旋你的回答

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc264244.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月11日 上午2:51
下一篇 2019年6月11日

相关推荐

  • 客户机无法打开服务器项目

    多用户项目,ping IP地址和用户名都通,服务器上SIMATIC  shell中可以分别可以看见服务器和客户机的项目,服务器可以正常激活项目,服务器…

    SIMATIC WinCC 2017年5月31日
  • 为什么整点数据归档数据出错?

    wincc工程,对皮带秤数据进行统计,整点数据采集没有问题,为什么数据归档计算小时产量时数据出错(莫名奇妙的数据),而把数据归档时间设置为59分50秒(或者别的秒数),只要不是整点…

    SIMATIC WinCC 2017年11月26日
  • WINCC屏幕分辨率

    换了台电脑的显示器,发现原来WINCC的画面拿到新屏幕中显示太小,怎么样才能够把画面变大,改到我想要的大小. 问题补充:已经按照上面的方法做了,画面的宽度达到了,可是长度那边还有一…

    SIMATIC WinCC 2019年6月11日
  • 问个WINCC版本转换的问题

    WINCC5.1是能直接转换到WINCC6.2的还是只能先转换到6.0? 我把正在用的WINCC5.1的项目转换成WINCC6.2过程中老报警出错。5.1的项目备份出来去…

    SIMATIC WinCC 2019年6月10日
  • WINCC V5版本删不掉有残留怎么办

    我以前装过WINCC v5的版本是SP2的,我用360卫士删掉以后重新装v6的,但是每次装都提示发现旧版本,要进行更新,然后安装程序就不动了,一直宣示处于更新状态,怎么办…

    SIMATIC WinCC 2019年6月11日
  • WinCC Professional V14 SP1

    WinCC Professional  V14 SP1与wincc兼容了么 最佳答案 不兼容WinCC Professional&…

    SIMATIC WinCC 2017年6月1日
  • cp5611与wincc通讯问题

    我上位机做的是wincc MPI方式,用CP5611卡,可组态不能与下位通讯上,但是同一机子上的STEP 7能通讯上,这是为什么啊? 问题补充:SG9老师,不知…

    SIMATIC WinCC 2019年6月11日
  • wincc s7 300 和s7 200 profibus dp 通讯问题

    现在项目遇到的系统如下:上位机wincc+cp5611(我方提供)下位机ab compactlogix plc 一台(我们供),s7 300…

    SIMATIC WinCC 2019年6月11日
  • CP440和上位机WINCC通信的问题

    412-2的400CPU怎么使用CP440和上位机wincc进行通信,wincc的驱动是simatic s5 series 3964R,这个可以用wi…

    SIMATIC WinCC 2017年10月31日
  • 电脑如何1对1控制一组带触摸屏的PLC

    目前有台设备需配置PLC与触摸屏,客户想增加一台电脑控制这组PLC,做到触摸屏和电脑都可以控制这组PLC。 请问用什么方法最简单方便满足这一要求,?PLC和触摸屏配置有何…

    SIMATIC WinCC 2021年7月5日