一个简单的EXCEL问题,望高手指教!

[beauzu]

如何只用代码生成一个EXCEL文件,解决完了,立即松分

现有代码如下:
var
ExcelApp,WorkBook: Variant;
xlsFileName: string;
begin
try
ExcelApp := CreateOleObject('Excel.Application');
WorkBook :=CreateOleObject('Excel.Sheet');
except
showmessage('您系统未安装MS-EXCEL');
exit;
end;
try
workBook :=ExcelApp.WorkBooks.add;
//这儿的代码应该如何实现解excel呢?
except
on EOleException do
begin
WorkBook.Close;
ExcelApp.quit;
ExcelApp:=Unassigned;
exit;
end;
end;
end;

[things]

var
ExcelApp,WorkBook: Variant;
xlsFileName: string;
begin
try
ExcelApp := CreateOleObject('Excel.Application');
WorkBook :=CreateOleObject('Excel.Sheet');
except
showmessage('您系统未安装MS-EXCEL');
exit;
end;
try
workBook :=ExcelApp.WorkBooks.add;
WorkBook.SaveAs('D:\b.xls'); //新建EXCEL文件D:\b.xls
except
on EOleException do
begin
WorkBook.Close;
ExcelApp.quit;
Exit;
end;
end;
WorkBook.Close;
ExcelApp.quit;
end;

[risingsoft]

AssignFile
Rewrite
WriteLn
CloseFile

[hameizi]

我作的是这样子的，
你自己看看吧


ExcelApplication1: TExcelApplication;
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;
SaveDialog1: TSaveDialog;



Try
ExcelApplication1.Connect;
Except
application.MessageBox('系统提示','是否正确安装了Excel?',16);
abort;
end;
ExcelApplication1.Visible[0]:=true;
ExcelApplication1.Caption:='配料耗用日报表';
ExcelApplication1.Workbooks.Add(null,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.worksheets[1] as _worksheet);
with data_bb.tablecreate do
begin
close;
sql.Clear;
sql.Add('select * from tmp');
open;
end;
data_bb.tablecreate.GetFieldNames(zdlist);
data_bb.tablecreate.First;
for i:=1 to zdlist.Count do
begin
Excelworksheet1.Cells.Item[1,i]:=zdlist[i-1];
end;
row:=2;
with data_bb.tablecreate do
begin
while not Eof do
begin
column:=1;
for i:=1 to FieldCount do
begin
IF i=1 then
ExcelWorksheet1.Cells.Item[row,column]:=fields[i-1].AsString
else
ExcelWorksheet1.Cells.Item[row,column]:=formatfloat('#,##0.00',fields[i-1].asfloat);
column:=column+1;
end;
next;
row:=row+1;
end;
end;