吵吵   2011-05-05  阅读:2,575

最近帮一个世界做了一个心理调查的程序,本来想把调查结果用txt展示的,后来想想直接写到excel比较好,这样子就可以直接用spss软件进行统计了。www.chaochaoblog.com

使用前先得在uses中加入comobj;



procedure savetoexcle();
var
ExcelApp: Variant;
sfile:string;
n:integer;
begin
ExcelApp := CreateOleObject( 'Excel.Application' );

sfile:=ExtractFilePath(application.ExeName )+'2.xls';
ExcelApp.WorkBooks.Open(sfile);//打开excel
ExcelApp.WorkSheets[1].Activate;//选择第一张表
ExcelApp.ActiveSheet.Columns[1].Insert;//插入一列
for n := 1 to 30 do
begin
ExcelApp.Cells[n,1].Value := aMark[n];//循环写入数据
end;

ExcelApp.ActiveWorkBook.Save;//保存文件www.chaochaoblog.com

ExcelApp.WorkBooks.Close;//关闭表
ExcelApp.Quit;//退出程序
end;

吵吵微信朋友圈,请付款实名加入:

吵吵 吵吵

发表评论

电子邮件地址不会被公开。 必填项已用*标注