rsview32和SE报表总结

1、关于rsview32和SE中报表制作的总结SE中报表可以使用VBAExc命令来直接调用vba代码，而SE中没有可以直接调用vba代码的命令，由于vba是实际那出发机制，需要使用画面、显示会对象的加载、变化、单击等事件来触发vba代码的执行。写报表的步骤日报1.每天0:00生成空表（使用filecopy复制模板文件）。2.每天每个小时第一分钟读取标签数据库的标签数据，填入当天的报表中。注：将所有的日报表放在一张工作薄里面，省去写报表是重复执行不同的“打开-写-保存-关闭”操作，不容易出错。月报1.每月第一天0:00生成空表（使用filecopy复制模板文件）。2.每天23:01读取当天报表中的汇总数据（平均值）填入月报表对应的天中。年报1.每年一月1号0:00生成空表（使用filecopy复制模板文件）。2.每月最后一天23:01读取当月报表中的汇总数据（平均值）填入年报表对应的月中。以上报表也可以使用第三方数据库存储运行时的实时数据，需要时再自动生成报表或者手动查询生成报表。使用filecopy来复制模板比“打开模板-另存为报表”的效率更高，而且不会因为误动作导致修改模板内容及格式。。

2、查看报表的步骤1.选择报表类型（日报，月报，年报）2.选择日期3.查询，可以显示在webbrower控件中（office2003及以下版本）或者直接打开excel表格。Rsview32读取数据标签，常用方法有以下2种：第一种：使用gtagdb对象的gettag方法例如：Withmsexcel.Worksheets(2).Cells(i,2).Value=Gtagdb.gettag(plc1\Fine\LET202\LEVEL).value但该方法读取大量标签时比较慢，不推荐。第二种：使用tags标签组对象，结合gTagDb对象QueryForTags方法，快速扫描标签值DimPlc1Astags‘将plc1文件夹下面的模拟量标签全部包含到plc1标签组中SetPlc1=gTagDb.QueryForTags(plc1\*,roIncludeAnalog)‘快速扫描plc1文件夹下标签的值Plc1.ScanOnroWaitWithmsexcel.Worksheets(2).Cells(1,2).Value=Plc1.item(plc1\Fine\LET202\LEVEL).Value'1。

3、#细格栅液位差Endwith‘使用完plc1标签组内的标签值后推出扫描plc1Plc1.ScanOff该方法读取大量标签时比较快。有时候发现application.qiut并不能完全退出excel程序，在程序的末尾加上Shelltaskkill/f/imexcel.exe语句可以结束掉excel.exe进程。SE读取标签值得方法不同步骤：SE中没有tags对象，但是TagGroup对象的功能一样。也没有scanon1--SE中先创建TagGroup对象2--使用TagGroup对象的add方法对其添加标签并激活TagGroup。3--后使用TagGroup对象的item方法读取TagGroup中标签的值。例如：DimWithEventsoGroupAsTagGroup‘通用部分声明Subaa()IfoGroupIsNothingThenSetoGroup=Application.CreateTagGroup(Me.AreaName)IfErr.NumberThenLogDiagnosticsMessageErrorcreatingTagGroup.Error:&Err.Descript。

4、ion,ftDiagSeverityError:ExitSubIfNotoGroupIsNothingThenWithoGroup.Addtrend\LIT_601_Level'二次处理.Addtrend\LIT_701_LevelEndwithWithmsexcel.Worksheets(2).Cells(1,2).Value=oGroup.Item(trend\LIT_601_Level).value.Cells(1,3).Value=oGroup.Item(trend\LIT_601_Level).valueEndwithEndifEndsub。