关于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;
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;
什么错误?