Intouch报表ECEL报表制作

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

2、的标记名等如日报表的开始时间为 0点,时间长度为24小时,数据采样间 隔时间为小时在InTouch中,按报表的需要,用脚本给一组专用的标记名赋值如 HDWSTARTTIME 规定日报表的开始时间, HDWDBDIR 规定历史纪录文件的目录,HDWTAGS规定报表内涵的标记名在InTouch脚本中,用 HDWWRITEFILE =1形成一个.CSV文件用EXCEL设计报表的卞II版.在 EXCEL中,用记录宏程序,将形 成的.CSV文件中的数据导入 EXCEL报表模版的数据区,然后打E院 最后在EXCEL中将该宏程序设置为自动执行宏程序在生成.CSV文件的InTouch脚本中,参加 StartA

3、pp函数,启动EXCEL印报表2 .生成.CSV文件Stepl:自动生成需要的标记名在INTOUCH 开发环境中,将向导库中 趋势 历史趋势向导HistData放入窗口.这 将自动形成假设干标记名Tag.有关标记名以 HDW开头加上它们的 DDE的ITEM命名.向耳诜释16-Pin TrtTidSQL Qid-lza钮警口关架权 , synM接报窗灯开隹面覆时散文仪游运显控值本表标行-W 二；-含指示器和刻度的缩敢/平移趋势面放 历史趋势SHistDala历史数据向导趋势笔图例这些标记名说明如下：HDWDATADIR 消息型HDWDBDIR 消息型HDWSTARTDATE 消息型HDWSTAR

4、TTIME消息型HDWDURATION 消息型HDWINTERVAL 消息型阿导播走含左/假设指示需限时间加即刻度的历史越均确定 | 取消添加到工具古色历史数据文件的目录的路径名,可用函数赋值例如 HDWDataDir = HTGetLogDirectory;InTouch标记名字典的目录的路径名,可用函数赋值例如 HDWDBDir = InfoInTouchAppDir;与$DateString相同格式的数据采样开始日期使用24小时时钟的HH:MM:SS 格式的数据采样开始时间 数据时间长度报表时间总长度可以用星期,天时,分,秒,等来表示下面是有效的字 符：w星期,d天,h小时,m分,s秒.

5、允许使用 小数值例如扩.5s表示500毫秒假设只需一个样本请将 DURATION 设为 0零采样间隔的时间长度可以用星期日小时分和秒来表示 例如1W表示一星期 允许使用小数值例如用.25d来表示6小时有效字符与HDDURATION 相同注意DURATION 和INTERVAL 允许的最大时间长度均为6周这适用于所有请求类型日秒等例如如果使用日那么最大值为 42, 7天x 6周二42HDWTAGS 消息型HDWTAGS1, TAGS2,.HDWFILENAME 消息型HDWWRITEFILE 整型STATUSERROR消息型历史数据的标记名列表报表中需要的标记名以TagA,TagB,TagZ格式

6、输入,此外采样日期和或时间 可以通过使用内部系统标记名$Date和$Time来请求例如"$Date,TagA,TagB"或"$Time,TagA,TagB或 "$Date,$Time,TagA,TagB消息型HDWTAGS 字符串在 WindowViewer 中的长度 可以为131个字符在Excel中的长度可以为255个 字符字符串,可以通过迭加标记名工程Tags1 Tags2等来延长以适应更长字符串的要求,如果标记名需附加额外的标记名文本请在字符串末输入一个加号+例如,TAGS="$Date,ProdLevel,ProdTemp,+"

7、;TAGS1="ReactLevel,Temp,GasLevel,+" TAGS2="MotorStatus" 注意不允许使用重复标记名,每个标记字符串的最大长度为512字节规定生成的.CSV文件的路径和名称 例如,C:INTOUCH当设置为1时HistData会将请求数据写入由 FILENAME工程名指定的文件,当文件更新完成后WRITEFILE会自动重置为0零离散型显示最后一次操作的状态1表示成功,0零表示出错包含上次错误说明的字符串,如 STATUS为1那么显示 无,如STATUS 为0零那么显示错误消息字符串前9个TAG规定数据的内容,HDWWR

8、ITEFILE=1 是写.CSV文件的命令,最后两个用于 检查状态和错误.写脚本时应注意：HDWDBDir、HDWDataDir这两个标记名是规定路径的,可以用函数赋值.可以写 在应用程序脚本内.HDWFilename这个标记名是规定.CSV文件的路径和文件名.如果只打一种报表, 也可以写在应用程序脚本内,否那么应在形成.CSV文件前指定.HDWTags和后续的HDWTags1、HDWTags2这些标记名是规定.CSV文件的包含的标 记名.如果只打一种报表,也可以写在应用程序脚本内,否那么应在形成.CSV文件前指定.HDWStartDate、HDWStartTime这两标记名是规定.CSV文件

9、数据的起始日期和起始 时间的.如果是招呼打印报表, 人工输入时格式一定要正确. 如果是自动打印报表 可以计算得到,一般可以在条件脚本内规定.HDWInterval、HDWDuratione这两标记名是规定.CSV文件的数据时间间隔和数据时间的总长度,如日报表分别为：1H 小时和1D 1天.HDWWRITEFILE =1为生成.CSV文件,只有上述标记名义赋值后,才执行他.ERROR这个标记名可以显示生成.CSV文件时是否有错误,调试时非常重要.例如：下面脚本生成一个日期由StartDatel规定,包括两个标记名PI-101,TI-101 ,日报表.可以复制在你的脚本中,修改一下就可以形成所需的

10、.CSV文件.HDWStartDate =StartDate1;HDWStartTime = 00:00:00 ；HDWDBDir = InfoInTouchAppDir();HDWDataDir = HTGetLogDirectory();HDWFilename = "C:"HDWTags ="$Date,$Time,PI-101,TI-101;HDWInterval = "1H"HDWDuration = "1D"HDWWRITEFILE=1 ;HDWDataDir = HTGetLogDirectory();HDWDB

11、Dir = InfoInTouchAppDir();HDWStartDate = #;时间控件名称HDWStartTime ="00:00:00"开始时间HDWFilename = "C:"HDWTags ="$Date,$Time,zj_AO1,zj_AO2"HDWInterval = "1H"HDWDuration = "1D"HDWWRITEFILE=1;Step2:招呼打印报表的情况如果是招呼打印不定期打印,人工输入打印日期和时间的报表打印,那么可以在INTOUCH 中开一个窗口输入 H

12、DWStartDate1 , HDWStartTime , HDWInterval , HDWDuration 的参数.并做一个按钮,在动作脚本中给固定的参数赋值和最后令HDWWRITEFILE=1 ;脚本的例子形成的.CSV文件的例子21 Microsoft Ek cell-REPORT即文件® 编耨但视图W插入K格式 工具m数据旧 道口出ftctiv&Fac降S昌电名鼻"Ml团斗呆体J囱快译房英中圈日中屋中箕图设置D13=ABCDI EHI F1SDateSTirnePI-101T1-101LIK1 22005-1-22138:0934472mi? 32005-

13、1-22138:1540432. T2005-1-22138:214643352005-1-22138:2752463里&2005-1-22138:3358493怠 72005-1-2213S:3964424国&2005-1-22138:4570454_ 92005-1-22138:5176283备1.2005-1-22138:57822iq112005-1-22139:0393543； 12*132005-1-22139:的2070|114Step3:定时自动打印的情况如果是定时自动打印,需要在条件脚本或数据改变脚本中写代码完成.这里需要特别注意起始日期和时间. 如：日报表示

14、在0点以后打印的,所以需要通过计算得到前一天的 日期,可以用下面语句HDWStartDate =StringFromTime $Date - 1*86400, 1 .举例：Step4:运行INTOUCH ,检查生成的.CSV文件.3 .建立EXCEL报表Stepl:设计一个报表格式.例如：先画出报头良 Microsoft EmceI - kkkk胤 文件|褊辑, 视图® 插入q)格式(&)工具隹)7国口后吧昌2季晶晶!REPORT12341次堵例如23日期1时间压力3白温度C4%678g10it1213141 K5LIVE在EXCEL导入相应.CSV文件.©&

15、;T找到相应.CSV文件,一步步导入选逗号分割,指定导入区域起点单元,icrosol现文件电编辑视图9 插入其稻忒工具数据电窗口国Aaiv口0号图督Q等/曜1"曾工打随口弋熊.J JUE1_ ET 篇 &£ 国导入数据112叩401/29/051501/29/051601/29/051701/29/05一801/29/052赞据的故置位置"现有工作表1： |=Shtl!E3Cl|r新建工作表国国创立数据透视表CF.属性参数帕.编辑查沟电9 01/29/05 1in Im/?ci/nF； ir-14rI qAA n为了更直观,可以用 EXCEL的功能加一个趋

16、势图.唾= _=- 三 M中退后ffl智 帆圉, 更上 格式. 工里 审完 修口吧 屁曰7Toiy帮助®:提律,n * B I阳现no-&展W品71n d12振豪品例34日期时闾至由.症度二3乳二 Lt!ITijue?L-101J'l-101q50L/29/05L5il4iD05F, 一被一01/29/051E:U:O6EM. 03. i601/29/052L j1皿/兆/口15d4:18FEO. 019. J二OL/E9/OS1E:1J:24E22.57. j金 F!1" r01 /2/0-16:14:30沔I 一75. 1OL/29/0515：1T：费熊

17、小93.'11OLZ2&/06L5;l-k423G. J12t12N01/29/0：1E:14:4£J.30.0OL/29/05IS:14:国LED.'4H.'O1/S5/051E：15:00251 -孤0151617« n1 6 17 1s9l 口1h列列东条Step2:做一个宏选菜单工具宏录制新宏,起一个宏名如 mr1,确认.KTOSQlr4文悻 确睦>狼的第 茹入室 格式也 工艮©H翻1如 窗口意 KrtivJif-iry 耶frg>RT外三幅号加电广filers810L 二nil¥怵写卷.r结泣桧有国.

18、共享工祚筹黜E迎机加注*4科工fiaj.宜®自定期gII副I助.,E厘, .录曲既宝近?二克圭怏出一>i=vol E/iu 弱笳弼 IV/ u =：A1C西Kit 用 11市n q El忙F强据弱哨. aCLiFll1314由于EXCEL不允许在有数据的区域导入数据,所以先删除前面导入的数据.选择 数据区,按Del键回文件Q编辑场视图V插入格式也工具1 0R苜口昌岛学X 嘎工,REPORT - 病 $Datelll IH附1123n 41赧素三倒IVE：Ar £2日期时间匡邪1组典瓦3jDatejTimePI-101TI-101401/29/0515:14:00534

19、. 0S4. 03501/29/0515:14:06606.03.0601/29/0515:14:12672. 021. 0品U1T01/29/0515:14:18750. 039. 0801/29/0515:14:24822.057.0Bit901/29/0515:14:30894. 075, 01001/29/0515:14:36966.093.01101/29/0515:14:4236,012.01201/29/0515:14:48108.030.01301/29/0515:14:54180.048. 01401/29/0515:15:002sz. 066. 01G在EXCEL重新导入相

20、应.CSV文件.重复刚刚的步骤1殳A R格式炉 工具0 55宽30口口那么:业®嚏.训与LA承Y电理工T*|叁体r12* B7 U = = = 电 9C1Q日而 HI*I234567s91011L限盘3例2日期时用:主力红a金度C5tTiju-T 烟9PI-101T1-1J1上二VLOOC. 0BOOhO4UL2 七/L LL5:L41OO5刖,洱* 乩 了5OL/29/C5LE!14:0e606.03.06OL/25/C515:14:126,S. jfQLZM 二L&Ld:18?50.jS. Jeouo400LD20P. 00.0T-系列1BOL您/MLt:L4j24822

21、.J57. 0一鬃歹我asir：'01/29/0515:L4i30EM -75. J0L/29/C?g版-以1110L/29/C15;M;4236. 012.0=. . r*-T*T*1爵球；. >flklT匕13CL/2/C501/29/0-15:14:4E.100, 0.LEO -30.0强01/29/C51E：1S:CO252.'fig.'V ¥ V 幸 w 小 中 小 小 .G 卡 、*ILIC17 n打印和保存报表需要打印时或另存报表不需要打印时.停止记录宏写VBA脚本,让宏自动执行菜单工具宏VB编辑器双击 ThisWorkBook在代码区选WorkBook在 Private Sub _Open函数中,力口入 Run宏名j| Microsoft Visual Bastc -文件H编辑 视图9 插入© 格式 调试Q运行 工具O 外接程序工程-VBAProjectE匡巨国like: tn veF&d oryT orlkliiG4-VHAFroject kfckfcrL-l% flicrosoft Ekcel 对著 j