Wincc 7.5 SP1使用VBS创建Excel日报表并显示在画面

最新推荐文章于 2024-09-06 23:00:47 发布
最新推荐文章于 2024-09-06 23:00:47 发布
阅读量2.2w 收藏 147
点赞数 23
分类专栏： 西门子
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/xhm0924/article/details/116868686
版权
本文详细介绍了如何在Wincc V7.5SP1中创建模板、配置Wincc变量、设置全局动作，以实现设备运行数据的自动记录、整点存储以及通过Web控件展示报表的功能。具体步骤包括每天定时生成Excel格式的日报表，以及实时更新和存储设备的各项关键参数。
摘要由CSDN通过智能技术生成

目录

1 <概述>

在工业生产中报表一直占有非常重要的部分，它一般用来记录现场的工艺参数、能耗信息和统计信息，作为分析企业运营情况的依据。
本文以Wincc V7.5 SP1 为例，介绍Wincc如何获取设备运行数据统计并通过报表的形式展现统计数据，如图1所示：
在这里插入图片描述

可实现如下功能：

  • 自动记录设备的运行数据（整点统计）
  • 定时存储日报表(excel格式)
  • 利用Web控件显示htm报表文件

2 <创建模板>

在Wincc项目文件夹下创建report文件夹，如图2、图3所示：
在这里插入图片描述

在这里插入图片描述

3 < Wincc变量>

本例中需要用到两种Wincc变量。一种是和设备运行数据相关的Wincc外部变量，包括运行数据、能耗数据等，根据项目实际情况创建。另外一种是用于整点存储相关的变量，这里将介绍利用Wincc系统变量读取当前时间（H值）。如图4所示
在这里插入图片描述

4 <创建全局动作>

全局动作有两个文件：

  • 动作1：
    • 利用模版创建临时存储文件
    • 每天00:00:02秒触发动作
    • 按“文件名-日期”格式copy数据到指定报表路径下
  • 动作2：
    • 整点读取读取数据，并存入临时存储文件

4.1 动作1脚本：创建文件及拷贝报表

全局动作脚本如下：

Option Explicit
Function action
    Dim objexcelapp,objexcelbook,objexcelsheet
    Dim sheetname
    Dim dstr,path,fn,cow,fso
    
    Dim MyFile
    Dim TempFileName,TemplateFileName,DestFile
    
    TemplateFileName = HMIRuntime.ActiveProject.Path & "\report\日报表\智慧空压站运行日报表_模版.xlsx"
    
    TempFileName = HMIRuntime.ActiveProject.Path & "\report\日报表\智慧空压站运行日报表.xlsx"
    
    DestFile = "E:\报表"
    
    dstr = CStr(Year(Now)) & "-" & CStr(Month(Now)) & "-" & CStr(Day(Now)) & " " & CStr(Hour(Now)) & ":" & CStr(Minute(Now))
    
    fn = CStr(Year(Now)) & CStr(Month(Now)) & CStr(Day(Now)) & CStr(Hour(Now)) & CStr(Minute(Now))
    
    sheetname = "空压机"
    Set fso = CreateObject("scripting.FileSystemObject")
    Set objexcelapp = CreateObject("Excel.Application")
    Set MyFile = fso.GetFile(TemplateFileName)
    
    objexcelapp.visible = False
    objexcelapp.Workbooks.open TempFileName
    objexcelapp.Worksheets(sheetname).Activate
    
    objexcelapp.ActiveWorkbook.SaveAs(DestFile & fn & ".xlsx")
    objexcelapp.ActiveWorkbook.SaveAs(DestFile &"\web\"& fn & ".htm"),44
    MyFile.Copy (TempFileName),True
    objexcelapp.Workbooks.Close
    objexcelapp.Quit
    Set objexcelapp = Nothing
                    
End Function

动作触发周期为每日的00:00:02，如下图5所示：
在这里插入图片描述

4.2 全局动作2：整点存储数据

全局动作2脚本如下，该部分代码根据项目实际情况进行修改

Option Explicit
Function action

    Dim objexcelapp,objexcelbook,objexcelsheet
    Dim a,b,c,d,sheetname
    Dim dstr,path,fn,cow
    Dim TempFileName
    TempFileName = HMIRuntime.ActiveProject.Path & "\report\日报表\智慧空压站运行日报表.xlsx"
    cow = 4
    dstr = CStr(Year(Now)) & "-" & CStr(Month(Now)) & "-" & CStr(Day(Now)) & " " & CStr(Hour(Now)) & ":" & CStr(Minute(Now))
    
    sheetname = "空压机"
    
    
    Set objexcelapp = CreateObject("Excel.Application")
    
    objexcelapp.visible = False
    objexcelapp.Workbooks.open TempFileName '打开临时存储文件
    objexcelapp.Worksheets(sheetname).Activate
    a = HMIRuntime.Tags("IntHour").Read
    
    With objexcelapp.worksheets(sheetname)
        
        .cells(a + cow,1) = dstr
        .cells(a + cow,2) = HMIRuntime.Tags("整数转浮点数_PLC_SD").Read
        .cells(a + cow,3) = HMIRuntime.Tags("整数转浮点数_PLC_WD").Read
        .cells(a + cow,4) = HMIRuntime.Tags("ZLAN1_1_ZGSSLL1").Read
        .cells(a + cow,5) = HMIRuntime.Tags("AI_2_AI_CQG_PRESS1").Read
        .cells(a + cow,6) = HMIRuntime.Tags("AI_AI_WATER_TEMP_IN").Read
        .cells(a + cow,7) = HMIRuntime.Tags("AI_AI_WATER_IN_PRESS").Read
        .cells(a + cow,8) = HMIRuntime.Tags("ZLAN1_3_SYSTEM_PRE_1").Read
        .cells(a + cow,9) = HMIRuntime.Tags("ZLAN1_3_KYSSLL_1").Read
        .cells(a + cow,10) = HMIRuntime.Tags("ZLAN1_3_ZD1_1").Read
        .cells(a + cow,11) = HMIRuntime.Tags("ZLAN1_3_ZD2_1").Read
        .cells(a + cow,12) = HMIRuntime.Tags("ZLAN1_3_ZD3_1").Read
        .cells(a + cow,13) = HMIRuntime.Tags("ZLAN1_3_OIL_SUPPLY_TMP_1").Read
        .cells(a + cow,14) = HMIRuntime.Tags("ZLAN1_3_MOTER_DE_TMP_1").Read
        .cells(a + cow,15) = HMIRuntime.Tags("AI_2_AI_KYJ_WATER_PRESS_IN1").Read
        
        .cells(a + cow,16) = HMIRuntime.Tags("ZLAN1_3_SYSTEM_PRE_2").Read
        .cells(a + cow,17) = HMIRuntime.Tags("ZLAN1_3_KYSSLL_2").Read
        .cells(a + cow,18) = HMIRuntime.Tags("ZLAN1_3_ZD1_2").Read
        .cells(a + cow,19) = HMIRuntime.Tags("ZLAN1_3_ZD2_2").Read
        .cells(a + cow,20) = HMIRuntime.Tags("ZLAN1_3_ZD3_2").Read
        .cells(a + cow,21) = HMIRuntime.Tags("ZLAN1_3_OIL_SUPPLY_TMP_2").Read
        .cells(a + cow,22) = HMIRuntime.Tags("ZLAN1_3_MOTER_DE_TMP_2").Read
        .cells(a + cow,23) = HMIRuntime.Tags("AI_2_AI_KYJ_WATER_PRESS_IN2").Read
        
        
        .cells(a + cow,24) = HMIRuntime.Tags("ZLAN1_3_SYSTEM_PRE_3").Read
        .cells(a + cow,25) = HMIRuntime.Tags("ZLAN1_3_KYSSLL_3").Read
        .cells(a + cow,26) = HMIRuntime.Tags("ZLAN1_3_ZD1_3").Read
        .cells(a + cow,27) = HMIRuntime.Tags("ZLAN1_3_ZD2_3").Read
        .cells(a + cow,28) = HMIRuntime.Tags("ZLAN1_3_ZD3_3").Read
        .cells(a + cow,29) = HMIRuntime.Tags("ZLAN1_3_OIL_SUPPLY_TMP_3").Read
        .cells(a + cow,30) = HMIRuntime.Tags("ZLAN1_3_MOTER_DE_TMP_3").Read
        .cells(a + cow,31) = HMIRuntime.Tags("AI_2_AI_KYJ_WATER_PRESS_IN3").Read
        
        
        .cells(a + cow,32) = HMIRuntime.Tags("ZLAN1_3_SYSTEM_PRE_4").Read
        .cells(a + cow,33) = HMIRuntime.Tags("ZLAN1_4_LTLS_4").Read
        .cells(a + cow,34) = HMIRuntime.Tags("ZLAN1_3_ZD1_4").Read
        .cells(a + cow,35) = HMIRuntime.Tags("ZLAN1_3_ZD2_4").Read
        .cells(a + cow,36) = HMIRuntime.Tags("ZLAN1_3_ZD3_4").Read
        .cells(a + cow,37) = HMIRuntime.Tags("ZLAN1_3_OIL_SUPPLY_TMP_4").Read
        .cells(a + cow,38) = HMIRuntime.Tags("ZLAN1_3_MOTER_DE_TMP_4").Read
        .cells(a + cow,39) = HMIRuntime.Tags("AI_2_AI_KYJ_WATER_PRESS_IN4").Read
        
        .cells(a + cow,40) = HMIRuntime.Tags("ZLAN1_3_SYSTEM_PRE_8").Read
        .cells(a + cow,41) = HMIRuntime.Tags("ZLAN1_3_KYSSLL_8").Read
        .cells(a + cow,42) = HMIRuntime.Tags("ZLAN1_3_ZD1_8").Read
        .cells(a + cow,43) = HMIRuntime.Tags("ZLAN1_3_ZD2_8").Read
        .cells(a + cow,44) = HMIRuntime.Tags("ZLAN1_3_ZD3_8").Read
        .cells(a + cow,45) = HMIRuntime.Tags("ZLAN1_3_OIL_SUPPLY_TMP_8").Read
        .cells(a + cow,46) = HMIRuntime.Tags("ZLAN1_3_MOTER_DE_TMP_8").Read
        .cells(a + cow,47) = HMIRuntime.Tags("AI_2_AI_KYJ_WATER_PRESS_IN8").Read
        
    End With
    
    objexcelapp.ActiveWorkbook.Save
    objexcelapp.Workbooks.Close
    objexcelapp.Quit
    Set objexcelapp = Nothing
End Function

动作触发周期为每小时的00:05秒，如下图6所示：
在这里插入图片描述

5 <制作报表画面>

Wincc报表画面分几项功能：

  • 点击“实时报表”按钮，展示今日运行数据
  • 遍历文件夹下所有报表文件（htm格式）到列表框中，选中后点击“历史报表查询”按钮

5.1 控件添加

  • **Web控件：**Microsoft Web Browser，“myweb”
  • **列表框控件：**Microsoft Lisview Control，“listbox1”
  • **按钮控件：**Button（“实时报表”、“历史报表查询”）
    控件添加方式
    在 ActiveX 控件上右键，选择“添加/删除”，然后在 OCX 控件列表中选择
    Microsoft Lisview Control 和 Microsoft Web Browser。如下图7所
    示：
    在这里插入图片描述

5.2 脚本

  • 窗体脚本
    窗体打开后，执行web控件加载“实时报表”，同时向列表框循环添加文件夹下遍历到所有报表名称。
    “窗体对象”——“其他”——“打开画面”，执行VB脚本，如下所示：
Sub OnOpen()                                                
	On Error Resume Next
	Dim fso, f, f1, fc, N 
    Dim lst,wbCtrl

	Set lst = ScreenItems("listbox1")
	Set wbCtrl = ScreenItems("myweb")
	
	Set fso = CreateObject("scripting.FileSystemObject")
	Set f = fso.GetFolder("E:\报表\web格式")
	Set fc = f.Files
	
	N = 0
	For Each f1 In fc   
	    N = N + 1
	    lst.Index N
	    lst.Text f1.name
	Next
    lst.NumberLines =N
	lst.SelIndex ="1"
	lst.Sort = 1
	
	wbCtrl.Navigate HMIRuntime.ActiveProject.Path & "\report\日报表\web\智慧空压站运行日报表.htm"

End Sub
  • 按钮“实时报表”VB脚本
Sub OnClick(Byval Item)  
  
	On Error Resume Next
	item.Enabled = False
	Dim lst,wbCtrl
	Dim Value1
	Set wbCtrl = ScreenItems("myweb")
	Set lst = ScreenItems("listbox1")
	Value1 = lst.SelText
	
	wbCtrl.Navigate HMIRuntime.ActiveProject.Path & "\report\日报表\web\智慧空压站运行日报表.htm"
	item.Enabled = True

End Sub
  • 按钮“历史报表查询”VB脚本
Sub OnClick(Byval Item)  
	On Error Resume Next
	item.Enabled = False                                
	Dim lst,wbCtrl
	Dim Value1
	Set wbCtrl = ScreenItems("myweb")
	Set lst = ScreenItems("listbox1")
	
	Value1 = lst.SelText
	wbCtrl.Navigate "E:\报表\web格式\" & Value1
	item.Enabled = True
End Sub

6 <运行结果>

在这里插入图片描述

xhm0924
关注
专栏目录
WinCC报表是一种在WinCC监控系统中使用的功能
rWLbRvCq的博客
12-19 1432
它提供了日报表、月报表、年报表和时段报表等功能，用户可以根据需要选择合适的报表类型，并进行自由配置和查看。此外，WinCC报表还提供了时段报表功能，用户可以自由选择时间段进行查询，并且可以设置不同的时间间隔，以满足不同的需求。报表将显示左侧时间点数据的实际值。如果设置的是累计值，报表将计算每小时的差值，并将最终结果汇总为一天的总累计值。如果设置的是累计值，报表将计算每月的差值，并将最终结果汇总为一年的总累计值。如果设置的是累计值，报表将计算每天的差值，并将最终结果汇总为一个月的总累计值。
wincc报表日报表实例_WinCC智能对象DataSet应用：信号强度指示器
weixin_39672979的博客
12-23 2252
原创作者：张占领-西门子工业技术支持中心本文介绍WinCC智能对象DataSet，包括4部分：智能对象 DataSet 概述智能对象DataSet基本用法变量示例：信号强度实时指示器本文示例源程序下载链接智能对象 DataSet概述WinCC有2类DataSet：全局的和基于画面的全局DataSet全局DataSet可以看作是VBS全局变量，可以在VBS全局动作脚本和画面VB...
wincc报表例程
04-16
wincc 报表例程，内有wincc的日报表，月报表，年报表，及程序脚本语句等。
WinCC数据报表实现方法介绍
08-28
西门子wincc资料，有关报表实现方法介绍
WinCC报表控件：轻松生成专业报表的利器
最新发布
gitblog_09765的博客
09-06 489
WinCC报表控件：轻松生成专业报表的利器 项目地址:https://gitcode.com/open-source-toolkit/b2c4f 项目介绍 在工业自动化领域，WinCC作为西门子的一款强大监控软件，广泛应用于各种工业控制系统中。然而，生成和定制报表往往是一个繁琐且耗时的过程。为了解决这一痛点，我们推出了WinCC报表控件，这是一个专为经典WinCC（WinCC V7.x）和博途Wi...
wincc报表实例
11-25
西门子wincc的报表使用方法和实际例子，仅供参考如果在使用过程中有什么问题请指正。
WinCC7.5 SP1调整画面尺寸以适应显示分辨率的方法.docx
06-12
WinCC7.5 SP1调整画面尺寸以适应显示分辨率的方法
Wincc报表教程案例.zip
08-09
SQL数据库的建立，wincc在数据库中保存和查询数据，调用Excel模板把数据保存到指定的位置和打印功能
wincc嵌入式excel报表
m0_71732010的博客
06-06 2767
wincc嵌入式excel报表一、功能介绍该报表系统能够读取WINCC中历史归档数据，产生出EXCEL报表文件，同时在画面中EXCEL控件实时显示。该报表系统有如下优点：1、 该报表系统具备日报表、月报表、年报表、自由报表（任意时间段）功能。2、 报表读取的数据是WINCC自带的变量记录数据库，不需要第三方数据库。3、 该报表系统能在不同的项目之间移植，过程简单。4、 生成的EXCEL文件是基于模板文件生成的，模板文件修改容易，效果直观。5、 数据读取时，进行了适当的筛选和处理。只读取有效数据，数据质量不合
(Wincc V7.5报表（现场调试复盘）
qq_58220938的博客
01-19 8267
Wincc V7.5报表（现场调试复盘）一、案例展示二、制作思路三、项目建立3.1创建报表模板3.2新建内部变量3.3新建画面四、脚本讲解4.1 数据确认 按钮脚本4.2 项目模板脚本五、运行展示 一、案例展示 上面图一为运行的展示效果，其中有输入输出框有感叹号，是因为通讯的断开！ 图二：数据保存到指定的excel中！ 图三：excel已时间+合同号进行保存！ 二、制作思路 之前也写了一篇报表的制作，是从西门子论坛中找到的资料进行测试编写的，没有现场使用过。这个版本的报表是在上海某集团使用的。 之前的报表
wincc报表 日报表 月报表 年报表 宽度可以自由配置，报表界面大小可以自由拖动大小，报表参数方便配置，不需要任何编程
m0_73815229的博客
09-19 547
时段报表：可自由选择时间段查询，可以设置时间间隔：1、5、10、20、30、60 的分钟间隔，显示值为左侧时间点数据实际值。报表表格 宽度可以自由配置，报表界面大小可以自由拖动大小，报表参数方便配置，不需要任何编程。年报表：每月1日0点数据显示，如果设置的是累计值，计算每月的差值，和最终汇总一年总累计。日报表：每日24点数据，如果设置的是累计值，计算每小时的差值，和最终汇总一日总累计。月报表：每日0点数据显示，如果设置的是累计值，计算每日的差值，和最终汇总一月总累计。
最好的wincc报表实例.zip
05-26
最好最全的Wincc报表实例,日报,月报,年报. Wincc实例; ADO 教程; SQL 教程; MSFLEXGRID控件属性
西门子WinCC使用用户归档实现日报表
11-12
西门子WinCC使用用户归档实现报表实例 通过用户归档和打印布局，实现一天三班，每班八小时，每小时记录一次现场仪表数据。 不懂的可以评论问我。
WINCC报表详细设计步骤
05-21
WINCC报表详细设计步骤.
wincc如何制作报表
04-26
wincc如何制作报表.ppt 使用报表编辑器的元件样式版你可以创建报表必要的各种对象。这些报表元件大多已经存在于可以直接使用的标准布局中。
如何在WINCC中基于VBS实现对EXCEL文件中数据的读写？.docx
08-31
总结来说，基于VBS在WINCC中实现对Excel文件的数据读写涉及了文件操作、VBS对象的使用以及错误处理机制。这样的功能对于数据收集、分析以及自动化报告生成等任务非常有用，能够有效提升工作效率并减少人工干预。
WinCC_V7.5 SP1 使用Winccc 参考手册.pdf
08-31
2. 变量和过程画面：WinCC_V7.5 SP1 允许用户定义变量、创建过程画面、并将其与变量关联。 3. messages系统：WinCC_V7.5 SP1 允许用户建立消息系统，用于在过程画面之间传递信息。 4. 归档过程值：WinCC_V7.5 SP1 ...
WINCC V7.5 SP1安装包_链接地址baiduyun.txt
01-26
WINCC V7.5 SP1安装包_链接地址
wincc7.5 sp1 rto 项目实例 分享
01-11
在WinCC 7.5 SP1中，用户可以轻松创建和配置曲线图，以直观地显示时间序列数据。这包括但不限于模拟量、数字量等过程变量，支持多轴、多线、多层的复杂组合，可自定义时间间隔、坐标轴范围、曲线颜色等参数。此外，...
wincc 7.5 sp1下载
11-22
WinCC 7.5 SP1是西门子公司推出的一款先进的工业控制软件，它具有丰富的功能和稳定的性能，被广泛应用于工业自动化系统中。想要下载WinCC 7.5 SP1，你可以通过以下步骤来进行： 首先，你需要登录西门子公司官方网站，并在产品页面中找到WinCC 7.5 SP1的下载链接。 其次，点击下载链接，根据网站提示选择对应的操作系统版本和语言版本，然后填写相应的信息并提交下载请求。 接着，等待下载链接生成并点击下载按钮，开始下载WinCC 7.5 SP1的安装包。 下载完成后，你需要按照官方提供的安装指南，逐步进行软件的安装和配置，确保安装过程中不出现任何错误。 最后，安装完成后，你可以根据需要进行软件的设置和调试，以确保它能够正常运行并满足你的工业控制需求。 需要注意的是，下载和安装WinCC 7.5 SP1需要遵循相关的法律法规和授权协议，确保你有合法的软件使用权，以免产生侵权行为。另外，为了确保软件的安全性，建议你只从官方渠道下载软件，并使用正版授权的软件。
评论 33
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值