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

相关推荐

  • VBS用户登录代码

    想用VBS写一段用户登录的代码,因为在菜单与工具栏上只能用VBS代码! 最佳答案 在工程的热键设置里面,把登录的热键设置为ALT+L  然后在vbs代码写:&n…

    SIMATIC WinCC 2019年6月11日
  • 请问用户归档怎么导出之前项目的数据?

    我运行起之前的项目,然后把用户归档的数据导出,但是运行当前的项目导入时,出错了,请问这是怎么回事?还有一个问题,就是将之前的项目中的变量记录复制到当前的项目中,能在当前项目的趋势控…

    SIMATIC WinCC 2020年11月1日
  • 如何利用脚本函数获得某个属性的表达式

    请问如何利用脚本函数获得某个属性的表达式,例如图中颜色表达式的值,也就是希望通过函数获取图中的“SystemStart”。 图片说明:    最佳答案 你是想在…

    2021年7月5日
  • wincc脚本学习

    刚接触wincc的c脚本,好些个程序语句看不懂什么意思,求推荐个资料,能帮助快速看懂语句和格式的。 最佳答案 刚接触wincc的c脚本,好些个程序语句看不懂什么意思,求推荐个资料?…

    SIMATIC WinCC 2017年12月1日
  • gif控件在哪能找到

    我想在WINCC里显示GIF图片,不知哪里有免费下载? 最佳答案 在网上收的控件都要收费的 提问者对于答案的评价:OK

    SIMATIC WinCC 2019年6月11日
  • 请教各位STEP7如何使用WINCC中的其他外部变量?

    目前做的一个项目是用S7300+WINCC画面控制伺服电机(绝对值编码器),伺服电机支持MODBUS协议。我想用MODBUS OPC SERVER服务器将伺服驱…

    SIMATIC WinCC 2021年7月5日
  • wincc中 TimeStepBase和TimeStepFactor属性组合10秒内数据的问题

    TimeStepBase定义表格中所显示时间戳的精度。通过将系数与时间单位相乘来计算精度。 例如,输入系数“3”和时间单位“1s”将在同一行中显示 3&nbsp…

    SIMATIC WinCC 2018年3月6日
  • 如何进行WINCC与WINLC通讯

    我在电脑上装了winlc和wincc软件,想直接用wincc调用winlc中的变量,需要用那种通讯方式,是否应该用wincc中自带的的soft PLC的通讯方法,卧室了好…

    SIMATIC WinCC 2019年6月11日
  • WINCC 7.4SP1提示USB狗缺少许可证

    买的正版软件(包含7.4SP1 和NET两个安装盘),安装完授权,插入USB狗,有时正常,有时提示USB狗缺少许可证;项目电脑设置的开机自动启动运行系统。打西门子官方电话…

    2020年11月1日
  • M041

    请教一下大家,怎么在WinCC Flexible批量创建画面?(几十页甚至100页)有教程吗?谢谢各位 最佳答案 在项目树下画面中创建的。视频,http://www.ad…

    SIMATIC WinCC 2021年7月5日

发表回复

登录后才能评论