来真的，再问一次，在Delphi中怎样生成Excel文件，并且操作Excel文件？各位多谢！

[jy_1201]

在Delphi中怎样生成Excel文件，并且操作Excel文件？

[Dhammacakkhu]

生成excel文件：

Var
Excel,Sheet:Variant;
begin
If savedialog.Execute Then
Begin
Excel:=CreateOleObject('Excel.Application'); //建立OLE对象
Excel.Visible :=false;
Excel.Workbooks.Add; //增加EXCEL表
Excel.Workbooks[1].WorkSheets[1].Name := '通讯录';
end;

操纵excel去这里看看：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=759711

[chwdong]

try
ExcelApp:=CreateOleObject('Excel.Application');
MyExcelSheet:=CreateOleObject('Excel.Sheet');
MyExcelSheet:=ExcelApp.WorkBooks.Add;
except
ShowMessage('无法建立Excel对象!!!');
Exit;
end;