关于Table转Excel的问题,请问以下代码哪错了?
var
asheet:Variant;
i,r:integer;
Table1.Active:=False;
Table1.TableName:='gz.db';
Table1.Active:=True;
Form5.ExcelApplication1.Visible[0]:=False;
Form5.ExcelApplication1.Workbooks.Add(xlWBATWorksheet,0);
asheet:=Form5.ExcelApplication1.Worksheets.Item[1];
  ///
 for i:=1 to table1.RecordCount-1 do
    begin
                 for r:=0 to table1.FieldCount-1 do
                 begin
                    asheet.cells[i,r+1].value:=Table1.Fields.Fields[r].Value;
                  end;
        Table1.RecNo:=i+1;
    end;      ///
 asheet.saveas('c:\windows\desktop\gz.xls');
 asheet.application.quit;