投稿
  1. 找知识-找PLC首页
  2. 自动化系统
  3. SIMATIC WinCC

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

• SIMATIC WinCC

我对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)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
0 0
上一篇 2019年6月11日 上午2:51
下一篇 2019年6月11日 上午2:51

相关推荐