vbs读取上位机数据写入EXCEL

### VBScript读取WinCC数据并写入Excel #### 知识点概述： 本文档主要介绍了如何使用VBScript（简称VBS）脚本文件来读取WinCC中的变量，并将这些变量值按照每小时一次的频率写入Excel表格中。通过这种方式，可以实现对上位机的数据进行定期记录和管理，方便后续的数据分析与处理。 #### 关键技术点详解： 1. **初始化Excel对象**： - 使用`CreateObject`方法创建Excel应用实例。 - 设置`Visible`属性为`True`使Excel窗口可见。 - 使用`Workbooks.Open`方法打开指定路径下的Excel文件。 2. **数据读取与处理**： - 通过`HMIRuntime.Tags`对象读取WinCC中的变量。 - 对于每个变量，使用`Read`方法获取其当前值。 - 根据需要格式化时间戳和变量名等信息。 3. **数据写入Excel**： - 选择需要写入数据的工作表。 - 清除工作表中已有的数据。 - 将变量值按行写入指定单元格。 4. **定时任务处理**： - 本文档提到的数据写入频率为每小时一次，但并未具体实现定时功能。 - 实现定时任务可以通过Windows任务计划程序或者使用VBS脚本内部的循环机制配合延时函数实现。 #### 代码解析： 1. **Excel对象创建与配置**： - `Dim objExcelApp, objExcelBook, objExcelSheet`：定义Excel相关对象。 - `Set objExcelApp = CreateObject("Excel.Application")`：创建Excel应用程序对象。 - `objExcelApp.Visible = True`：设置Excel应用程序可见。 - `objExcelApp.Workbooks.Open "D:\System\model.xls"`：打开指定路径的Excel文件。 2. **数据写入准备**： - `SheetName = "100"`：指定工作表名称。 - `objExcelApp.Worksheets(SheetName).Activate`：激活指定工作表。 - `For i = 5 To 38`：循环遍历需要写入数据的行。 - `For j = 2 To 6`：循环遍历需要写入数据的列。 - `.Cells(i, j) = Null`：清空单元格内容。 3. **WinCC变量读取与写入Excel**： - `TagTime = Now`：获取当前时间作为记录的时间戳。 - `objExcelApp.Worksheets(SheetName).Cells(3, 1).Value = TagTime`：将时间戳写入Excel。 - `If i < 14 Then`：根据行号格式化变量名前缀。 - `TagCount = CStr(i - 4)`：计算变量名后缀。 - `Set TagWeight = HMIRuntime.Tags("V101-" & TagCount & "")`：根据变量名读取WinCC变量。 - `TagWeight.Read`：读取变量值。 - `.Cells(i, 2).Value = TagWeight.Value`：将变量值写入Excel。 4. **扩展与优化**： - 可以考虑将重复的代码封装成函数或子程序，提高代码可读性和复用性。 - 对于多个工作表的处理，可以考虑使用循环或其他方式自动处理。 - 为了提高效率，可以考虑批量读取和写入数据。 通过以上内容的详细介绍，我们可以了解到使用VBS脚本读取WinCC数据并写入Excel的基本流程和技术要点。这对于工业自动化领域内的数据记录和分析具有重要的实用价值。