当前位置：首页 > news >正文

Wincc报表模板：包含VBS脚本、数据库连接及自定义功能的班次、日、月、年报表项目

news 2026/3/27 1:29:03

Wincc报表模板Wincc报表班次报表，日报表，月报表，年报表，存储自带的数据库。项目包含:wincc报表vbs脚本,连接数据库，存储，查询，更新数据脚本。每天定时导出成EXECL报表。报表可以自定义阈值查询条件。可以自定义存储时间，查询时间。报表控件，语音报警控件，水球，各种好看图表控件。注:提供完整项目，提供核心画面和脚本文件。

在工控项目里，报表系统是让人又爱又恨的存在——需求方要花式查询，运维人员要稳定存储，而开发者得在WinCC这老伙计身上玩出花儿。今天咱们聊聊怎么用VBS脚本+SQL数据库搞出个能打的报表系统，关键是还能让Excel自动导表不加班。（文末有项目资源获取方式）

先看数据库连接这硬骨头。VBS操作SQL Server的脚本得这么写：

Set conn = CreateObject("ADODB.Connection") conn.ConnectionString = "Provider=SQLOLEDB;Data Source=WINCC_SERVER;Initial Catalog=ReportDB;User ID=sa;Password=123456;" conn.Open If conn.State = 1 Then SmartTags("DB_Status") = "Connected" Else MsgBox "数据库连接异常，错误码：" & Err.Number End If

这里有个坑：WinCC自带的SQL版本可能和脚本不兼容，建议在连接字符串里显式指定SQL Native Client。曾经有个项目因为漏了这句，调试了一整天...

定时导出Excel才是重头戏。用Windows自带的计划任务+脚本比WinCC内部定时器更稳：

Sub ExportDailyReport() Set excelApp = CreateObject("Excel.Application") excelApp.Visible = False '无界面运行 Set workbook = excelApp.Workbooks.Open("D:\ReportTemplate.xlsx") '用SQL语句直接填充数据 rs.Open "SELECT * FROM DailyReport WHERE Time BETWEEN #" & StartTime & "# AND #" & EndTime & "#", conn 'VBS操作Excel单元格像极了爱情 workbook.Sheets(1).Range("A2").CopyFromRecordset rs workbook.SaveAs "D:\Reports\" & Format(Now, "yyyyMMdd") & ".xlsx" excelApp.Quit End Sub

注意Excel进程残留问题！一定要在finally块里确保excelApp.Quit执行，否则服务器跑半个月就卡死。

自定义查询条件得用点黑魔法。在WinCC画面上放两个日期控件：

Function CustomQuery() startDate = HMIRuntime.Tags("StartDate").Read endDate = HMIRuntime.Tags("EndDate").Read sql = "SELECT * FROM AlarmLog WHERE AlarmTime >= '" & startDate & "' AND AlarmTime <= '" & endDate & "'" '参数化查询防注入 Set cmd = CreateObject("ADODB.Command") cmd.Parameters.Append cmd.CreateParameter("@Start", 135, 1, , startDate) '135对应adDBTimeStamp '...其他参数 End Function

日期格式转换是个大坑，建议用FormatDateTime函数统一转成yyyy-mm-dd hh:nn:ss格式。

可视化控件方面，水球图用SVG+动态属性最香：

<svg> <path d="M50,90 Q50,${85 - (Level*0.3)} 60,80" fill="#00a8ff"/> <text x="50" y="50">${CurrentValue}%</text> </svg>

配合VBS定时更新Level变量的值，比第三方控件轻量多了。语音报警推荐用SAPI.SpVoice对象，但记得设置单例模式，避免多个语音重叠。

存储策略得玩点花样：

CREATE PROCEDURE AutoArchive AS BEGIN DELETE FROM HourlyData WHERE Time < DATEADD(MONTH, -3, GETDATE()) EXEC sp_archive @TableName='HourlyData', @RetentionPeriod=90 END

建议用SQL作业代替WinCC脚本执行归档，毕竟事务处理更专业。定期重建索引能让查询速度快到飞起，特别是月报表这种需要跨表查询的场景。

项目包里已经配置好：