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中打开