1、用INTOUCH向EXCEL中寫數(shù)據(jù),然后在EXCEL中用VBA對數(shù)據(jù)進行處理自動生成日報表下面是INTOUCH中條件程序,條件為:$minute=2(整點后第2分鐘寫數(shù)據(jù):m1=StringFromIntg( $Hour, 10 +","m1=m1+StringFromReal(PT,2,"f" +","m1=m1+StringFromReal(NTU,2,"f" +","m1=m1+StringFromReal(CHL,2,"F"+","m1=m1+S

2、tringFromReal(FLOW,0,"F"+","IF pump_state1.02 THEN m1=m1+"工頻運行"+"," ENDIF;IF pump_state1.03 THEN m1=m1+"變頻運行"+"," ENDIF;IF pump_state1.02=0 AND pump_state1.03=0 THEN m1=m1+"停機"+"," ENDIF;IF pump_state1.07 THEN m1=m1+&quo

3、t;工頻運行"+"," ENDIF;IF pump_state1.08 THEN m1=m1+"變頻運行"+"," ENDIF;IF pump_state1.07=0 AND pump_state1.08=0 THEN m1=m1+"停機"+"," ENDIF;IF pump_state1.12 THEN m1=m1+"工頻運行"+"," ENDIF;IF pump_state1.13 THEN m1=m1+"變頻運行"+&q

4、uot;," ENDIF;IF pump_state1.12=0 AND pump_state1.13=0 THEN m1=m1+"停機"+"," ENDIF;IF pump_state2.02 THEN m1=m1+"工頻運行"+"," ENDIF;IF pump_state2.03 THEN m1=m1+"變頻運行"+"," ENDIF;IF pump_state2.02=0 AND pump_state2.03=0 THEN m1=m1+"停機&qu

5、ot;+"," ENDIF;m1=m1+StringFromReal(HZ,0,"F"+","m1=m1+StringFromReal(LT,2,"f" +","IF mw1_00.15 THEN m1=m1+"運行"+","ELSE m1=m1+"停機"+","ENDIF;IF mw1_01.15 THEN m1=m1+"運行"+","ELSE m1=m1+"停機&

6、quot;+","ENDIF;m1=m1+StringFromReal(chol1_flow,2,"f"+","m1=m1+StringFromReal(chol2_flow,2,"f"+","m1=m1+StringFromReal(chol1_wei,0,"f"+","m1=m1+StringFromReal(chol2_wei,0,"f"+","m1=m1+StringFromReal(chem1_lev,2,

7、"f"+","m1=m1+StringFromReal(chem2_lev,2,"f"+","m1=m1+StringFromReal(chem1_freq,0,"f"+","m1=m1+StringFromReal(chem2_freq,0,"f"+","m1=m1+StringFromReal(chem_flow,0,"f"+","IF mw1_00.02 THEN m1=m1+"運行"+","ELSE m1=m1+"停機"+","ENDIF;IF mw1_00.06 THEN m1=m1+"運行"+","ELSE m1=m1+"停機"+","ENDIF;IF mw1_00.10 THEN m1=m1+"運行"+",&quo