ذخیره فایل excel با نام و مسیر مشخص

[disiba]

سلام
می خوام داده های dbgrid رو توی فایل اکسل ذخیره کنم . کدی که نوشتم به این صورت است . اخرین خط دارای خطا است و اجرا نمیشه . لطفا بگید شکل صحیح دستور چیه ؟ ممنون

procedure TForm1.BitBtn17Click(Sender: TObject);
var
Excel: Variant;
zl, i, j : Integer;
begin
Excel := CreateOleObject('Excel.Application') ;
Excel.Workbooks.Add;
ADOTable6.First;
zl := 1 ;
j := 1 ;
for i := 0 to ADOTable6.FieldCount - 1 do
if DBGrid1.Columns[I].Visible then
begin
Excel.Cells[zl , j + 1]:=DBGrid1. Columns[I].Title.Caption;
j:= j + 1 ;
end;
inc (zl) ;
while not ADOTable6.Eof do
begin
j := 1 ;
Excel.Cells[zl,1] :=INTTOSTR(Zl-2);
for i :=0 to ADOTable6.Fieldcount - 1 do
if DBGrid1.Columns[I].Visible then
begin
Excel.Cells[zl, J+1] := ADOTable6.Fields[i].AsString;
j:= j + 1 ;
end ;
inc(zl ) ;
ADOTable6.Next;
end;
excel.visible:=true;
excel.Workbook.saveas('c:\reza.xls');
end ;

[disiba]

مشکل رو از اینترنت پیدا کردم . خط آخر باید اینطوری باشه


excel.workbook.saveas('c:\reza.xls',,);