如何将数据导出到一个电子表格的多个sheet
如何将数据导出到一个电子表格的多个sheet?
excelapplication1.Workbooks.Add(NULL,0);
excelWorkbook1.ConnectTo(excelapplication1.Workbooks[2]);
excelworksheet2.ConnectTo(excelWorkbook1.Worksheets[2] as _worksheet);
ado1.Close ;
ado1.CommandText :='select * from data';
ado1.Open ;
for k:=0 to ado1.RecordCount -1 do
begin
excelworksheet2.Cells.Item[k+1,1]:=trim(ado1.fieldbyname('标题').AsString);
// excelworksheet1.Cells.Item[k+1,2]:=watchskin.Items[k];
ado1.Next ;
end;
ado1.Close ;
excelWorksheet2.SaveAs('222');
excelWorkbook1.Close;

以上代码只能导出到1个sheet，如何按记录，比如1-1000，到sheet1,1001-2000到sheet2

[解决办法]
也可能是控件有问题吧