rsview32和SE报表总结

1、关于rsview32和SE中报表制作的总结SE中报表可以使用VBAExc命令来直接调用vba代码，而SE中没有可以直接调用vba代码的命令，由于vba是实际那出发机制，需要使用画面、显示会对象的加载、变化、单击等事件来触发vba代码的执行。写报表的步骤日报1.每天0:00生成空表（使用filecopy复制模板文件）。2.每天每个小时第一分钟读取标签数据库的标签数据，填入当天的报表中。注：将所有的日报表放在一张工作薄里面，省去写报表是重复执行不同的“打开-写-保存-关闭”操作，不容易出错。月报1.每月第一天0:00生成空表（使用filecopy复制模板文件）。2.每天23:01读取当天报表中的汇

2、总数据（平均值）填入月报表对应的天中。年报1.每年一月1号0:00生成空表（使用filecopy复制模板文件）。2.每月最后一天23:01读取当月报表中的汇总数据（平均值）填入年报表对应的月中。以上报表也可以使用第三方数据库存储运行时的实时数据，需要时再自动生成报表或者手动查询生成报表。使用filecopy来复制模板比“打开模板-另存为报表”的效率更高，而且不会因为误动作导致修改模板内容及格式。查看报表的步骤1.选择报表类型（日报，月报，年报）2.选择日期3.查询，可以显示在webbrower控件中（office 2003及以下版本）或者直接打开excel表格。Rsview32读取数据标签，常

3、用方法有以下2种：第一种：使用gtagdb对象的gettag方法例如：With msexcel.Worksheets(2).Cells(i, 2).Value =Gtagdb.gettag(plc1FineLET202LEVEL).value但该方法读取大量标签时比较慢，不推荐。第二种：使用tags标签组对象，结合gTagDb对象QueryForTags方法，快速扫描标签值Dim Plc1 As tags将plc1文件夹下面的模拟量标签全部包含到plc1标签组中Set Plc1 = gTagDb.QueryForTags(plc1*, roIncludeAnalog)快速扫描plc1文件夹下标

4、签的值Plc1.ScanOn roWaitWith msexcel.Worksheets(2) .Cells(1, 2).Value = Plc1.item(plc1FineLET202LEVEL).Value 1#细格栅液位差End with 使用完plc1标签组内的标签值后推出扫描plc1Plc1.ScanOff该方法读取大量标签时比较快。有时候发现application.qiut并不能完全退出excel程序，在程序的末尾加上Shell taskkill /f /im excel.exe语句可以结束掉excel.exe进程。SE读取标签值得方法不同步骤：SE中没有tags对象，但是TagG

5、roup 对象的功能一样。也没有scanon1-SE中先创建TagGroup 对象2-使用TagGroup对象的add方法对其添加标签并激活 TagGroup。3-后使用TagGroup对象的item方法读取 TagGroup 中标签的值。例如：Dim WithEvents oGroup As TagGroup 通用部分声明Sub aa() If oGroup Is Nothing Then Set oGroup = Application.CreateTagGroup(Me.AreaName) If Err.Number Then LogDiagnosticsMessage Error creating TagGroup. Error: & Err.Description, ftDiagSeverityError: Exit Sub If Not oGroup Is Nothing Then With oGroup .Add trendLIT_601_Level 二次处理 .Add trendLIT_701_LevelEnd withWith msexcel.Worksheets(2) .Cells(1, 2).Value = oGroup.Item(trendLIT_601_Le