Intouch報表EXCEL報表制作

1、用EXCEL打印報表1 .原理首先根據(jù)報表要求,用INTOUCH勺附件HISTDAT欲件形成一個有規(guī)定數(shù)據(jù)的.CSV文件逗號分隔文件,可用EXCEL丁開.這個.CSV文件是英文的,不符合一般報表的要求,只能提供數(shù)據(jù).所以需要另設計一個空的EXCEL!表模版,再將.CSV文件的數(shù)據(jù)復制到報表中,形成完整的報表.通過INTOUCHT以自動產(chǎn)生.CSV,再通過EXCEL勺宏程序打印報表,可以完成招呼打印和定時自動打印.如果有多個報表,需要形成多個.CSV文件和設計多個EXCEL艮表.大致步驟如下：設計報表,確定一個報表的開始時間、時間總長度、個數(shù)據(jù)之間數(shù)據(jù)采樣間隔,報表參數(shù)所對應得的標記名等在InT

2、ouch中；按報表的需要；用腳本給一絹專用的標記名賦值用EXCE段計報表的模版.在EXCELS,用記錄宏程序,在生成.CSV文件的InTouch腳本中,參加StartApp函2 .生成.CSV文件Step1:自動生成需要的標記名在INTOUCHFF發(fā)環(huán)境中,將向?qū)熘汹厔輾v史趨勢向?qū)?HistData)放入窗口.這將自動形成假設干標記名(Tag).有關標記名以HDWF頭加上它們的DDE勺ITEM命名.向?qū)нx擇za鉗警匚關案瓶鬻值本表標桁出按報宣燈開框面修時數(shù)文儀游運臺指示甥和刻度的籍放/平移趨勢面板趨勢筆圖例歷史趨勢HhlDdh歷史數(shù)據(jù)向?qū)驅(qū)柽M含左/假設指示器品示時間和EU制度的歷史越期確

3、定取消訴力南工具欄歸這些標記名說明如下：HDWDATADR、型歷史數(shù)據(jù)文件的目錄的路徑名,可用函數(shù)賦值例如HDWDataDir=HTGetLogDirectory();HDWDBD精息型InTouch標記名字典的目錄的路徑名,可用函數(shù)賦值例如HDWDBDir=InfoInTouchAppDir();HDWSTARTDATE型與$DateString相同格式的數(shù)據(jù)采樣開始日期HDWSTARTTIME、型使用24小時時鐘的HH:MM:SS式的數(shù)據(jù)采樣開始時間HDWDURATIO患型數(shù)據(jù)時間長度(報表時間總長度)可以用星期,天時,分,秒,等來表示下面是有效的字符：w星期,d天,h小時,m分,s秒.允

4、許使用小數(shù)值例如擴.5s表示500毫秒假設只需一個樣本請將DURATION為0零HDWINTERV池層型采樣間隔的時間長度可以用星期日小時分和秒來表例如如1WS示一星期允許使用小數(shù)值例如用.25d來表示6小時有效字符與HDDURATION注意DURATIONINTERVAI&許的最大時間長度均為6周這適用于所有請求類型日秒等例如如果使用日那么最大值為42,7天x6周二42HDWTAGS同型歷史數(shù)據(jù)的標記名列表報表中需要的標記名以TagA,TagB,TagZB式輸入,此外采樣日期和或時間可以通過使用內(nèi)部系統(tǒng)標記名$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字節(jié)HDWFILENAME、型規(guī)定生成的.CSV

6、C件的路徑和名稱例如,C:INTOUCHHDFILE.CSVHDWWRITEFIL當設置為1時HistData會將請求數(shù)據(jù)寫入由FILENAME目名指定的文件,當文件更新完成后WRITEFIL公自動重置為0零STATU離散型顯示最后一次操作的狀態(tài)1表示成功,0零表示出錯ERROR息型包含上次錯誤說明的字符串,如STATUS1那么顯示無,如STATUS0零那么顯示錯誤消息字符串前9個TAG1定數(shù)據(jù)白內(nèi)容,HDWWRITEFILE陷W.CSVt件的命令,最后兩個用于檢查狀態(tài)和錯誤.寫腳本時應注意:HDWDBDkHDWDataDi這兩個標記名是規(guī)定路徑的,可以用函數(shù)賦值.可以寫在應用程序腳本內(nèi).HD

7、WFilenam這個標記名是規(guī)定.CSVC件的路徑和文件名.如果只打一種報表,也可以寫在應用程序腳本內(nèi),否那么應在形成.CSVC件前指定.HDWTagS后續(xù)的HDWTags1HDWTag這些標記名是規(guī)定.CSVt件的包含的標記名.如果只打一種報表,也可以寫在應用程序腳本內(nèi),否那么應在形成.CSVC件前指定.HDWStartDateHDWStartTime兩標記名是規(guī)定.CSVC件數(shù)據(jù)的起始日期和起始時間的.如果是招呼打印報表,人工輸入時格式一定要正確.如果是自動打印報表可以計算得到,一般可以在條件腳本內(nèi)規(guī)定.HDWInterval、HDWDuratione兩標記名是規(guī)定.CSVC件的數(shù)據(jù)時間間

8、隔和數(shù)據(jù)時間的總長度,如日報表分別為：1H小時和1D1天.HDWWRITEFILE=住成.CSVC件,只有上述標記名義賦值后,才執(zhí)行他.ERROR個標記名可以顯示生成.CSVC件時是否有錯誤,調(diào)試時非常重要.例如：下面腳本生成一個日期由StartDate1規(guī)定,包括兩個標記名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的參數(shù).并做一個按鈕,在動作腳本中給固定的參數(shù)賦值和最后令HDWWRITEFILE=1腳本的例子形成的.CSV文件的例子Step3:定時自動打印的情況如果是定時自動打印,需要在條件腳本或數(shù)據(jù)改變腳本中寫代碼完成.這里需要特別注意起始日期和時間.如：日報表示在0點以后打印的,所以需要通過計算得到前一天的日期,可以用下面語句HDWSta

11、rtDate=StringFromTime$Date-1*86400,1.舉例：Step4:運行INTOUCH檢查生成的.CSV文件.3 .建立EXCEL艮表Step1:設計一個報表格式.例如：先畫出報頭在EXCEL入相應.CSV文件.找到相應.CSV文件,一步步導入選逗號分割,指定導入?yún)^(qū)域起點單元,為了更直觀,可以用EXCEL勺功能加一個趨勢圖.Step2:做一個宏選菜單工具宏錄制新宏,起一個宏名如mr1,確認.由于EXCE4允許在有數(shù)據(jù)的區(qū)域?qū)霐?shù)據(jù),所以先刪除前面導入的數(shù)據(jù).選擇數(shù)據(jù)區(qū),按Del鍵在EXCEIM新導入相應.CSV文件.重復剛剛的步驟打印和保存報表需要打印時或另存報表不需要

12、打印時o停止記錄宏寫VBA卻本,讓宏自動執(zhí)行菜單工具宏VB編輯器雙擊ThisWorkBook在代碼區(qū)選WorkBook在PrivateSub_Open函數(shù)中,力口入Run“宏名Application.Quit關閉VB編輯器,返回Workbook,確定報表的品&徑和文件名如c:report1.xls,保存報表.這樣,我們的報表就完成了.一翻開這個報表,就會執(zhí)行宏,然后退出.在調(diào)試時,可以迅速按Atrl+Break鍵停止宏執(zhí)行.注：在另存的情況下,在宏中找到另存的路徑和文件名,用date,tim等變量加到文件名中.Step3:用INTOUCH丁開報表在INTOUCH勺相應腳本中力口一條語句,啟動EXCELStartAppC:ProgramFilesMicrosoftOfficeOfficeexcel.exec:report1.xls;這里,C:ProgramFilesMicrosoftOfficeOfficeexcel.exe是EXCEL勺路徑和文件名,注意EXCEL勺版本不同路徑不一樣.c:report1.xls是報表的路徑和文件名,之間有一個空格.一個日報表的例子語句說明：1規(guī)定報表起始日期,2規(guī)定報表起始時間,3InTouch的路徑