wincc用VBS读取变量归档数据到excel,根据Excel文档操作总显示“没有所需数据”

1、按照提供的“在WinCC中如何使用VBS读取报警记录数据到EXCEL.pdf“中的文档操作,运行结果总是提示没有所需数据;
2、后来我从下载中心下载了标准项目,里面有写好的代码,我修改了代码中的模版路径,但是仍然提示没有所需数据;
3、仔细检查了语法和连接及查询命令,实在找不到原因,还请大神们指导,不胜感激。。
Sub OnClick(Byval Item)                                                                                 
'变量定义和初始化                                                                                                                                                                                                                                                                  
Dim sPro,sDsn,sSer,sCon,conn,sSql,oRs,oCom
Dim tagDSNName
Dim m,i
Dim objExcelApp,objExcelBook,objExcelSheet,sheetname
Dim MySqlStr
Set MySqlStr = HMIRuntime.Tags("MySqlStr")
item.Enabled = False
 On Error Resume Next 
 sheetname="Sheet1"
'打开Excel模板
 Set objExcelApp = CreateObject("Excel.Application")
  'objExcelApp.Visible = False
  objExcelApp.Workbooks.Open "D:\WinCC\Mode.xlsx"
  objExcelApp.Worksheets(sheetname).Activate
  '准备查询条件 Catalog
 Set tagDSNName = HMIRuntime.Tags("@DatasourceNameRT")
  tagDSNName.Read 
'创建数据库联接
 sPro = "Provider=WinCCOLEDBProvider.1;"
 sDsn = "Catalog=" &tagDSNName.Value& ";"
 sSer = "Data Source=YELZ\WinCC"
 sCon = sPro + sDsn + sSer
 Set conn = CreateObject("ADODB.Connection")
 Msgbox sCon
  conn.ConnectionString = sCon
  conn.CursorLocation = 3
  conn.Open
'定义查询的命令文本 SQL
 MySqlStr.Read 
 sSql = "ALARMVIEW:Select * FROM AlgViewCHT "&MySqlStr.Value 
  MsgBox sSql
 HMIRuntime.Trace "Sql is: " & sSql & vbCrLf
 Set oRs = CreateObject("ADODB.Recordset")
 Set oCom = CreateObject("ADODB.Command")
  oCom.CommandType = 1
 Set oCom.ActiveConnection = conn
  oCom.CommandText = sSql
'填充数据到Excel中
 Set oRs = oCom.Execute
  m = oRs.RecordCount
 If (m > 0) Then
     oRs.MoveFirst  
     i=3  
     Do While Not oRs.EOF                           '是否到记录末尾,循环填写表格   
         objExcelApp.Worksheets(sheetname).cells(i,1).value= CStr(oRs.Fields(0).Value)
          objExcelApp.Worksheets(sheetname).cells(i,2).value= CStr(oRs.Fields(1).Value)
         objExcelApp.Worksheets(sheetname).cells(i,3).value= CStr(oRs.Fields(2).Value) 
         objExcelApp.Worksheets(sheetname).cells(i,4).value= CStr(oRs.Fields(37).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
'释放资源 
 Set oRs = Nothing
  conn.Close
 Set conn = Nothing
'生成新的文件,关闭Excel
Dim patch,filename
 filename=CStr(Year(Now))&CStr(Month(Now))&CStr(Day(Now))&CStr(Hour(Now))+CStr(Minute(Now))&CStr(Second(Now))
 patch= "d:\Record\"&filename&"demo.xlsx" 
 objExcelApp.ActiveWorkbook.SaveAs patch
 objExcelApp.Workbooks.Close
 objExcelApp.Quit
 Set objExcelApp= Nothing
 MsgBox "成功生成数据文件!"
 item.Enabled = True
End Sub

问题补充:
现在程序应该只运行到判断m值处,因为m等于0,所以提示没有数据!不知道是哪儿的原因!

图片说明:

wincc用VBS读取变量归档数据到excel,根据Excel文档操作总显示“没有所需数据”    wincc用VBS读取变量归档数据到excel,根据Excel文档操作总显示“没有所需数据”   

最佳答案

你这是查询报警记录。
第一步,先看看报警记录控件里产生了报警。
其次
问题出在查询语句上,也许是语言错误导致的没有数据。
sSql = "ALARMVIEW:Select * FROM AlgViewCHT "&MySqlStr.Value 
这一句,首先可以去掉后边的"&MySqlStr.Value ,他只是一个条件,先不添加条件,也许是条件错误。
再次,sSql = "ALARMVIEWEX:Select * FROM AlgViewEXENU ",好像是可以这样写的,因为中文字符的问题。
这两种方法都可以试试。
最后说一句。不要随便从网上找一个脚本就拿过来改,成功率很低的,官网的文档也都是人做的,也会出错。不要盲目信服。同一个脚本我能运行,你就报错,这种情况很常见。
2606352062欢迎交流。

提问者对于答案的评价:
换成英语报警消息归档数据后,解决。

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

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2021年7月5日 上午9:42
下一篇 2021年7月5日 上午9:42

相关推荐

  • wincc 全局脚本 更新问题

    这个是关于Wincc软件安装后使用的问题。我在画面上调用已经调试好的模快。运行Wincc;当我再次对这个模块进行修改的时候,比如在模块的第一条执行的地方加一条 Msgbo…

    SIMATIC WinCC 2019年6月11日
  • 两台上位机版本不一样

    两台上位机如果版本不一样会有冲突吗?一台用WINCC6.0版,一台用WINCC6.2版。如果有冲突会怎样呢?哪位朋友能告诉我呀!!! 最佳答案 看你是什么通讯,如果是工业以太网没有…

    SIMATIC WinCC 2019年6月11日
  • WINCC中文版VBS脚本手册

    谁有WINCC中文版VBS脚本手册,发一本给我,谢谢。zxs0216@163.com 最佳答案 直接网上百度“vbs语言参考”。或者看wincc的在线帮助。 提问者对于答案的评价:…

    SIMATIC WinCC 2017年12月2日
  • 关于利用WINCC本身的函数访问用户归档数据库

    我想在按钮的脚本里写程序访问本地用户归档数据库,做统计用,如求平均值或概率,WINCC本身有相关函数直接可以用吗,还是要必须用到选件connectivity pack?请…

    SIMATIC WinCC 2019年6月11日
  • wincc里有这样一个脚本,是什么意思呢?

    三个按钮:正转,停止,反转,事件属性里鼠标所连接的脚本如下如所示。按照我的理解这个脚本里应该会有相应的变量来控制设备啊,但是好像只控制了颜色的的变化。可是在按钮的属性有连接颜色变化…

    2017年6月29日
  • WINCC读取ACCESS问题111

    ACCESS里面的数据如图1;脚本如下。Dim sqlaccessSet sqlaccess = HMIRuntime.Tags(&quot…

    2017年6月6日
  • 这个对话框的C脚本的意思是什么?

    请大家帮我一条一条分析一下吧:#include 问题补充:#include "apdefap.h"void OnLButtonDown(ch…

    SIMATIC WinCC 2019年6月11日
  • 用户归档的长度

    大家好,工控机运行久了,用户归档在数据库的长度不断增大(据一高手所讲),担心影响运行速度和硬盘空间,如何处理比较好…… 问题补充:听dcount107这么一说,用户归档的长度不用刻…

    SIMATIC WinCC 2019年6月11日
  • wincc报警记录中如何单独显示不同变量报警

    现在有几个不同的企业。。我想每个企业都有一个单独的报警。。。可是在wincc的报警管理里面。。总是这个项目的所有报警显示。。。如何才能让想用的变量单独显式在一个项目里不同的画面的报…

    SIMATIC WinCC 2019年6月11日
  • wincc版本兼容

    我最近找到一个wincc程序,拿回来打开时说版本问题打不开。我的电脑安装的是6.0,用项目移植器移植时说版本早于5.0sp2,该怎么办,还请大家指点。 最佳答案 看来你这个程序需要…

    SIMATIC WinCC 2019年6月10日

发表回复

登录后才能评论