Intouch報(bào)表EXCEL報(bào)表制作

1、用EXCEL打印報(bào)表1.原理首先根據(jù)報(bào)表要求，用 INTOUCH的附件HISTDATA軟件形成一個(gè)有規(guī)定數(shù)據(jù)的.CSV 文件（逗號(hào)分隔文件，可用 EXCEL打開(kāi)）。這個(gè).CSV文件是英文的，不符合一般報(bào)表的要 求，只能提供數(shù)據(jù)。所以需要另設(shè)計(jì)一個(gè)空的EXCEL報(bào)表模版，再將.CSV文件的數(shù)據(jù)復(fù)制到報(bào)表中，形成完整的報(bào)表。通過(guò)INTOUCH可以自動(dòng)產(chǎn)生.CSV，再通過(guò)EXCEL的宏程序打印報(bào)表， 可以完成招呼 打印和定時(shí)自動(dòng)打印。如果有多個(gè)報(bào)表，需要形成多個(gè) .CSV文件和設(shè)計(jì)多個(gè) EXCEL報(bào)表。大致步驟如下：設(shè)計(jì)報(bào)表，確定一個(gè)報(bào)表的開(kāi)始時(shí)間、時(shí)間總長(zhǎng)度、個(gè)數(shù)據(jù)之間數(shù)據(jù)采樣間隔，報(bào)表參數(shù)所對(duì)應(yīng)

2、得的標(biāo)記名等（如日?qǐng)?bào)表的開(kāi)始時(shí)間為 0點(diǎn)，時(shí)間長(zhǎng)度為24小時(shí)，數(shù)據(jù)采樣間 隔時(shí)間為小時(shí)）在In Touch中，按報(bào)表的需要，用腳本給一組專(zhuān)用的標(biāo)記名賦值（如 HDWSTARTTIME規(guī)定日?qǐng)?bào)表的開(kāi)始時(shí)間， HDWDBDIR 規(guī)定歷史紀(jì)錄文件的目錄，HDWTAGS規(guī)定報(bào)表內(nèi)涵的標(biāo)記名1在In Touch腳本中，用 HDWWRITEFILE =1形成一個(gè).CSV文件用EXCEL設(shè)計(jì)報(bào)表的模版。在 EXCEL中，用記錄宏程序，將形 成的.CSV文件中的數(shù)據(jù)導(dǎo)入 EXCEL報(bào)表模版的數(shù)據(jù)區(qū)，然后打 印。最后在EXCEL中將該宏程序設(shè)置為自動(dòng)執(zhí)行宏程序1在生成.CSV文件的In Touch腳本中，加入

3、StartApp函數(shù)，啟動(dòng)EXCEL印報(bào)表2.生成.CSV文件Stepl:自動(dòng)生成需要的標(biāo)記名在INTOUCH 開(kāi)發(fā)環(huán)境中，將向?qū)?kù)中趨勢(shì) 歷史趨勢(shì)向?qū)В℉istData）放入窗口。這將自動(dòng)形成若干標(biāo)記名（Tag）。有關(guān)標(biāo)記名以 HDW開(kāi)頭加上它們的 DDE的ITEM命名。向耳選擇"示制I&J齟髻口關(guān)架板廣W1按報(bào)窗燈幵桓面腎數(shù)文儀游運(yùn)本示 示時(shí)間工耳Zaan in含指翻度的縮f板HistD ata歷史數(shù)據(jù)向?qū)иw勢(shì)筆圖例這些標(biāo)記名說(shuō)明如下：HDWDATADIR 消息型HDWDBDIR 消息型HDWSTARTDATE 消息型HDWSTARTTIME 消息型HDWDURATION

4、 消息型HDWINTERVAL 消息型向?qū)枋鰘含左/若指亍器顯示時(shí)間）和EU刻度的歷史趨蟄確定 | 取消 |添加到工具欄a）_|從工具欄中刪除©）|歷史數(shù)據(jù)文件的目錄的路徑名，可用函數(shù)賦值例如 HDWDataDir = HTGetLogDirectory（）;In Touch標(biāo)記名字典的目錄的路徑名，可用函數(shù)賦值例如 HDWDBDir = Infoln TouchAppDir（）;與$DateStri ng相同格式的數(shù)據(jù)采樣開(kāi)始日期 使用24小時(shí)時(shí)鐘的HH:MM:SS 格式的數(shù)據(jù)采樣開(kāi)始時(shí)間 數(shù)據(jù)時(shí)間長(zhǎng)度（報(bào)表時(shí)間總長(zhǎng)度）可以用星期，天時(shí)，分，秒，等來(lái)表示下面是有效的字 符：w星期

5、，d天，h小時(shí)，m分，s秒。允許使用 小數(shù)值例如擴(kuò).5s表示500毫秒若只需一個(gè)樣本請(qǐng) 將 DURATION 設(shè)為 0零采樣間隔的時(shí)間長(zhǎng)度可以用星期日小時(shí)分和秒來(lái)表示例如1W表示一星期允許使用小數(shù)值例如用.25d來(lái)表示6小時(shí)有效字符與HDDURATION 相同注意DURATION 和INTERVAL 允許的最大時(shí)間長(zhǎng) 度均為6周這適用于所有請(qǐng)求類(lèi)型日秒等例如如果使用日則最大值為 42, 7天x 6周=42HDWTAGS 消息型HDWTAGS1, TAGS2,.HDWFILENAME 消息型HDWWRITEFILE 整型STATUSERROR 消息型歷史數(shù)據(jù)的標(biāo)記名列表（報(bào)表中需要的標(biāo)記名）以T

6、agA,TagB,TagZ格式輸入，此外采樣日期和或時(shí)間 可以通過(guò)使用內(nèi)部系統(tǒng)標(biāo)記名 $Date 和 $Time 來(lái)請(qǐng) 求例如 "$Date,TagA,TagB" 或 "$Time,TagA,TagB" 或 "$Date,$Time,TagA,TagB"消息型 HDWTAGS 字符串在 WindowViewer 中的長(zhǎng)度 可以為 131 個(gè)字符在 Excel 中的長(zhǎng)度可以為 255 個(gè) 字符字符串，可以通過(guò)迭加標(biāo)記名項(xiàng)目 Tags1 Tags2 等來(lái)延長(zhǎng)以適應(yīng)更長(zhǎng)字符串的要求， 如果標(biāo)記名需附 加額外的標(biāo)記名文本請(qǐng)?jiān)谧址┹斎胍粋€(gè)加

7、號(hào)（ +）例如， TAGS="$Date,ProdLevel,ProdTemp,+" TAGS1="ReactLevel,Temp,GasLevel,+" TAGS2="MotorStatus" 注意不允許使用重復(fù)標(biāo)記名， 每個(gè)標(biāo)記字符串的最 大長(zhǎng)度為 512字節(jié)規(guī)定生成的.CSV文件的路徑和名稱(chēng)例如， C:INTOUCHHDFILE.CSV當(dāng)設(shè)置為 1 時(shí) HistData 會(huì)將請(qǐng)求數(shù)據(jù)寫(xiě)入由FILENAME 項(xiàng)目名指定的文件， 當(dāng)文件更新完 成后 WRITEFILE 會(huì)自動(dòng)重置為 0零 離散型 顯示最后一次操作的狀態(tài) 1 表示成功

8、， 0 零表示 出錯(cuò)包含上次錯(cuò)誤說(shuō)明的字符串，如 STATUS 為1 則顯示 無(wú)，如 STATUS 為 0 零則顯示錯(cuò)誤消息字符串前9個(gè)TAG規(guī)定數(shù)據(jù)的內(nèi)容，HDWWRITEFILE=1是寫(xiě).CSV文件的命令，最后兩個(gè)用于檢查狀態(tài)和錯(cuò)誤。寫(xiě)腳本時(shí)應(yīng)注意：HDWDBDir 、HDWDataDir 這兩個(gè)標(biāo)記名是規(guī)定路徑的，可以用函數(shù)賦值?？梢詫?xiě) 在應(yīng)用程序腳本內(nèi)。HDWFilename這個(gè)標(biāo)記名是規(guī)定.CSV文件的路徑和文件名。如果只打一種報(bào)表， 也可以寫(xiě)在應(yīng)用程序腳本內(nèi)，否則應(yīng)在形成.CSV文件前指定。HDWTags和后續(xù)的HDWTagsl、HDWTags2這些標(biāo)記名是規(guī)定.CSV文件的包含的

9、標(biāo) 記名。如果只打一種報(bào)表，也可以寫(xiě)在應(yīng)用程序腳本內(nèi)，否則應(yīng)在形成.CSV文件前指定。HDWStartDate、HDWStartTime這兩標(biāo)記名是規(guī)定.CSV文件數(shù)據(jù)的起始日期和起始 時(shí)間的。 如果是招呼打印報(bào)表， 人工輸入時(shí)格式一定要正確。 如果是自動(dòng)打印報(bào)表 可以計(jì)算得到，一般可以在條件腳本內(nèi)規(guī)定。HDWInterval、HDWDuratione這兩標(biāo)記名是規(guī)定.CSV文件的數(shù)據(jù)時(shí)間間隔和數(shù)據(jù) 時(shí)間的總長(zhǎng)度，如日?qǐng)?bào)表分別為：1H （小時(shí)）和1D（ 1天）。HDWWRITEFILE =1為生成.CSV文件，只有上述標(biāo)記名義賦值后，才執(zhí)行他。 ERROR這個(gè)標(biāo)記名可以顯示生成.CSV文件時(shí)是

10、否有錯(cuò)誤，調(diào)試時(shí)非常重要。例如：下面腳本生成一個(gè)日期由StartDatel規(guī)定，包括兩個(gè)標(biāo)記名PI-101,TI-101 ,日?qǐng)?bào)表。CSV文件。可以復(fù)制在你的腳本中，修改一下就可以形成所需的HDWStartDate =StartDate1;HDWStartTime = ”00:00:00”;HDWDBDir = InfoInTouchAppDir(); HDWDataDir = HTGetLogDirectory(); HDWFilename = "C:REPORT.csv"HDWTags ="$Date,$Time,PI-101,TI-101"HDWI

11、nterval = "1H"HDWDuration = "1D"HDWWRITEFILE=1HDWDataDir = HTGetLogDirectory();HDWDBDir = InfoInTouchAppDir();HDWStartDate = #DTPicker1.Value;時(shí)間控件名稱(chēng)HDWStartTime ="00:00:00"開(kāi)始時(shí)間HDWFile name = "C:REPORT.csv"HDWTags ="$Date,$Time,zj_AO1,zj_AO2"HDWInterv

12、al = "1H"HDWDuration = "1D"HDWWRITEFILE=1;Step2: 招呼打印報(bào)表的情況如果是招呼打?。ú欢ㄆ诖蛴?，人工輸入打印日期和時(shí)間的報(bào)表打?。瑒t可以在INTOUCH 中開(kāi)一個(gè)窗口輸入 HDWStartDate1 ， HDWStartTime ， HDWInterval ， HDWDuration 的參數(shù)。并做一個(gè)按鈕，在動(dòng)作腳本中給固定的參數(shù)賦值和最后令HDWWRITEFILE=1 ；腳本的例子形成的.CSV文件的例子迢 Microsoflt Excel - REPORT亙）文件（日編緝視團(tuán)加插入格式工具（D數(shù)據(jù)&#

13、169; 窗口兇 ActlveFac曰中困中英度設(shè)置|D=sa 國(guó)I魯 瞎危壬 a ABCDEF1$Date$TirrePI-101TI-10122005-1-221:38:093447232005-1-221:381-221:38:214643352005-1-221:38:275246362005-1-221:38:335849372005-1-221:38:396442482005-1-221:38:4570454g2005-1-221:38:5176283102005-1-221:38:5782214n2005-1-221:39:0393543122005-1

14、-221:39:09207013I1114園快譯圍英中LIIEC HI5TE£ 紜前TJA!D13Step3:定時(shí)自動(dòng)打印的情況如果是定時(shí)自動(dòng)打印，需要在條件腳本（或數(shù)據(jù)改變腳本）中寫(xiě)代碼完成。這里需要特別注意起始日期和時(shí)間。女口：日?qǐng)?bào)表示在o點(diǎn)以后打印的，所以需要通過(guò)計(jì)算得到前一天的 日期，可以用下面語(yǔ)句HDWStartDate =Stri ngFromTime（ （$Date - 1）*86400, 1 ）。舉例：lal x|腳本（聖 編輯邑 插入需助（糾電電圉已I段條件:注釋?zhuān)?條件類(lèi)型:便用的腳本：1HDWStartDate =StringFromTime($Date -ir

15、8E400,1 上計(jì)篡前一天的日 期HDWStaitTime ="00:00:00"HDWDBDir= InfolnTouchAppDiiO；HDWDataDir = "dAdata"HDWFilename - "C:REPORT.csv"HDWTsgs =”$D ate,$Time,F1-101JH-101 “；HDWInter洶ID"HDWDurAn-'IH"HDWWriteFle=1;'-jStartApp "D:Program FilesMicrosdtOEXCEL.EXEc:re

16、poft1.xls' '：ki確定| 取消保存 t履但| 轉(zhuǎn)換（£ | 驗(yàn)證叨| 函數(shù)上asE_andJ <<- -|<> >-|>lTH£N |ELSE F | UR = | + | -| / | ： |Step4:運(yùn)行INTOUCH，檢查生成的.CSV文件。3.建立EXCEL報(bào)表Stepl:設(shè)計(jì)一個(gè)報(bào)表格式。例如：先畫(huà)出報(bào)頭艮 Microsoft Excel - kkkk邑j|文件邁）|漏輯® 視圖電） 插入Q）格式©） TM （1）D 3 6勁直尊|希醫(yī)門(mén)書(shū)£亍飾|REPORT技rill

17、'llilld搗LIHE 匕HIST囤 誡T 怖!11234512日期時(shí)間壓力Kd&溫度C345678910111213141R在EXCEL導(dǎo)入相應(yīng).CSV文件。MicrDSDft Ekcell - Boel亙I丈件 扁輯 覘圈吵 質(zhì)人© 格式電）工具即12341推表丘倒日期葉間.壬力K環(huán)溫度C3Wate$TiinePI-101TI-10L4Q1/29/0515:14:00534. 0S4, 0501/29/0515:14:06606. 03. 0601/29/0515:14=1267S. 02L 0”01/29/0515:14:18750. 03玄0301/29/0

18、515:14:24322,057,09Q1/2W15:14:30894, 07E. 01001/29/0515:14:36966. 093. 0zE19C10竄*NMT ®.ma on卜5甘荃匯總（E）咖w.1：數(shù)搭逋觀表和數(shù)號(hào)遴幫閔（£】.一.1(導(dǎo)人9卜密勒&>!更新塾據(jù)®）凱IE I 宙口世)gulLytJMiLOTF SB600.0Z于曇A數(shù)據(jù)迎庫(kù)憂(yōu)詢(xún)血）.400.0聞新建忸査詢(xún)世1 .11找到相應(yīng).CSV文件，一步步導(dǎo)入選逗號(hào)分割,指定導(dǎo)入?yún)^(qū)域起點(diǎn)單元,icroso暫文件世）編輯視團(tuán)豹插入格式（Q）工具0）數(shù)據(jù)®窗口 Qf) Ac

19、tivR3C1< 11234iDateJ01/29/05u1501/29/05-601/29/051701/29/051801/29/051901/29/0511 nm qq/cr1IfelMIIIJJxJ數(shù)據(jù)的砂置位置：a現(xiàn)有工作表d）:|=SheetllR3Cl|r新建工作表堪）p刨建數(shù)據(jù)透觀表迥<4AA n Iq文 n為了更直觀，可以用 EXCEL的功能加一個(gè)趨勢(shì)圖。編輯查詢(xún)曲）創(chuàng)立件叩（£）視圖迫 Hi A（I）榕式匹I工且怕麴基吵園口世I iciiFwtiry解助冷分”占?jí)q冒凰曠|站審RL9C10畀IU閡< I bn = = = 51000.0800. 0

20、600.Q400.()200.0系列1-系列212$4,12日期時(shí)間壓力氐a涓度C'3£DatefTimePI-LD1TI-1D1401/29/0515:14:00534.0S4.0501/29/05：:1J: i：XO601/29/0515:14:12678.021.0701/29/0515:14:18750.039.0呂01/29/0515:14:24S22.057.0g01/29/0515:14:30894.075.01001/29/051E：14：36966.093. Cn01/29/0515:14:4236,012.01201/29/0515:14:43103.03

21、0.01301/29/0515:14:54180.048.0DI/29/0515:15:00252.066.01516171200.0q nIKIa 囤6789101L0,0Step2:做一個(gè)宏選菜單工具宏錄制新宏，起一個(gè)宏名（如 mr1）,確認(rèn)。liciroscrt tKcel工目（U 數(shù)搭譏】 咅口迪 肛打釘九比口 簾助QU123112日期時(shí)間壓力Kw溫度3 q5&7891011121314R19C8t町文件（EJ 漏輔劇 規(guī)閨® 播入© 略式如 詔扮塹伺邊劈站電e唱會(huì)式WQD 網(wǎng)上工具邁）. 宏®-目宦義仗）.一 虛項(xiàng)W-拼耳宦| . 錯(cuò)逞檢査QP

22、.其享工柞浬（£）.傑護(hù)（EJ聯(lián)機(jī)協(xié)件砂12- | BJ u：1 T3910卜AltfFS錄常幡宏（£）.安全性.5 聽(tīng) sytl Baiii e 褊掃器電）Alt+Fl 1S Hicrosoft 罔本漏福器®Ut+Shift+Fll由于EXCEL不允許在有數(shù)據(jù)的區(qū)域?qū)霐?shù)據(jù)，所以先刪除前面導(dǎo)入的數(shù)據(jù)。選擇 數(shù)據(jù)區(qū)，按Del鍵創(chuàng) 文件電）編輯 視團(tuán)迪 插入Q）格式）工貝caa爲(wèi)龍鯊八鶴REPORT 丁$DateIMHII kk1234rB>1報(bào)老云例PVt”2日期時(shí)間壓力KdnSSl!£cI5T3jDate$TiinePI-101TI-101401

23、/29/0515:14:00534. 084. 0501/29/0515:14:06606.03.0601/29/0515:14:12678.021.0祇701/29/0515:14:18750.039. 0勸801/29/0515:14:24822.057. 0=a.T901/29/0515:14:30891075. 0f1001/29/0515:14:36966.093.01101/29/0515:14:4236.012.01201/29/0515:14:43108.030. 01301/29/0515:14:54180.048. 01411/29/0515:15:00252. 066.0

24、 11 R在EXCEL重新導(dǎo)入相應(yīng).CSV文件。重復(fù)剛才的步驟創(chuàng) 立牡® 煽弭© 觀圖 iflAd）榕式 工且怕 總& 窗口電） 3伽FT 昭 幫肪浮A盅屯9RL9C10 A!12417例2日期時(shí)間壓力尿日涓舷'3Wate$TiroePI-1D1TI-1D1401/29/051514:00534.034.0501/29/051514: r.3.0601729/051514:1267S.O21.0701/29/051514:18750.039.0呂01/29/051514:24822.057.0勺01/29/05'1514:30£94.075

25、.01001/29/051514:36966.093. C1101/29/051514:4236.012.01201/29/051514:48108.030.01301/29/051514:54100.048.0IQ01/29/051515:00252.066.0151617町n囤IKE島11011打印和保存（報(bào)表需要打印時(shí)）或另存（報(bào)表不需要打印時(shí)）。停止記錄宏寫(xiě)VBA腳本，讓宏自動(dòng)執(zhí)行菜單工具宏VB編輯器io3123413艮農(nóng)云例2日期時(shí)何更力Kpa溫.度34Slate$TimePI-10LTI-1C01/29/0515:1400i53.084.501/29/0515:1406C06.O3

26、,6701/29/0515:141267S.02L 001/29/0515:1418750.039,0呂01/29/0515:14弟822.05T. 0g1001/29/0515:1430894. 075. 001/29/0515:14閃966.093,01101/29/0515:1442阪012. 01201/29/0515:1443108.030. 01301/29/0515:U開(kāi)ri8o.o48, 001/29/05.15:150QI 252.06B.0 .15161 7圈表2nwr600.0的玄樣舊編輯叫觀圉血ffiA I）梢式 DQG3占也昌直爭(zhēng)*電 門(mén)丫址工具01表豹窗口 祜朋b

27、j y竝計(jì)陽(yáng)Mitrii400.0200.00.0401401=茶寫(xiě)（£）共享工作穆®. 保護(hù) 聯(lián)機(jī)助ffe定1） 自定殳口. 選頊肋T891011錄制釀嘰.妄全性（£）S VieqilL aiie 嵋黑血Hlh cro£«f t ，押莖潴輯器世.竝n-Shi fttrLi雙擊 ThisWorkBook在代碼區(qū)選WorkBook在Private Sub _Open()函數(shù)中，加入 Run(宏名”) Applicati on .Quit MicrosoFt Visual -濡輯墮）視圖迪插入（X格式調(diào)試1運(yùn)行® 工具外接程序晶庵1雀妣t

28、i * S工程-VBAProjectFrigate Sub *1( or kb o sk_0peik ()Kun ('TMr 1 Appli cati on. Qui tEnd Sub匡!Act i/reFac torylorkbof S VBILProject (kkkk. xl?aExcel對(duì)莠 (She«tl) (Shz (ShM3E "3 Nicrascft 薊 Shestl 劃 Shest2Sheet3撲口模塊關(guān)閉VB編輯器，返回 Workbook，確定報(bào)表的路徑和文件名（如c:report1.xls），保存報(bào)表。這樣，我們的報(bào)表就完成了。一打開(kāi)這個(gè)報(bào)表，

29、就會(huì)執(zhí)行宏，然后退出。在調(diào)試時(shí)，可以迅速按Atrl+Break鍵停止宏執(zhí)行。注：在另存的情況下，在宏中找到另存的路徑和文件名，用date,tim等變量加到文件名中。Step3：用INTOUCH打開(kāi)報(bào)表在INTOUCH的相應(yīng)腳本中加一條語(yǔ)句，啟動(dòng)EXCEL :StartApp "C:Program FilesMicrosoft OfficeOfficeexcel.exe c:report1.xls"這里，C:Program FilesMicrosoft OfficeOfficeexcel.exe 是 EXCEL 的路徑和文件名，注意EXCEL的版本不同路徑不一樣。c:report1.xls是報(bào)表的路徑和文件名，之間有一個(gè)空格。一個(gè)日?qǐng)?bào)表的例子。Jnl x腳本（$編輯（或 插入 幫助（出條件:注釋:條件類(lèi)型:轉(zhuǎn)換©HDWStartDate =StringFromTime( ($Date -1 )X064OO, 1 ); 計(jì)算前一天的日 期HDWStartTime ="00:00:00"HDWDBDir = Infol nTouchAppDir(); HDWD