Intouch-EXCEL报表制作并按日期另存EXCEL文件

用EXCEL打印报 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf .原理首先根据报表要求，用INTOUCH的附件HISTDATA软件形成一个有 规定 关于下班后关闭电源的规定党章中关于入党时间的规定公务员考核规定下载规定办法文件下载宁波关于闷顶的规定 数据的.CSV文件（逗号分隔文件，可用EXCEL打开）。这个.CSV文件是英文的，不符合一般报表的要求，只能提供数据。所以需要另设计一个空的EXCEL报表模版，再将.CSV文件的数据复制到报表中，形成完整的报表。通过INTOUCH可以自动产生.CSV，再通过EXCEL的宏程序打印报表，可以完成招呼打印和定时自动打印。如果有多个报表，需要形成多个.CSV文件和设计多个EXCEL报表。大致步骤如下：设计报表，确定一个报表的开始时间、时间总长度、个数据之间数据采样间隔，报表参数所对应得的标记名等（如日报表的开始时间为0点，时间长度为24小时，数据采样间隔时间为小时）在InTouch中，按报表的需要，用脚本给一组专用的标记名赋值（如HDWSTARTTIME规定日报表的开始时间，HDWDBDIR规定历史纪录文件的目录，HDWTAGS规定报表内涵的标记名在InTouch脚本中，用HDWWRITEFILE=1形成一个.CSV文件用EXCEL设计报表的模版。在EXCEL中，用 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 宏程序，将形成的.CSV文件中的数据导入EXCEL报表模版的数据区，然后打EL最后在EXCEL中将该宏程序设置为自动执行宏程序在生成.CSV文件的InTouch脚本中，加入StartApp函数，启动EXCEL印报表.生成.CSV文件Stepl:自动生成需要的标记名在INTOUCH开发环境中，将向导库中'趋势'历史趋势向导（：^$1口212）放入窗口。这将自动形成若干标记名（Tag）。有关标记名以HDW开头加上它们的DDE的ITEM命名。这些标记名说明如下：HDWDATADIR消息型HDWDBDIR消息型HDWSTARTDATE消息型HDWSTARTTIME消息型HDWDURATION消息型HDWINTERVAL消息型历史数据文件的目录的路径名，可用函数赋值例如HDWDataDir=HTGetLogDirectory（）;InTouch标记名字典的目录的路径名，可用函数赋值例如HDWDBDir=InfoInTouchAppDir（）;与$口就05日足8相同格式的数据采样开始日期使用24小时时钟的HH:MM:SS格式的数据采样开始时间数据时间长度（报表时间总长度）可以用星期，天时，分，秒，等来表示下面是有效的字符：w星期，d天，h小时，m分，s秒。允许使用小数值例如扩.5s表示500毫秒若只需一个样本请将DURATION设为0零采样间隔的时间长度可以用星期日小时分和秒来表示例如1亚表示一星期允许使用小数值例如用.25d来表示6小时有效字符与HDDURATION相同^>DURATION和INTERVAL允许的最大时间长度均为6周这适用于所有请求类型日秒等例如如果使用日则最大值为42,7天x6周=42HDWTAGS消息型历史数据的标记名列表（报表中需要的标记名）HDWTAGS1,TAGS2,....HDWFILENAME消息型HDWWRITEFILE整型STATUSERROR消息型以TagA,TagB,TagZ格式输入，此外采样日期和或时间可以通过使用内部系统标记g$Date和$Time来请求例如"$Date,TagA,TagB"或"$Time,TagA,TagB"或"$Date,$Time,TagA,TagB"消息型HDWTAGS字符串在WindowViewer中的长度可以为131个字符在Excel中的长度可以为255个字符字符串，可以通过迭加标记名项目128$1Tags2等来延长以适应更长字符串的要求，如果标记名需附加额外的标记名文本请在字符串末输入一个加号（+）例如，TAGS="$Date,ProdLevel,ProdTemp,+"TAGS1="ReactLevel,Temp,GasLevel,+"TAGS2="MotorStatus"注意不允许使用重复标记名，每个标记字符串的最大长度为512字节规定生成的.CSV文件的路径和名称例如，C:\INTOUCH\HDFILE.CSV当设置为1时HistData会将请求数据写入由FILENAME项目名指定的文件，当文件更新完成后WRITEFILE会自动重置为0零离散型显示最后一次操作的状态1表示成功，0零表示出错包含上次错误说明的字符串，如STATUS为1则显示无，如STATUS为0零则显示错误消息字符串前9个TAG规定数据的内容，HDWWRITEFILE=1是写.CSV文件的命令，最后两个用于检查状态和错误。写脚本时应注意：HDWDBDir、HDWDataDir这两个标记名是规定路径的，可以用函数赋值。可以写在应用程序脚本内。HDWFilename这个标记名是规定.CSV文件的路径和文件名。如果只打一种报表，也可以写在应用程序脚本内，否则应在形成.CSV文件前指定。HDWTags和后续的HDWTags1、HDWTags2这些标记名是规定.CSV文件的包含的标记名。如果只打一种报表，也可以写在应用程序脚本内，否则应在形成CSV文件前指定。HDWStartDate、HDWStartTime这两标记名是规定.CSV文件数据的起始日期和起始时间的。如果是招呼打印报表，人工输入时格式一定要正确。如果是自动打印报表可以计算得到，一般可以在条件脚本内规定。HDWInterval、HDWDuratione这两标记名是规定.CSV文件的数据时间间隔和数据时间的总长度，如日报表分别为：1H（小时）和1D（1天）。HDWWRITEFILE=1为生成.CSV文件，只有上述标记名义赋值后，才执行他。ERROR这个标记名可以显示生成.CSV文件时是否有错误，调试时非常重要。例如：下面脚本生成一个日期由StartDatel规定，包括两个标记名PI-101,TI-101,日报表。可以复制在你的脚本中，修改一下就可以形成所需的.CSV文件。HDWStartDate=StartDate1;HDWStartTime=”00:00:00”;HDWDBDir=InfoInTouchAppDir();HDWDataDir=HTGetLogDirectory();(此函数需要配置intouch历史记录的储存路径为默认应用程序路径，并启用历史数据记录)HDWFilename="C:\REPORT.csv";HDWTags="$Date,$Time,PI-101,TI-101”;HDWInterval="1H";HDWDuration="1D";HDWWRITEFILE=1；Step2:招呼打印报表的情况如果是招呼打印（不定期打印，人工输入打印日期和时间的报表打印），则可以在INTOUCH中开一个窗口输入HDWStartDate1，HDWStartTime，HDWInterval，HDWDuration的参数。并做一个按钮，在动作脚本中给固定的参数赋值和最后令HDWWRITEFILE=1；脚本的例子形成的.CSV文件的例子因MicrosoftEhccI1-REPOftT卸文件㈤褊辑但视图M插入⑵格式（如工具（分数据（由窗口（阴ActiveFac]□S?Hs电©&工捻z\她回？宋体回快译3英中回日中团中英近设置D13__zJ=拗市上LHI57£AGI5里ABcD1E|F1(Date$Tiroe|PI-101TI-101s2005-1-22138:093447232005-1-22138:15404342005-1-22138:214643352005-1-22138:2752463&2005-1-22138:3358493需反4tT2005-1-22133:3964424S2005-1-22133:457045492005-1-22138:5176283102005-1-22138:5782214蛾C112005-1-22139:0393543122005-1-22139:09207013||114Step3:定时自动打印的情况如果是定时自动打印，需要在条件脚本（或数据改变脚本）中写代码完成。这里需要特别注意起始日期和时间。如：日报表示在0点以后打印的，所以需要通过计算得到前一天的日期，可以用下面语句HDWStartDate=StringFromTime（（$Date-1）*86400,11举例：Step4:运行intouch,检查生成的.csv文件3.建立EXCEL报表Stepl:设计一个报 表格 关于规范使用各类表格的通知入职表格免费下载关于主播时间做一个表格详细英语字母大小写表格下载简历表格模板下载 式。例如：先画出报头MicrosoftEwcel-kkkk圄］|文件3】|编辑④视图凹插入©格式@）工具©DgSHri昌山号林甯〜蠢》专1REPORT▼卷himin触Liu/LHI5T.ffiu函EDIT!茂!□4123451擢志三例23日期时间压力郎3品度匚45678910111213141G在EXCEL导入相应.CSV文件。Excel-BsiMkl司文件旧堀相0视图®插入口】格式陋工具囚更加工12341福表；2口匹叶万LZ十-'.；T温度C35Dale$TinePI-101TI-101417:1■■■:■■:二.■5"工为;，15:1106■........615:13:1267B.021.0T01rLiE17:1':1:L."S01/29/05l.;l二二，.u..9J1/J15:13:30S9Q.075.010r：N：:;7.1：＜1：帕二：1(H底1”.不占日卜；N「；IHI有效性U...,::“BELT三三三堂911011SAS?助皿察密,天况荒和察灯号况此如1H口服］ActLvciF&ictary帮,锯£■打乱L导久数据如.600.0■1W.0导入外部意揩奥更新筮搞叫找到相应.CSV文件，步步导入Al文本分列向导判定您的数据具有分隔符口若一切设置无误，请单击"下一步”』否则请选驿最言适的数据类型口原始数据类型请选择最含近的文件类型：：；吩隔符号毛工-用分隔字符,用逗号或制表将分隔每个宇段「•固定竞度近j-,每列字段加空格对齐文本导入向导-3步骤之1导入起始行（E）：F文件原蛤格式通）■|一口褥.lh"aeSmpliFnrlk下，川：回预跑文件C\EEPQRT.CSVr.3取消|，||t--®)|完成⑵EDa七％$Tim句PI-101,TI-1QLDl/29/05J5:l^:00.534,84口1/29，05/5:14:口比606.3Lil/29/05,15:1^1:12,678.211234选逗号分割，指定导入区域起点单元，icrosaitEhceI_BlDOkl固文件3）编辑Q视图。插入工）格式⑪工具①数据由）窗口出）Activ口喉口SS^^轴c-德£▼却|强⑵3&阴C1▼ilium悔JiJEU-II5T£RGG1234567891n弧港亍」—瞰.L^Date_J$101/29AJ501/29/0501/2gA)5QL/29/0501/29/0501/29/05E/WnE为了更直观，可以用EXCEL的功能加一个趋势图。电女件但】金辑闿辑图9©①格式陋工具中数据⑪国口中MLiEact叼帮助®睡，、、钳门0Mdmm应中•，箱”•嘎芝,绪皿团e7b一；，b三三三型R-白：0曲12345I展1柜盍M例L2:寸司i；+f温度CprarE3fDateHi-IIT「ITUJ1-1J1121.1..IgLL:LJ：U.I,二.一....1nnfin国5i'：.-c'：.-i--15:14:06606.03.0LUULLUrr6r.<1：/1：■-E：F：F炉7"■1.■70L/29/05IL;1■];lc?…一：■..5B15:14:24822.057.0片19「：.《,：.-尸：F：L4：?rF'.<.'7~.'400fc010二不.■■产Y：-，1海灼,■■:.■110L/29/0515:14:42?...L.一200.01Q12二!.：」ULLi.......413i'：.-c'：.-i--15:14:54LEO.0as.o1..1.Idr.<1：/1：■-F：T：i：i：海.■;二.■151617tnStep2:做一个宏选菜单工具'宏'录制新宏，起一个宏名（如mrl）,确认。ij文由i）指胃坦）视置屹SffiAtJ）格式⑪工且夏厂|数据⑪WO（I.）kctivcJactDr7帮助®广广Rd组三口中*单。-|备匚F=三体'L2-H2U=：T?19-a▼标咕演粒交⑷.JJtr奇k"uis曾1”F-11234共享工作「⑥...；配kF产机代七通】卜789ID1近盍EE例2叶IQLLTlMpzii品医3分五上破1J,4网上工具作］5&—盅加卜k以忆一.K1H-F0TS白之乂区|.运小L.■录制班宏仙一9S人』二3i=ic铝辑光⑴匚止囱18版脚走漏由刘品」.MUCIllCLIFU10111213141I-•由于EXCEL不允许在有数据的区域导入数据，所以先删除前面导入的数据。选择数据区，按Del键®文件褊辑⑥视图蜕）插入（I）格式@工具C口自口苜/刍E等其轴|0*|噫£，REPORT-仪$Datemihi出1234raIV；1报表三例u2日期时间1压力如a.温度cI5T£3$DateJTimePI-101TI-101心。401/29/0515:14:00534.084.0p501/29/0515:14:06606.03.0601/29/0515:14:12678.021.0品Va701/29/0515:14:18750.039.0S01/29/0515:14:24822.057.0Mt901/29/0515:14:30S94.075.0f'1001/29/0515:14:36966.093.01101/29/0515:14:4236.012.0□1201/29/0515:14:4S108.030.01301/29/0515:14:54180.048.01401/29/0515:15:00252.066.011E•在EXCEL重新导入相应.CSV文件。重复刚才的步骤里|文伴旧婀辑固辑图9班①格式陋工具甲数据⑪的口叩上Livg5打帮助®健人票心浮口国祖|昌山承|弘电|G-陛工•加|鲤因秀田体一E口室二三周印篇0-徜miLmrT%国a世12345678|910111修春示例2:寸司l+"r温度C3fDatelli.iiTTI-1011200.01000.0也.I:UO；,1；400.0qr「q5615:14:005330B4.0Hi：：F：ld：ir■:.■『J年”尸-F:'.1:"1，.■■1.■1\7CL.'L'j.'!；■.，二，】；工’2…”，.T-触到1T-愚刊”H910ll/L'i/li15:14:24822.057.0Y\*4丁!□4i：."c'：."it15:14:30E93.075.0\」一日：F:EE■:"■■■:.■1101/29/0515:14:42.H..121:Id15:14:48LOS.030.0Hi：：F:14:F4ISO.0一..0.u『J年”尸-F：-F：i：CFT."砂。个空山◎s"%"小小」事1516174n1-H1打印和保存（报表需要打印时）或另存（报表不需要打印时）。停止记录宏写VBA脚本，让宏自动执行菜单工具'宏\VB编辑器士文件E恻⑥视团田插入0J格式犯）工具⑴蹒©街口Y）帮助出JZi12341蠡舂彳例2H由时间匕上…温度3］二STincPI-1MTI-1D415:14:00531034.5jl15:14:06;二.3.6-Jl.15m-r:.J21.0711/丁厂:15:14:19750.039.0801f=15:14:24::：F-.O915:14:30B9g.075.010jl'T15:14:36;二.'■.3.uLL-Jl.1J36.01±0L211//■.■■--15:14:48IOS.030.U1301f=15:14:541'■1^.0L415:15:00,,253066.0,,LEL61,7口总Q回啜|昌&单|上函|g.希那怪学2!F3锂了.急*「李三国AieFii600.040LL0200.0-1.1■1.1宏通J自定义©.3，匚共享工作博®..转EiTrl---L；78191011JULI+-FEmh:..录制if宏叩翩.l；j..VisualEasic端tB器t£JM.，：，、，：［打右甫行克G：i-：I"：ii:'Ij.III.I双击ThisWorkBook在代码区选WorkBook在PrivateSub_Open()函数中，加入Run(“宏名”)Application.Quitwls女件(I)编辑②视图乜)国检▼■M电瓶战匚程-VBAProject回HI巨T+ActiveFactoryVorkboM-VBATroject(kkkk.xl；-、MicrosoftEkceL对霸j电Sheet1(Sheet1)尊］Sheet2CSkeet2^^Thim“orkbook-l-Q模块fflA(I)格式Q调试⑪运行®工具①外接程序⑷5j列1Torl^ookOpenzlFfivateSubWc-rkb口-：ik_Upe口0Rutl("Mrl11)Application.QuitEn.iSut.关闭VB编辑器，返回Workbook,确定报表的路径和文件名(如c:\report1.xls),保存报表。这样，我们的报表就完成了。一打开这个报表，就会执行宏，然后退出。在调试时，可以迅速按Atrl+Break键停止宏执行。注：在另存的情况下，在宏中找到另存的路径和文件名，用date,tim等变量加到文件名中。Step3:用INTOUCH打开报表在INTOUCH的相应脚本中加一条语句，启动EXCEL：StartApp"C:\ProgramFiles\MicrosoftOffice\Office\excel.exec:\report1.xls";这里，C:\ProgramFiles\MicrosoftOffice\Office\excel.exe是EXCEL的路径和文件名，注意EXCEL的版本不同路径不一样。c:\report1.xls是报表的路径和文件名，之间有一个空格。一个日报表的例子。语句说明：1）规定报表起始日期，2）规定报表起始时间，3）InTouch的路径，4）存储历史数据文件的路径，5）.CSV文件的路径和文件名，6）报表包含的标记名，7）报表的采样间隔，8）报表的时间总长度，9）生成报表，10）启动相应的EXCEL文件。4.参考应用程序的使用将文件REPORT.CSV和report1.xls复制到C盘根目录下。测试时可以用Ctrl+Brack，停止EXCEL的宏程序执行，以便观察宏程序是如何写的。为了顺利运行EXCEL报表，EXCEL的宏的安全级别已设的最低。&is”勺，ft拼写63区一的・LiBZ1]===四国%ifl^lwsJK*后旦LI亲g.Lt-LlickR1C1■fiJJzlz1234共享工作区卬〕.一三彳二1FW白：.h-u'j>势式第孩nr）>B910111IDateJ'li.itJl-lCln-i.i2■|，制dF：iiii.-1"j?■ji.3■]U；OU.JblI."L4-1/30/05d7：||||,।曲5■]c；0U.J9b1安631/30/0549:00,0672£意叫卜QKW：.Al计F8VU；;0U.J3"二1.3定乂心.选项m.灵牛空小：11S'1