亚控组态将数据写入到EXCEL文件

最新推荐文章于 2024-10-19 12:26:30 发布

qq_20792765

最新推荐文章于 2024-10-19 12:26:30 发布

阅读量4.8k

点赞数 3

文章标签： excel 亚控组态

本文链接：https://blog.csdn.net/qq_20792765/article/details/130316129

版权

先创建一个工程，然后创建一个画面，打开画面，在工具中找到报表窗口，将需要手动输入的文字填入报表中。传感三个控制按钮，分别是创建报表、启动记录和保存报表。
在这里插入图片描述
创建如下变量

在命令语言下的事件命令语言中创建四个事件：创建报表、报表增加、保存文件和记录启动

在这里插入图片描述
创建报表

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);