亚控组态将数据写入到EXCEL文件
先创建一个工程,然后创建一个画面,打开画面,在工具中找到报表窗口,将需要手动输入的文字填入报表中。传感三个控制按钮,分别是创建报表、启动记录和保存报表。
创建如下变量
在命令语言下的事件命令语言中创建四个事件:创建报表、报表增加、保存文件和记录启动
创建报表
string ReportTableTemp=InfoAppDir() + "报表模板\\报表模板.rtl";
ReportLoad("ReportTableWindow",ReportTableTemp);long StartTime=HTConvertTime(\\\\local\\$Year,\\\\local\\$Month,\\\\local\\$Day,\\\\local\\$Hour,\\\\local\\$Minute,\\\\local\\$Second);ReportSetHistData("ReportTableWindow", "\\\\local\\$Time", StartTime, \\\\local\\$Millisecond, "b4:b2000");
ReportSetHistData("ReportTableWindow", "\\\\local\\$Year", StartTime, \\\\local\\$Year, "c4:c2000");
ReportSetHistData("ReportTableWindow", "\\\\local\\$Month", StartTime, \\\\local\\$Month, "d4:d2000");
ReportSetHistData("ReportTableWindow", "\\\\local\\$Day", StartTime, \\\\local\\$Day, "e4:e2000");
ReportSetHistData("ReportTableWindow", "\\\\local\\$Hour", StartTime, \\\\local\\$Hour, "f4:f2000");
ReportSetHistData("ReportTableWindow", "\\\\local\\$Minute", StartTime, \\\\local\\$Minute, "g4:g2000");
ReportSetHistData("ReportTableWindow", "\\\\local\\$Second", StartTime, \\\\local\\$Second, "h4:h2000");ReportSetCellString("ReportTableWindow", 2, 2, \\\\local\\$Date);
ReportSetCellString("ReportTableWindow", 2, 4, \\\\local\\$Time);\\\\local\\行号=4;
报表增加
string Number=StrFromInt(\\\\local\\行号-3,10);
string Year=StrFromInt(\\\\local\\$Year, 10 );
string Month=StrFromInt(\\\\local\\$Month, 10 );
string Day=StrFromInt(\\\\local\\$Day, 10 );
string Hour=StrFromInt(\\\\local\\$Hour, 10 );
string Minute=StrFromInt(\\\\local\\$Minute, 10 );
string Second=StrFromInt(\\\\local\\$Second, 10 );ReportSetCellString("ReportTableWindow", \\\\local\\行号,1,Number);
ReportSetCellString("ReportTableWindow", \\\\local\\行号,2,\\\\local\\$Time);
ReportSetCellString("ReportTableWindow", \\\\local\\行号,3,Year);
ReportSetCellString("ReportTableWindow", \\\\local\\行号,4,Month);
ReportSetCellString("ReportTableWindow", \\\\local\\行号,5,Day);
ReportSetCellString("ReportTableWindow", \\\\local\\行号,6,Hour);
ReportSetCellString("ReportTableWindow", \\\\local\\行号,7,Minute);
ReportSetCellString("ReportTableWindow", \\\\local\\行号,8,Second);\\\\local\\报表增加=0;
记录启动(存在事件):以3S为一个周期记录数据
\\\\local\\报表增加=1;
\\\\local\\行号=\\\\local\\行号+1;
保存文件
string Year=StrFromInt(\\\\local\\$Year, 10 );
string Month=StrFromInt(\\\\local\\$Month, 10 );
string Day=StrFromInt(\\\\local\\$Day, 10 );
string Hour=StrFromInt(\\\\local\\$Hour, 10 );
string Minute=StrFromInt(\\\\local\\$Minute, 10 );
string Second=StrFromInt(\\\\local\\$Second, 10 );\\\\local\\报表编号=Year+Month+Day+Hour+Minute+Second;
string ReportTablePath=InfoAppDir() + "Excel报表\\"+\\\\local\\报表编号+".csv";
ReportSaveAs("ReportTableWindow",ReportTablePath);
运行效果:点击保存报表后再本地也会生产一个EXCEL的文件