wincc自动生成excel报表

wincc自动生成excel报表 EXCEL读Wincc归档数据做报表
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脚本
2017-12-31 15:44:17

Wincc自动生成excel的c脚本，已在wincc7.0版本上测试完毕。

收起

使用Excel连接WINCC生成报表的实现方法

千次阅读 2021-08-12 19:16:29

使用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

收起

展开全文

数据库
00 WINCC 调用动态库出EXCEL报表例程的说明_wincc报表_WinCC_wincc报表_WINCC向EXCEL写数据
2021-09-11 02:01:58

wincc用脚本向EXCEL定时写数据生成报表

收起

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

千次阅读 2021-05-16 00:24:42

目录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 报表文档
2018-02-03 10:10:02

使用 WinCC DataMonitor 基于 Web 发布浏览 Excel 报表文档

收起
00 WINCC 调用动态库出EXCEL报表例程的说明,wincc报表步骤实例,C#
2021-09-11 02:01:58

wincc用脚本向EXCEL定时写数据生成报表

收起
（转载）Wincc控件制作报表以及导出EXCEL方法介绍
千次阅读 2019-08-07 16:45:39

希望导出的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_文件
2012-08-02 17:09:24

在wincc 中怎么做才能把报表生成按日期的Excel 文件

收起
TIA博途WINCC中通过VBS脚本执行向文件中读写数据的具体操作步骤.docx
2021-10-12 09:31:50

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报表教程(SQL数据库的建立，wincc在数据库中保存和查询数据，调用Excel模板把数据保存到指定的位置和...
万次阅读 多人点赞 2021-08-06 15:02:34

Wincc v7.5报表教程目录一、概述1.1 前言1.2 主要功能1.3 使用的软件二、Wincc链接SQL Server数据库2.1 前言功能快捷键合理的创建标题，有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片...

收起

sql
excel 使用vba制作简单报表
2016-11-24 10:54:02

简单的报表制作，计算总支出，收入，每月可使用的招待费用计算，对财务人员日常使用提供很大的帮助

收起
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画面中，还有单独的可执行程序提供查询。除...

收起

Wincc自动生成excel的c脚本

使用Excel连接WINCC生成报表的实现方法

wincc嵌入式excel报表

00 WINCC 调用动态库出EXCEL报表例程的说明_wincc报表_WinCC_wincc报表_WINCC向EXCEL写数据

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

目录

1 <概述>

2 <创建模板>

3 < Wincc变量>

4 <创建全局动作>

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

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

5 <制作报表画面>

5.1 控件添加

5.2 脚本

6 <运行结果>

使用 WinCC DataMonitor 基于 Web 发布浏览 Excel 报表文档

00 WINCC 调用动态库出EXCEL报表例程的说明,wincc报表步骤实例,C#

（转载）Wincc控件制作报表以及导出EXCEL方法介绍

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

WinCC + Excel + VBS = 定时自动打印报表

在wincc_中怎么做才能把报表生成按日期的Excel_文件

TIA博途WINCC中通过VBS脚本执行向文件中读写数据的具体操作步骤.docx

Wincc报表案例_设备运行报表

WinCC OPC 报表总结

Wincc报表教程(SQL数据库的建立，wincc在数据库中保存和查询数据，调用Excel模板把数据保存到指定的位置和...

excel 使用vba制作简单报表

WINCC用VB读写数据库以及EXCEL导出

WinCC数据报表控件

wincc自动生成excel报表