WinCC与Excel数据交互性能优化实战

1. 项目背景与痛点分析

在工业自动化领域，WinCC作为西门子旗下的经典SCADA系统，经常需要与Excel进行数据交互。典型的应用场景包括：设备参数查询、工艺配方管理、生产记录存储等。传统实现方式是通过VBA脚本直接操作Excel对象，但这种方案存在明显的性能瓶颈。

我在最近一个汽车零部件生产线的项目中，遇到了这样的典型场景：需要根据PLC实时采集的设备状态码（约每秒2-3次），从包含2000多条记录的Excel表格中查询对应的工艺参数。最初采用的标准VBA方案，每次查询都要经历以下耗时操作：

1. 创建Excel.Application对象（约0.5秒）
2. 打开工作簿文件（约1.2秒）
3. 遍历工作表查找数据（约6秒）
4. 关闭工作簿和退出Excel（约0.3秒）

实测平均每次查询耗时8秒左右，这对于需要实时响应的生产线控制是完全不可接受的。更糟糕的是，当多个查询请求并发时，还会出现Excel进程卡死的情况。

2. 技术方案选型与对比

2.1 传统VBA方案的问题本质

传统方案性能低下的根本原因在于IO瓶颈。每次查询都涉及：

• 磁盘IO（读取Excel文件）
• 进程间通信（WinCC与Excel的交互）
• COM对象创建销毁开销

这就像每次查字典都要重新印刷一本新字典，效率可想而知。

2.2 可行的优化方向

经过技术调研，我们评估了三种改进方案：

综合考虑实施成本和效果，我们选择了内存驻留方案，具体采用ADO+全局变量的实现方式。

3. 核心实现细节

3.1 ADO连接配置技巧

vbs复制' 推荐使用ACE引擎而非JET，支持新版本Excel
connStr = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
          "Data Source=D:\data.xlsx;" & _
          "Extended Properties='Excel 12.0;HDR=Yes;IMEX=1'"

' HDR=Yes 表示第一行是列标题
' IMEX=1 强制混合数据转换为文本，避免类型猜测错误

特别提醒：在WinCC环境运行时，需要确保服务器安装了对应的Access Database Engine。建议使用"Excel 97-2003"格式(.xls)以获得最佳兼容性。

3.2 数据加载优化实践

vbs复制Dim globalData  ' 模块级变量存储数据

Sub InitData()
    On Error Resume Next
    Set conn = CreateObject("ADODB.Connection")
    conn.Open connStr
    
    Set rs = CreateObject("ADODB.Recordset")
    ' 明确指定列而非SELECT *，减少内存占用
    rs.Open "SELECT ID,Param1,Param2 FROM [工艺参数$]", conn
    
    ' 关键性能操作：GetRows将记录集转为二维数组
    globalData = rs.GetRows() 
    
    rs.Close
    conn.Close
    On Error Goto 0
    
    ' 验证数据加载
    If Not IsArray(globalData) Then
        HMIRuntime.Trace "数据加载失败！错误：" & Err.Description
    Else
        HMIRuntime.Trace "成功加载 " & UBound(globalData,2)+1 & " 条记录"
    End If
End Sub

重要提示：GetRows返回的数组是列优先的[col,row]结构，与常规认知相反。UBound(globalData,2)获取的是行数。

3.3 查询函数实现

基础版本（线性搜索）：

vbs复制Function QueryByID(deviceID)
    If Not IsArray(globalData) Then InitData ' 惰性初始化
    
    For row = 0 To UBound(globalData, 2)
        If CStr(globalData(0, row)) = CStr(deviceID) Then
            QueryByID = globalData(1, row) ' 返回Param1列
            Exit Function
        End If
    Next
    
    QueryByID = "N/A"
    HMIRuntime.Trace "未找到设备ID：" & deviceID
End Function

高级版本（字典索引）：

vbs复制Dim dict  ' 模块级字典对象

Sub BuildIndex()
    Set dict = CreateObject("Scripting.Dictionary")
    dict.CompareMode = 1  ' 文本比较模式
    
    For row = 0 To UBound(globalData, 2)
        key = CStr(globalData(0, row)) ' 设备ID作为键
        If Not dict.Exists(key) Then
            dict.Add key, row
        End If
    Next
End Sub

Function FastQuery(deviceID)
    If dict Is Nothing Then BuildIndex
    
    If dict.Exists(CStr(deviceID)) Then
        row = dict(CStr(deviceID))
        FastQuery = globalData(1, row)
    Else
        FastQuery = "N/A"
    End If
End Function

4. 性能对比实测

在2000条记录（20列）的测试环境中：

内存占用方面：

• 原始Excel文件大小：1.8MB
• 加载到内存后：约45MB（VBScript数组开销）
• 建立字典索引后：额外增加约8MB

5. 工程实践建议

5.1 初始化时机选择

推荐在以下时机调用InitData：

1. WinCC项目启动时（Global Script的Project_Open）
2. 通过专用"数据刷新"按钮手动触发
3. 检测到Excel文件修改时间变化时（需FileSystemObject监控）

5.2 错误处理要点

vbs复制Sub SafeInitData()
    On Error Resume Next
    
    ' 尝试释放现有连接
    If IsObject(conn) Then conn.Close
    If IsObject(rs) Then rs.Close
    
    ' 初始化新连接
    Set conn = CreateObject("ADODB.Connection")
    conn.Open connStr
    If Err.Number <> 0 Then
        HMIRuntime.Trace "连接失败：" & Err.Description
        Exit Sub
    End If
    
    ' ...其余初始化代码...
    
    On Error Goto 0
End Sub

常见错误处理场景：

• 文件被占用（Error 70）：提示用户关闭Excel
• 路径不存在（Error 76）：检查网络映射驱动器
• 字段不存在（Error 3265）：验证SQL语句

5.3 内存管理技巧

1. 定期检查：在全局脚本中添加内存检查逻辑

vbs复制Sub CheckMemory()
    If IsArray(globalData) Then
        HMIRuntime.Trace "当前缓存记录数：" & UBound(globalData,2)+1
    End If
End Sub

2. 显式释放：在项目关闭时清理资源

vbs复制Sub Project_Close()
    Set globalData = Nothing
    Set dict = Nothing
End Sub

6. 高级应用场景

6.1 多条件组合查询

vbs复制Function QueryByMulti(deviceID, productType)
    ' 构建复合键
    compositeKey = CStr(deviceID) & "|" & CStr(productType)
    
    ' 预加载索引
    If dict Is Nothing Then BuildIndex
    
    ' 查询处理
    If dict.Exists(compositeKey) Then
        row = dict(compositeKey)
        result = "温度:" & globalData(2,row) & _
                 " 压力:" & globalData(3,row)
        QueryByMulti = result
    End If
End Function

6.2 数据变更通知机制

通过FileSystemObject监控文件变更：

vbs复制Dim lastModTime

Sub MonitorExcelFile()
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.GetFile("D:\data.xlsx")
    
    If file.DateLastModified <> lastModTime Then
        lastModTime = file.DateLastModified
        InitData  ' 重新加载数据
        BuildIndex
        HMIRuntime.Trace "检测到数据变更，已重新加载"
    End If
End Sub

7. 实际项目案例

在某汽车焊装车间的实施中，我们应用这套方案实现了：

1. 工艺参数自动匹配：根据PLC上传的车型代码+工位号，自动加载对应的焊接参数（电流、时间、压力）
2. 异常参数拦截：当查询到的参数超出安全范围时，立即触发报警
3. 版本追溯：通过文件修改时间记录参数表版本

实施效果：

• 参数切换响应时间从12秒缩短到0.1秒内
• 避免了人工输入错误
• 节省了原计划购买数据库服务器的成本

一个实用的调试技巧：在开发阶段添加Trace输出，记录查询过程和结果：

vbs复制HMIRuntime.Trace "查询条件：" & deviceID & _
                 " 返回结果：" & result & _
                 " 耗时：" & Timer-startTime & "秒"

这套方案经过多个项目验证，在数据量小于10万条的生产场景中，都能提供令人满意的性能表现。对于更大规模的数据，建议考虑专业的数据库解决方案。