精华内容
下载资源
问答
  • 2022-01-04 11:12:33

    EXCEL读Wincc归档数据做报表 1

    1. 目标: 1
    2. 前提 1
    3. 方法 2
      3.1. 建立wincc工程、建立工程变量、归档变量。 2
      3.2. 建立excel 文件,格式如前面的Excel表格。 3
      3.3. 在EXCEL中添加按钮 8
      3.4. Wincc画面中添加按钮, 8
    4. 使用方法 8

    在这里插入图片描述
    在这里插入图片描述

    .

    更多相关内容
  • Wincc自动生成excel的c脚本,已在wincc7.0版本上测试完毕。
  • 使用Excel的VBA功能实现和WINCC的变量建立连接,实现数据查询,可实现实时数据历史数据库查询,将获得的数据生成报表。效果如下图 打开excel的代码编辑,并在workbook模块下建立如下代码: 创建变量: Public s...

    WINCC自带的报表功能,在工程应用上不太适合国人的风格,所以就想借用强大的excel表格功能来制作灵活多变的丰富的报表。使用Excel的VBA功能实现和WINCC的变量建立连接,实现数据查询,可实现实时数据历史数据库查询,将获得的数据生成报表。效果如下图在这里插入图片描述

    打开excel的代码编辑,并在workbook模块下建立如下代码:

    创建变量:

    Public sStart, sStop, I1, I2, I3, U12, U23, U13, P, Q, PF, EPimp, EQimp, username, WPName, pds
    Dim sPro
    Dim sDsn
    Dim sSer
    Dim sCon
    Dim sSql
    Dim conn
    Dim oRs
    Dim oCom
    Dim DSNName
    Dim i
    Dim j
    Dim k
    Dim arrStart(0 To 63)
    Dim arrStop(0 To 63)
    Dim arrValue(0 To 63)
    Public Tmp_time, CTime1, CTime2
    

    获取WINCC中相应变量的名称,后续程序中需要使用的变量:

    Public Sub get_date()
    Set tagname1 = CreateObject("CCHMIRuntime.HMIRuntime")
    username = tagname1.Tags("@CurrentUser").Read
    I1 = tagname1.Tags("Tag_RP_I1").Read
    I2 = tagname1.Tags("Tag_RP_I2").Read
    I3 = tagname1.Tags("Tag_RP_I3").Read
    U12 = tagname1.Tags("Tag_RP_U12").Read
    U23 = tagname1.Tags("Tag_RP_U23").Read
    U13 = tagname1.Tags("Tag_RP_U13").Read
    P = tagname1.Tags("Tag_RP_P").Read
    Q = tagname1.Tags("Tag_RP_Q").Read
    PF = tagname1.Tags("Tag_RP_PF").Read
    EPimp = tagname1.Tags("Tag_RP_EPimp").Read
    EQimp = tagname1.Tags("Tag_RP_EQimp").Read
    sStart = tagname1.Tags("sStartTime").Read
    sStop = tagname1.Tags("sStopTime").Read
    WPName = tagname1.Tags("WPName").Read
    pds = tagname1.Tags("WPName_pds").Read
    
    End Sub
    

    创建数据库连接:

     Sub DataConnect()
    '--------------------创建连接----------------------------------------
    On Error GoTo myerr
    Set DSNName = CreateObject("CCHMIRuntime.HMIRuntime")
    sDsn = DSNName.Tags("@DatasourceNameRT").Read
    sPro = "Provider=WinCCOLEDBProvider.1;"
    sDsn = "Catalog=" & sDsn & ";"
    sSer = "Data Source =.\WINCC"
    sCon = sPro & sDsn & sSer
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = sCon
    conn.CursorLocation = 3
    conn.Open
    Set oRs = CreateObject("ADODB.Recordset")
    Set oCom = CreateObject("ADODB.Command")
    oCom.CommandType = 1
    Set oCom.activeconnection = conn
    sSql = "Tag:R,('" & I1 & "'),'0000-00-00 00:00:00.000','0000-00-00 01:00:00.000'"
    oCom.CommandText = sSql
    Set oRs = oCom.Execute
    n = oRs.RecordCount
    If (n > 0) Then
        oRs.movefirst
         Tmp_time = oRs.fields("TimeStamp").Value
        oRs.Close
    Else
    End If
    Exit Sub
    myerr: MsgBox "数据库连接错误!"
    End Sub
    

    查询wincc历史数据库中的数据,并将查询到的数据填充表格,主要代码如下:

    Sub GetDataTotal()
    On Error GoTo myerror
    sSql = "Tag:R,('" & I1 & "'),'" & sStart & "','" & sStop & "','timestep =3600,258'"
    oCom.CommandText = sSql
    Set oRs = oCom.Execute
    n = oRs.RecordCount
    If (n > 0) Then
        oRs.movefirst
        b = 0
        Do While Not oRs.EOF
         Worksheets("Sheet1").Cells(b + 5, 2) = oRs.fields("RealValue").Value
        oRs.movenext
        b = b + 1
        Loop
        oRs.Close
    Else
    MsgBox "查无数据!"
    End If
    'B相电流
    sSql = "Tag:R,('" & I2 & "'),'" & sStart & "','" & sStop & "','timestep =3600,258'"
    oCom.CommandText = sSql
    Set oRs = oCom.Execute
    n = oRs.RecordCount
    If (n > 0) Then
        oRs.movefirst
        b = 0
        Do While Not oRs.EOF
        Worksheets("Sheet1").Cells(b + 5, 3) = oRs.fields("RealValue").Value
        oRs.movenext
        b = b + 1
        Loop
        oRs.Close
    Else
    MsgBox "查无数据!"
    End If
    
    ......
    
    Exit Sub
    myerror: MsgBox "错误,请输入正确的时间!"
    End Sub
    

    表头生成:

    Sub FillDataTotal()
    Cells(1, 1).Value = WPName & "   日报表"
    Cells(2, 12).Value = sStop
    Cells(31, 13).Value = username
    If pds = "高压配电所" Then
     Cells(3, 13).Value = "有功电度(MWh)"
     Cells(3, 14).Value = "无功电度(Mvarh)"
     Cells(29, 6).Value = "(MWh)"
     Cells(29, 12).Value = "(Mvarh)"
     Else
      Cells(3, 13).Value = "有功电度(KWh)"
     Cells(3, 14).Value = "无功电度(Kvarh)"
     Cells(29, 6).Value = "(KWh)"
     Cells(29, 12).Value = "(Kvarh)"
     End If
    End Sub
    

    清空表格:

    Sub cleartable()
    Dim i, j
    For i = 5 To 28
        For j = 2 To 4
        Worksheets("Sheet1").Cells(i, j).Value = 0
        Next
     Next
      For i = 5 To 28
        For j = 6 To 8
         Worksheets("Sheet1").Cells(i, j).Value = 0
        Next
     Next
      For i = 5 To 28
        For j = 10 To 14
         Worksheets("Sheet1").Cells(i, j).Value = Null
        Next
        Next
    End Sub
    

    保护excel表,防止生成的报表数据被篡改:

    Public Sub ProtectAllSheets()
    Dim n As Integer
    For n = 1 To Worksheets.Count
    Worksheets(n).Protect Password:="EHSJDFLjkhshdkduk2735649ex", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True _
    , AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
    Next
    End Sub
    

    解锁excel:

    Public Sub UnprotectAllSheets()
    Dim n As Integer
    For n = 1 To Worksheets.Count
    Worksheets(n).Unprotect Password:="EHSJDFLjkhshdkduk2735649ex"
    Next
    End Sub
    

    主程序:获取wincc中的变量名,解锁excel,清空,并创建wincc历史数据库的连接,弹出需要查询的日期,选择完日期后,按日期查询数据,计算,填表。

    Private Sub Workbook_Open()
    Dim year1, year2
    Dim month1, month2
    Dim day1, day2
    get_date         '获取日期,获取出表人
    UnprotectAllSheets   '解锁Excel保护
    cleartable
    DataConnect      '创建数据库连接
    '如果选择的时间超出数据库存储的时间,结束查询。
    CTime1 = CDate(sStop)
    CTime2 = CDate(Tmp_time)
    year1 = Year(CTime1)
    year2 = Year(CTime2)
    month1 = Month(CTime1)
    month2 = Month(CTime2)
    day1 = Day(CTime1)
    day2 = Day(CTime2)
    If (year2 > year1) Then
    MsgBox "时间选择错误,请重选时间!"
    GoTo timeerr
    Else
        If (year2 = year1) Then
            If (month2 > month1) Then
            MsgBox "时间选择错误,请重选时间!"
            GoTo timeerr
            Else
                If (month2 = month1) Then
                    If (day2 > day1) Then
                    MsgBox "时间选择错误,请重选时间!"
                    GoTo timeerr
                    Else
                    End If
                End If
            End If
        End If
    End If
    GetDataTotal     '获取电度总计
    FillDataTotal    '填写电度总计数据
    ProtectAllSheets     '保护Excel内容
    Exit Sub
    timeerr:
    ProtectAllSheets     '保护Excel内容
    
    End Sub
    

    源代码:https://download.csdn.net/download/lujiakai113/21048335

    展开全文
  • wincc嵌入式excel报表

    2022-06-06 10:56:37
    wincc嵌入式excel报表一、功能介绍该报表系统能够读取WINCC中历史归档数据,产生出EXCEL报表文件,同时在画面中EXCEL控件实时显示。该报表系统有如下优点:1、 该报表系统具备日报表、月报表、年报表、自由报表...

    wincc嵌入式excel报表

    一、功能介绍

    该报表系统能够读取WINCC中历史归档数据,产生出EXCEL报表文件,同时在画面中EXCEL控件实时显示。

    该报表系统有如下优点:

    1、 该报表系统具备日报表、月报表、年报表、自由报表(任意时间段)功能。

    2、 报表读取的数据是WINCC自带的变量记录数据库,不需要第三方数据库。

    3、 该报表系统能在不同的项目之间移植,过程简单。

    4、 生成的EXCEL文件是基于模板文件生成的,模板文件修改容易,效果直观。

    5、 数据读取时,进行了适当的筛选和处理。

    只读取有效数据,数据质量不合格的将被舍弃。

    数据处理有3种方式:实时、平均、累计。

    6、 日、月、年报表数据来源可以相互独立。

    7、 该报表系统在画面中集成了EXCEL控件,能实时显示生成的报表文件。

    8、 报表系统适用性强,适用版本6.0\\6.2\\7.0\\7.2

    不需要任何基础,只需要修改Excel模板就可以!
    请添加图片描述ID:69220655132526393
    请添加图片描述
    请添加图片描述
    请添加图片描述

    展开全文
  • wincc用脚本向EXCEL定时写数据生成报表
  • 目录1 <概述>2 <创建模板>3 < Wincc变量>4 <创建全局动作>4.1 动作1脚本:创建文件及拷贝报表4.2 全局动作2:整点存储数据...本文以Wincc V7.5 SP1 为例,介绍Wincc如何获取设备运行数据统计并

    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 <运行结果>

    在这里插入图片描述

    展开全文
  • 使用 WinCC DataMonitor 基于 Web 发布浏览 Excel 报表文档
  • wincc用脚本向EXCEL定时写数据生成报表
  • 希望导出的excel报表文件在C盘根目录,是这个样子: 21.Wincc控件制作报表以及导出EXCEL方法介绍 接下来我们一步步实现这个功能。 Wincc历史趋势的数据库表结构有点不好理解,我们新建一个数据库名字叫做Report,...
  • (Wincc V7.5报表(现场调试复盘)

    千次阅读 2022-01-19 18:49:57
    Wincc V7.5报表(现场调试复盘)一、案例展示二、制作思路三、项目建立3.1创建报表模板3.2新建内部变量3.3新建画面四、脚本讲解4.1 数据确认 按钮脚本4.2 项目模板脚本五、运行展示 一、案例展示 上面图一为运行的...
  • WinCC + Excel + VBS = 定时自动打印报表

    万次阅读 2013-10-29 19:49:19
    1.1 报表生成时间 0时10分 1.2 打印时间 打印机自动打印 1.3 报表格式 标记说明: (1)AVE:每时DATA的平均值 (2)MAX:每时DATA的最大值 (3)MIN:每时DATA的最小值 (4)每时:每整点的瞬时值 TAG ...
  • wincc 中怎么做才能把报表生成按日期的Excel 文件
  • TIA博途WINCC中通过VBS脚本执行向文件中读写数据的具体操作步骤
  • Wincc报表案例_设备运行报表

    千次阅读 2021-08-07 15:43:08
    设备运行报表案例实现目录概述三、Wincc 变量四、数据存储脚本5、报表制作5、报表制作六、导出EXCEL七、打印EXCEL 目录 概述 在工业生产中存在很多设备,例如机床,压机等,在实际生产过程中需要对这些设备的启停...
  • WinCC OPC 报表总结

    2012-07-03 02:11:13
    进入自动控制的年代,升级成为计算机控制的自动报表,既减轻劳动强度,又减少出错几率。 当前国内外有很多著名的DCS厂商,如SIEMNES,ABB,等,他们都把重点放在了对现场的监控和现场数据的获取上,在报表方面做的不够...
  • Wincc v7.5报表教程目录一、概述1.1 前言1.2 主要功能1.3 使用的软件二、Wincc链接SQL Server数据库2.1 前言功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片...
  • 简单的报表制作,计算总支出,收入,每月可使用的招待费用计算,对财务人员日常使用提供很大的帮助
  • WINCC用VB读写数据库以及EXCEL导出

    千次阅读 多人点赞 2020-03-16 23:24:07
    本文主要是介绍WINCC7.4 用VB来读写SQL server数据库,网上有不少这类例子,实现功能的方法也很多,但是能完整介绍并且贴出所有编码的还是比较少,今天的这个例子,我会先把所有的内容先截图展示,然后再提供整个...
  • WinCC数据报表控件

    万次阅读 2019-04-06 13:24:44
    1、背景 WinCC实现报表历来是老大难,自带的...您无需一行脚本即可完成WINCC报表,除了可以打印及导出Excel外还支持曲线展示。  该控件不但可以嵌入到WinCC/TIA WinCC画面中,还有单独的可执行程序提供查询。除...

空空如也

空空如也

1 2 3 4
收藏数 66
精华内容 26
关键字:

wincc自动生成excel报表