Delphi与Excel

关于导出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中打开