5) 添加新工作表:
var Temp_Worksheet: _WorkSheet;
begin
Temp_Worksheet:=ExcelWorkbook1.
WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;
ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
End;
with adoquery1 do
begin
first;
while not eof
begin
adoquery2.close;
adoquery2.sql.clear;
adoquery2.sql.add('update tablename ');
adoquery2.paramterbyname('field1').asstring := FieldByName('field1').Asstring;
adoquery2.execsql;
next;
end;
end;