V7.5报表

已于 2023-01-29 16:32:23 修改
阅读量337 收藏 7
点赞数
文章标签： excel
于 2023-01-29 16:31:07 首次发布
原文链接：https://blog.csdn.net/qq_58220938/article/details/122587625
版权

V7.5报表（现场调试复盘）

一、案例展示

图一：现场运行的展示上面图一为运行的展示效果，其中有输入输出框有感叹号，是因为通讯的断开！

图二图二：数据保存到指定的excel中！
图三图三：excel已时间+合同号进行保存！

二、制作思路

之前也写了一篇报表的制作，是从西门子论坛中找到的资料进行测试编写的，没有现场使用过。这个版本的报表是在上海某集团使用的。

之前的报表，主要思路是，把生产的数据存到SQL中，然后wincc在已特定条件（我使用的是时间）读取SQL的数据，存到excel中，然后再已时间命名保存！

这次在做报表之前，询问了使用python写人工智能的朋友，这种只简单记录生产数据的报表是否能跳过SQL,而直接写数据到excel中，然后在保存，这一想法得到了肯定，然后在此项目成功的实现，希望此文章对您能有用！

三、项目建立

3.1创建报表模板

1、首先在项目工程中新建一个文件夹
在这里插入图片描述2、在此文件夹下新建报表模板和日生产报表文件夹
在这里插入图片描述3、在报表模板中创建一个EXCEL，名称为：3D检测报表模板
在这里插入图片描述4、表格的内容根据甲方要求进行调整
在这里插入图片描述其中浅蓝色背景的表格，是需要工人现场输入的数据！
白色部分是需要自动计算出的！

3.2新建内部变量

因公司问题，所以这里我重新整理一份测试版，望大家谅解！
内部变量新建一个TEST变量组，里面添加变量
在这里插入图片描述

3.3新建画面

在这里插入图片描述

四、脚本讲解

其中有三个地方需要写脚本1、数据确认按钮 2、项目模板 3、全局动作中

4.1 数据确认 按钮脚本

此脚本作用是把手动输入的合同号等，输入excel中，
脚本在单击鼠标处编写
在这里插入图片描述

Sub OnClick(Byval Item)

‘--------------------- 生产数据清零 --------------------’
HMIRuntime.Tags(“生产总根数”).write 0 '总根数进行清零
HMIRuntime.Tags(“好料根数”).write 0 '好料根数进行清零
HMIRuntime.Tags(“坏料根数”).write 0 '坏料根数进行清零
HMIRuntime.Tags(“合格率”).write “0%” '合格率进行清零

Dim Class_Shift,Manipulator,Contract_No,Steel_Grade,Inspection_Number,Heat_Number,Trial_Batch_Number,Norm,Standard,Length,speed

‘--------------------- 读取外部输入变量 --------------------’
Class_Shift = HMIRuntime.Tags(“班别/班次”).read
Manipulator = HMIRuntime.Tags(“操作者”).read
Contract_No = HMIRuntime.Tags(“合同号”).read
Steel_Grade = HMIRuntime.Tags(“钢种”).read
Inspection_Number = HMIRuntime.Tags(“检验号”).read
Heat_Number = HMIRuntime.Tags(“炉号”).read
Trial_Batch_Number = HMIRuntime.Tags(“试批号”).read
Norm = HMIRuntime.Tags(“规格”).read
Standard = HMIRuntime.Tags(“标准”).read
Length = HMIRuntime.Tags(“长度”).read
speed = HMIRuntime.Tags(“显示速度”).read

‘---------------------打开Excel模板 --------------------’
Dim objExcelApp,objExcelBook,objExcelSheet,a,b
Set objExcelApp =CreateObject(“Excel.Application”)
objExcelApp.Visible=True
Set a =objExcelApp.Workbooks.Open(HMIRuntime.ActiveProject.Path & “\report\报表模板\3D检测报表模板.xlsx”)
Set b =a.Worksheets(“Sheet1”)
b.Range(“F2”) = CStr(Year(Now)) & “年” & CStr(Month(Now)) &“月” & CStr(Day(Now)) &“日”
objExcelApp.Worksheets(“Sheet1”).Activate
‘---------------------向EXCEL写入数据的数据 --------------------’

        With objExcelApp.Worksheets("Sheet1")
         .cells(5,2).value = speed
         .cells(5,4).value = 0
         .cells(5,6).value = 0
         .cells(5,8).value = 0
         .cells(6,6).value = 0
     
     
        .cells(2,2).value = Class_Shift
        .cells(2,4).value = Manipulator
        .cells(3,2).value = Contract_No
        .cells(3,4).value = Steel_Grade
        .cells(3,6).value = Inspection_Number
        .cells(3,8).value = Heat_Number
        .cells(4,2).value = Trial_Batch_Number
        .cells(4,4).value = Norm
        .cells(4,6).value = Standard
        .cells(4,8).value = Length
        
        End With

‘---------------------以日期命名，并保存到指定文件夹 --------------------’
objExcelApp.DisplayAlerts = False '对打开的文件，直接保存时，避免弹出对话框窗口，而是直接覆盖
Dim patch,filename
filename=CStr(“3D检测当日报表”)
patch= HMIRuntime.ActiveProject.Path & “\report\日生产报表”&filename&“.xlsx”
objExcelApp.ActiveWorkbook.SaveAs patch
objExcelApp.ActiveWorkbook.SaveAs HMIRuntime.ActiveProject.Path & “\report\日生产报表\web\日报表.htm”,44
objExcelApp.Workbooks.Close
objExcelApp.Quit

‘---------------------关闭Excel模板 --------------------’
Set objExcelApp= Nothing

Dim wbCtrl
Set wbCtrl = HMIRuntime.Screens(“报表界面_TEST”).ScreenItems(“myweb”) '"Web"为Web控件名称
wbCtrl.Navigate HMIRuntime.ActiveProject.Path & “\report\日生产报表\web\日报表.htm”

MsgBox “成功生成数据文件!”

End Sub

2、项目模板 3、全局动作中

4.2 项目模板脚本

Sub report

Dim good_running,bad_running,Running
good_running = HMIRuntime.Tags(“好管运行”).read Or HMIRuntime.Tags(“合格三星拨料运行”).read
bad_running = HMIRuntime.Tags(“坏管运行”).read Or HMIRuntime.Tags(“不合格三星拨料运行”).read
Running=good_running Or bad_running

If Running Then
‘--------------------- 合格率计算 --------------------’
Dim Total_Number,OK_Number,NG_Number,Pass_Rate,HT,HT1
‘------- 数据读取 --------’
Total_Number = HMIRuntime.Tags(“生产总根数”).read
OK_Number = HMIRuntime.Tags(“好料根数”).read
NG_Number = HMIRuntime.Tags(“坏料根数”).read
NG_Number = HMIRuntime.Tags(“坏料根数”).read
HT = HMIRuntime.Tags(“TO_3D_合同号”).read

  '------- 数据计算 --------' 
  Total_Number = Total_Number + 1
  
  If good_running Then
    OK_Number = OK_Number + 1
  End If
  
  If bad_running Then
    NG_Number = NG_Number + 1
  End If
  
  Pass_Rate = OK_Number / Total_Number*100
  Pass_Rate = FormatNumber(Pass_Rate, 2) & "%"

  'MsgBox("查询到表格共有" & Total_Number &"行数据")
  '------- 数据输出 --------' 
  HMIRuntime.Tags("生产总根数").write Total_Number
  HMIRuntime.Tags("好料根数").write OK_Number
  HMIRuntime.Tags("坏料根数").write NG_Number
  HMIRuntime.Tags("合格率").write Pass_Rate
  
'--------------------- 写入日生产报表数据 --------------------' 
   '------- 打开当日报表 --------'  
 Dim objExcelApp,objExcelBook,objExcelSheet,a,b
	Set objExcelApp =CreateObject("Excel.Application")
	    objExcelApp.Visible=True
	Set a =objExcelApp.Workbooks.Open(HMIRuntime.ActiveProject.Path & "\report\日生产报表\3D检测当日报表.xlsx")  
	Set b =a.Worksheets("Sheet1")
	    b.Range("F2") =  CStr(Year(Now)) & "年"  & CStr(Month(Now)) &"月" & CStr(Day(Now)) &"日"         
	    objExcelApp.Worksheets("Sheet1").Activate  
   
   '------- 向EXCEL写入数据的数据  --------'
Dim m,date_now,speed,data_Length,status_Code,status,number_of_errors 
   m=7+Total_Number
   date_now=CStr(Year(Now))&"/"&CStr(Month(Now))&"/"&CStr(Day(Now))&"_"&CStr(Hour(Now))&":"&CStr(Minute(Now))&":"&CStr(Second(Now))
   speed = HMIRuntime.Tags("SPEE").read
   speed = speed/10 & "m/min"
   data_Length = HMIRuntime.Tags("TO_3D_长度").read
   data_Length = data_Length & "mm"
	   If good_running Then
	    status_Code = 1
	    status = "OK"	   
	   End If
  
	  If bad_running Then
	    status_Code = 0
        status = "NG"       
	  End If
 number_of_errors = HMIRuntime.Tags("test_错误数").read
   'MsgBox("查询m的值为：" & m)
      
   With objExcelApp.Worksheets("Sheet1")
     
     .cells(5,4).value = Total_Number
     .cells(5,6).value = OK_Number
     .cells(5,8).value = NG_Number
     .cells(6,6).value = Pass_Rate
     
     .cells(m,1).value = Total_Number
     .cells(m,2).value = date_now
     .cells(m,4).value = data_Length
     .cells(m,5).value = status_Code
     .cells(m,6).value = status
     .cells(m,7).value = number_of_errors  
  End With
  'MsgBox("查询m的值为：" & m)
   '---------------------以日期命名，并保存到指定文件夹 --------------------'   
objExcelApp.DisplayAlerts = False '对打开的文件，直接保存时，避免弹出对话框窗口，而是直接覆盖     
Dim patch,filename
 filename=CStr(Year(Now)) & "年"  & CStr(Month(Now)) &"月" & CStr(Day(Now)) &"日" &"_"& HT
 patch=HMIRuntime.ActiveProject.Path & "\report\日生产报表\"&filename&".xlsx" 
 objExcelApp.ActiveWorkbook.SaveAs patch
 Dim patch1,filename1
 filename1=CStr("3D检测当日报表")
 patch1= HMIRuntime.ActiveProject.Path & "\report\日生产报表\"&filename1&".xlsx" 
 objExcelApp.ActiveWorkbook.SaveAs patch1
 objExcelApp.ActiveWorkbook.SaveAs HMIRuntime.ActiveProject.Path & "\report\日生产报表\web\日报表.htm",44
 objExcelApp.Workbooks.Close
 objExcelApp.Quit

'---------------------关闭Excel模板 --------------------'
Set objExcelApp= Nothing

‘---------------------报表显示 --------------------’
Dim wbCtrl
Set wbCtrl = HMIRuntime.Screens(“报表界面_TEST”).ScreenItems(“myweb”) '"Web"为Web控件名称
wbCtrl.Navigate HMIRuntime.ActiveProject.Path & “\report\日生产报表\web\日报表.htm”

End If

End Sub

五、运行展示

在这里插入图片描述

好管坏管各测试生产一次
在这里插入图片描述

六、项目文件下载

链接: 项目文件下载链接.

文章知识点与官方知识档案匹配，可进一步学习相关知识
MySQL入门技能树数据库组成表 33584 人正在系统学习中
weixin_46429259
关注
  • 0
    点赞
  • 踩
  • 7
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
wincc显示系统时间_Wincc VBS脚本读取系统时间
weixin_39985472的博客
12-23 1110
编写控制代码。Dim Date_riqiDim riqiSet riqi=HMIRuntime.Tags("Date_riqi")Dim Date_YearSet Date_Year=HMIRuntime.Tags("Date_Year")Dim Date_MonthSet Date_Month=HMIRuntime.Tags("Date_Month")Dim Date_DaySet Date_D...
飞扬报表教程
08-21
相当有用 对于使用飞扬报表的人来说 详细介绍了各种报表模式的显示和设置方法！
VB操作wincc
shahuaw的博客
09-20 1488
【代码】VB操作wincc。
博图软件的C语言脚本,wincc v13 博图软件里如何写脚本程序
weixin_35599815的博客
05-23 3619
HMI变量新建了三个内部变量，分别为tag1，tag2，tag3脚本函数实现tag3=tag1xtag2，该函数每隔5S执行一次问题补充：我说的是触摸屏最佳答案VBS:HmiRuntime.tags("tag3").writeHmiRuntime.tags("tag1").read*HmiRuntime.tags("tag2").read也是全局脚本里面，或者在画面的某个属性里面做...
WINCC VBS常用总结
weixin_46439946的博客
07-04 1420
​@[TOC](WINCC VBS常用操作)
wincc变量定时存储到本地数据库
薛定谔的猫头咕咕咕
09-09 1694
项目场景： 将wincc的变量定时存储到sql server数据库（需要设置定时触发器） 代码实现： Dim sCon, conn, oRs, sql_command, oCom, strcn Dim R1 Set R1 = HMIRuntime.Tags("S7R2_R1") R1.Read Dim R2 Set R2 = HMIRuntime.Tags("S7R2_R2") R2.Read Dim R3 Set R3 = HMIRuntime.Tags("S7R2_R3") R3.Read Di
WinCC_V7.5_compatibility-list_zh_2019-01-16.zip
05-14
WinCC_V7.5_compatibility-list_zh_2019-01-16.zip
NetTracker Enterprise v7.5
11-03
一个web流量分析软件，可以灵活的从web服务器日志和网页标签收集数据，进行点击流分析，产生ad hoc和客户报表，动态生成内容分析报告等，不仅包括Professional专业版的所有功能，而且专门为企业应用提供了高级功能：...
NetTracker Professional v7.5
11-03
一个web流量分析软件，可以灵活的从web服务器日志和网页标签收集数据，进行点击流分析，产生ad hoc和客户报表，动态生成内容分析报告等。
金蝶云星空+V7.5_发版说明.pdf
02-28
金蝶软件公司的K/3CLOUD金蝶云星空V7.5发版说明 312页 1 综述 1 1.1 产品特性 2 1.2 产品形态 5 1.3 云服务构成 5 2 产品主要功能 7 2.1 本版新增及完善的主要功能 7 2.1.1 财务云 7 2.1.2 供应链云 11 ...
WINCC报表详细设计步骤
05-21
WINCC报表详细设计步骤.
wincc脚本功能之变量自增(VBS)
yue008的博客
02-28 5737
wincc软件 VBS脚本 自增
Wincc中使用使用VB脚本进行变量的读和写
Amosi's Blog
04-30 1万+
问题详情 Wincc支持C和VB脚本，C脚本中通常有现成的函数GetTagWord（），SetTagWord（）等来对变量进行读和写操作，VB显然没有C那么强大
今天的0时是昨天的24时_wincc 中怎么样获取当天0时和24时日期时间值-工业支持中心-西门子中国...
weixin_36185512的博客
01-13 505
1、变量管理器->创建SYSTEMINFO通道，创建字符串内部变量，选择对应的日期格式以及时间格式即可。注意：本地计算机时间是字符串类型的。通过WinCC变量读出后，可以编辑该字符串，可以将其拆分(例如年，月，日，时，分秒)。应该注意的是该时间显示的格式与操作系统的区域设置相一致。关于SystemInfo通道的相关信息可以参看WinCC在线帮助下的：“WinCC信息系统...
Wincc报表案例_设备运行报表
qq_58220938的博客
08-07 1万+
设备运行报表案例实现目录概述三、Wincc 变量四、数据存储脚本5、报表制作5、报表制作六、导出EXCEL七、打印EXCEL 目录 概述 在工业生产中存在很多设备，例如机床，压机等，在实际生产过程中需要对这些设备的启停时间、耗电量以及生产产品的数量这些运行数据进行统计，作为分析企业生产运营情况的依据。 本文以WinCC V7.5 SP1为例，介绍WinCC如何实现设备运行数据统计并通过报表的形式展现统计数据，如图1所示: 可以实现如下功能： ➢ 自动记录各设备的运行数据 ➢ 自动统计各设备的运行时间 ➢
wincc画面图层的显示和隐藏
yue008的博客
03-09 8033
最近在逛西门子论坛时，发现一个有趣的功能，可以通过脚本对画面的图层进行隐藏和显示，不过该帖子只显示了 简单的脚本代码，本着实践是学习的最好方法。我进行了实际操作，并增加了新的功能。下面是我实际操作的步骤和总结 思路 将整个画面作为对象，然后修改对象的属性方法，实现画面图层的隐藏显示 难点 如何将整个画面作为对象 画面中图层号和脚本中索引值的关系 随机数据的产生 软件配置 条目 描述 软件版本 wincc7.5 SP1 实现步骤 创建项目 打开wincc 7.5 Advance软件
wincc与Access数据库的数据交互(写入数据)
yue008的博客
02-23 4821
wincc的数据存储目前主要是存储到数据库，而目前主流的数据库，主要由SQL Server和Access数据库，此文主要是关于wincc如何与Access数据库之间的数据读取。 条目 描述 运行环境 wincc7.5 SP1 Access数据库 2010版 运行画面 操作流程 创建Access数据库表 1.创建Access数据库文件，文件名：Wincc_Access_Data.accdb 2.创建数据库表，表名：Machineinfo，表内字段为：ID、Pressure、Temp
WINCC读写SQL数据库的示例
热门推荐
bazzihong的博客
03-21 3万+
一、在数据库中建立数据库文件，文件名为“读写数据库”，在数据库中建立新的表，命名为“个人信息”分别建立编号、姓名、年龄。 二、数据库中建立表后，在wincc中建立与数据库中类型相同的变量，变量类型相同在读写数据时很重要。在图形编辑器中新建画面，并在画面中增加三个输入输出域，并连接变量。 三、添加两个按钮控件，分别命名为写数据、读数据。 1.在写数据中写入如下脚本 Dim sSql Dim
wincc v7.5 设备运行报表
最新发布
11-04
最后，用户可以通过WinCC V7.5的报表管理功能查看、导出和保存报表。 通过设备运行报表，用户可以实时掌握设备的运行情况，及时发现和解决问题，提高设备的运行效率和稳定性。此外，设备运行报表还可以帮助用户分析...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值