关于导出Excel数据的问题,最常见的是delphi数据库中的数据怎么保存成excel,excel数据怎么导入到数据库。这些方法在网上一查就可以找到不少相关的写好的类。但是关于在仪器测试中怎么将数据写入成excel文件,探讨的相对较少。在这里给出两种方法:
1.常规的delphi控制excel方法。
procedure TFormyarnLSlook.Button1Click(Sender: TObject);
var
excelApp:variant;
ss:string;
t:integer;
begin
excelapp:=CreateOleObject( 'Excel.Application' );
ExcelApp.Visible := True;
ExcelApp.Caption := ''测试数据';
ExcelApp.WorkBooks.Add;
ExcelApp.Cells[1,5].Value := '测试记录大标题';
ExcelApp.Cells[2,1].Value := 测试项目1;
ExcelApp.Cells[2,6].Value :=测试项目2;
ExcelApp.Cells[8,2].Value :=32;
ExcelApp.Cells[8,3].Value :=23;
ExcelApp.Cells[8,4].Value :=58;
2. 第二种方法是利用写文本的形式,只不过把后缀改成csv即可,其实csv结尾的也是文本形式,但是注意在txt中,用半角逗号将各个字段隔开,将文本文件的后缀txt直接改成csv,双击即可在EXCEL中打开