请问在把查询结果导出到Excel的时候自定义sheet的名称？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
    ExcelApp:Variant;
begin
  ExcelApp := CreateOleObject( 'Excel.Application' );
  ExcelApp.Visible := True;
  ExcelApp.WorkBooks.Open('F:\Delphi6\Projects\Book1.xls');0D
  ExcelApp.ActiveSheet.Name :3D 'AA';
end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
    ExcelApp:Variant;
begin
  ExcelApp := CreateOleObject( 'Excel.Application' );
  ExcelApp.Visible := True;
  ExcelApp.WorkBooks.Open('F:\Delphi6\Projects\Book1.xls');0D
  ExcelApp.ActiveSheet.Name := 'AA';
end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————

Answer 2

exapp:=createoleobject('excel.application');
 exapp.visible:=false;
 exworkbook:=exapp.workbooks.add;
 exworkbook.worksheets.add;
 exworkbook.worksheets[1].name:=YourDefineName//定义名称!