怎幺样才能把编缉栏里的数据﹐转换成excel文件﹖﹖
Ngg 2003-08-22 03:38:16 我想把编缉栏里的数据﹐如edit1.text 里的内容﹐导出到excel里﹐我用了好几种方法﹐却都是错的﹐
如 Procedure editToExcel(ExcelCaption:String;);
var
ExcelApp:OleVariant;
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Caption := ExcelCaption;
ExcelApp.WorkBooks.Add;
ExcelApp.WorkSheets[1].Activate;
ExcelApp.Visible := True;
ExcelApp.Cells[1,1].Value := edit1.text
ExcelApp.Cells[1,2].Value := edit2.text
.......
end;
end;
各位大哥﹐小姐﹐帮我呀~~在下不胜感激