关于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日

相关推荐

  • 按钮如何触发界面语言转换

    通过一个按钮 将界面里所有的中文显示为英文 或者将英文显示成中文 问题补充:2楼我说的是wincc不是flexible 1楼你那样的话一个项目岂不是画…

    SIMATIC WinCC 2019年6月11日
  • 6AV6545-0AC10-0AX0替换

    听说6AV6545-0AC10-0AX0这款型号已经停产了,请问现在有没有可升级替代的型号?谢谢! 最佳答案 已经停产了,现在可以用西门子新精致系列的触摸屏TP1200代替。 提问…

    SIMATIC WinCC 2017年6月19日
  • 运行了一段程序造成 无法正常从开始菜单中关机 重启 注销

    在WINCC中用C语言写了一段代码以一分钟周期运行之后,点击开始中的关机…出现对话框后再点击关机 重启 注销都没有反应.关闭了这段代码的运行,问题依旧出现. &nbs…

    SIMATIC WinCC 2019年6月11日
  • wincc文件总是默认共享

    在哪里可以设置是文件不是共享文件。 问题补充:生成项目以后,再改成不共享,我知道。 我想问怎样让他直接生成不共享的文件。 最佳答案 好像不行,这是项目自动生成的,必须的。…

    SIMATIC WinCC 2019年6月11日
  • wincc服务器名称

    .为什么我打开wincc —-计算机 右击 属性————-点击属性 ,在计算机名称里,将复制好的名称粘贴上去,重启win…

    SIMATIC WinCC 2021年7月5日
  • WINCC访问运行画面中的参数。画面切换时报错

    WINCC访问运行画面中的参数。画面切换时报错。出错处理语句脚本怎么写 最佳答案 用的vbs还是c脚本vbs的脚本是 On Error  R…

    SIMATIC WinCC 2021年7月5日
  • WINCC变量 3

    各位老师我想问下我做个试验:用的PLCIM151-8 PN/DP CPU的PN-IO的IP是192.168.1.18wincc这边变量管理里面SIMATIC&n…

    SIMATIC WinCC 2017年12月2日
  • 一台工控机上能同时用两个MPI卡吗

    我有50个S7-200要用一台WINCC去控,MPI通讯只有32个站,若PC上能同时用两个MPI卡是否能达到64个站;在WINCC中如何添加S7-200V区变量 最佳答案 这种方式…

    SIMATIC WinCC 2019年6月11日
  • wincc项目移植出错

    想打开另一台电脑复制过来的项目,一开始提示该项目无法打开,然后我删除了projectopened.lck这个文件然后再打开就提示该项目已重置,将作为新项目打开,我该怎么做呢 问题补…

    2021年7月5日
  • 求助上位机WINCC驱动打印机的应用资料

    求助上位机WINCC驱动打印机的应用资料。 怎样在画面上通过按钮连接打印机?? 高手指点 最佳答案 给你邮箱midakui@163.com发了一份《深入浅出WI…

    SIMATIC WinCC 2019年6月11日