Intouch报表EXCEL报表制作

1、用EXCEL打印报表1 .原理首先根据报表要求,用INTOUCH勺附件HISTDAT欲件形成一个有规定数据的.CSV文件逗号分隔文件,可用EXCEL丁开.这个.CSV文件是英文的,不符合一般报表的要求,只能提供数据.所以需要另设计一个空的EXCEL!表模版,再将.CSV文件的数据复制到报表中,形成完整的报表.通过INTOUCHT以自动产生.CSV,再通过EXCEL勺宏程序打印报表,可以完成招呼打印和定时自动打印.如果有多个报表,需要形成多个.CSV文件和设计多个EXCEL艮表.大致步骤如下：设计报表,确定一个报表的开始时间、时间总长度、个数据之间数据采样间隔,报表参数所对应得的标记名等在InT

2、ouch中；按报表的需要；用脚本给一绢专用的标记名赋值用EXCE段计报表的模版.在EXCELS,用记录宏程序,在生成.CSV文件的InTouch脚本中,参加StartApp函2 .生成.CSV文件Step1:自动生成需要的标记名在INTOUCHFF发环境中,将向导库中趋势历史趋势向导(HistData)放入窗口.这将自动形成假设干标记名(Tag).有关标记名以HDWF头加上它们的DDE勺ITEM命名.向导选择za钳警匚关案瓶鬻值本表标桁出按报宣灯开框面修时数文仪游运台指示甥和刻度的籍放/平移趋势面板趋势笔图例历史趋势HhlDdh历史数据向导向导描进含左/假设指示器品示时间和EU制度的历史越期确

3、定取消诉力南工具栏归这些标记名说明如下：HDWDATADR、型历史数据文件的目录的路径名,可用函数赋值例如HDWDataDir=HTGetLogDirectory();HDWDBD精息型InTouch标记名字典的目录的路径名,可用函数赋值例如HDWDBDir=InfoInTouchAppDir();HDWSTARTDATE型与$DateString相同格式的数据采样开始日期HDWSTARTTIME、型使用24小时时钟的HH:MM:SS式的数据采样开始时间HDWDURATIO患型数据时间长度(报表时间总长度)可以用星期,天时,分,秒,等来表示下面是有效的字符：w星期,d天,h小时,m分,s秒.允

4、许使用小数值例如扩.5s表示500毫秒假设只需一个样本请将DURATION为0零HDWINTERV池层型采样间隔的时间长度可以用星期日小时分和秒来表例如如1WS示一星期允许使用小数值例如用.25d来表示6小时有效字符与HDDURATION注意DURATIONINTERVAI&许的最大时间长度均为6周这适用于所有请求类型日秒等例如如果使用日那么最大值为42,7天x6周二42HDWTAGS同型历史数据的标记名列表报表中需要的标记名以TagA,TagB,TagZB式输入,此外采样日期和或时间可以通过使用内部系统标记名$Date和$Tim请求例如$Date,TagA,TagB或$Time,TagA,T

5、agB或$Date,$Time,TagA,TagBHDWTAGS1,TAGS2.消息型HDWTAGW用在WindowViewe用的长度可以为131个字符在Excel中的长度可以为255个字符字符串,可以通过迭加标记名工程TagsITags常来延长以适应更长享符串的要求,如果标记名需附加额外的标记名文本请在字符串末输入一个加号+例如,TAGS=$Date,ProdLevel,ProdTemp,+TAGS1=ReactLevel,Temp,GasLevel,+TAGS2=MotorStatus注意不允许使用重复标记名,每个标记字符串的最大长度为512字节HDWFILENAME、型规定生成的.CSV

6、C件的路径和名称例如,C:INTOUCHHDFILE.CSVHDWWRITEFIL当设置为1时HistData会将请求数据写入由FILENAME目名指定的文件,当文件更新完成后WRITEFIL公自动重置为0零STATU离散型显示最后一次操作的状态1表示成功,0零表示出错ERROR息型包含上次错误说明的字符串,如STATUS1那么显示无,如STATUS0零那么显示错误消息字符串前9个TAG1定数据白内容,HDWWRITEFILE陷W.CSVt件的命令,最后两个用于检查状态和错误.写脚本时应注意:HDWDBDkHDWDataDi这两个标记名是规定路径的,可以用函数赋值.可以写在应用程序脚本内.HD

7、WFilenam这个标记名是规定.CSVC件的路径和文件名.如果只打一种报表,也可以写在应用程序脚本内,否那么应在形成.CSVC件前指定.HDWTagS后续的HDWTags1HDWTag这些标记名是规定.CSVt件的包含的标记名.如果只打一种报表,也可以写在应用程序脚本内,否那么应在形成.CSVC件前指定.HDWStartDateHDWStartTime两标记名是规定.CSVC件数据的起始日期和起始时间的.如果是招呼打印报表,人工输入时格式一定要正确.如果是自动打印报表可以计算得到,一般可以在条件脚本内规定.HDWInterval、HDWDuratione两标记名是规定.CSVC件的数据时间间

8、隔和数据时间的总长度,如日报表分别为：1H小时和1D1天.HDWWRITEFILE=住成.CSVC件,只有上述标记名义赋值后,才执行他.ERROR个标记名可以显示生成.CSVC件时是否有错误,调试时非常重要.例如：下面脚本生成一个日期由StartDate1规定,包括两个标记名PI-101,TI-101,日报表.可以复制在你的脚本中,修改一下就可以形成所需的.CSVC件.HDWStartDate=StartDate1;HDWStartTime00:00:00HDWDBDir=InfoInTouchAppDir();HDWDataDir=HTGetLogDirectory();HDWFilenam

9、e=C:REPORT.csv;HDWTags=$Date,$Time,PI-101,TI-101;HDWInterval=1H;HDWDuration=1D;HDWWRITEFILE=1HDWDataDir=HTGetLogDirectory();HDWDBDir=InfoInTouchAppDir();HDWStartDate=#DTPicker1.Value;时间控件名称HDWStartTime=00:00:00;开始时间HDWFilename=C:REPORT.csv;HDWTags=$Date,$Time,zj_AO1,zj_AO2;HDWInterval=1H;HDWDuration

10、=1D;HDWWRITEFILE=1;Step2:招呼打印报表的情况如果是招呼打印不定期打印,人工输入打印日期和时间的报表打印,那么可以在INTOUCHf开一个窗口输入HDWStartDatel,HDWStartTimeHDWInterval,HDWDuration的参数.并做一个按钮,在动作脚本中给固定的参数赋值和最后令HDWWRITEFILE=1脚本的例子形成的.CSV文件的例子Step3:定时自动打印的情况如果是定时自动打印,需要在条件脚本或数据改变脚本中写代码完成.这里需要特别注意起始日期和时间.如：日报表示在0点以后打印的,所以需要通过计算得到前一天的日期,可以用下面语句HDWSta

11、rtDate=StringFromTime$Date-1*86400,1.举例：Step4:运行INTOUCH检查生成的.CSV文件.3 .建立EXCEL艮表Step1:设计一个报表格式.例如：先画出报头在EXCEL入相应.CSV文件.找到相应.CSV文件,一步步导入选逗号分割,指定导入区域起点单元,为了更直观,可以用EXCEL勺功能加一个趋势图.Step2:做一个宏选菜单工具宏录制新宏,起一个宏名如mr1,确认.由于EXCE4允许在有数据的区域导入数据,所以先删除前面导入的数据.选择数据区,按Del键在EXCEIM新导入相应.CSV文件.重复刚刚的步骤打印和保存报表需要打印时或另存报表不需要

12、打印时o停止记录宏写VBA却本,让宏自动执行菜单工具宏VB编辑器双击ThisWorkBook在代码区选WorkBook在PrivateSub_Open函数中,力口入Run“宏名Application.Quit关闭VB编辑器,返回Workbook,确定报表的品&径和文件名如c:report1.xls,保存报表.这样,我们的报表就完成了.一翻开这个报表,就会执行宏,然后退出.在调试时,可以迅速按Atrl+Break键停止宏执行.注：在另存的情况下,在宏中找到另存的路径和文件名,用date,tim等变量加到文件名中.Step3:用INTOUCH丁开报表在INTOUCH勺相应脚本中力口一条语句,启动EXCELStartAppC:ProgramFilesMicrosoftOfficeOfficeexcel.exec:report1.xls;这里,C:ProgramFilesMicrosoftOfficeOfficeexcel.exe是EXCEL勺路径和文件名,注意EXCEL勺版本不同路径不一样.c:report1.xls是报表的路径和文件名,之间有一个空格.一个日报表的例子语句说明：1规定报表起始日期,2规定报表起始时间,3InTouch的路径