EXCEL 建立工作薄与工作表

 //1.引用单元
 uses ComObj;

 //2.建立工作薄与工作表
 procedure TForm1.Button1Click(Sender: TObject);
 Var
   ExcelApp,Sheet:Variant;
 begin
   ExcelApp:=createoleobject('excel.application');
   ExcelApp.workbooks.add();
   ExcelApp.worksheets.add;
   ExcelApp.worksheets.add;
   ExcelApp.worksheets.add;
   Sheet:=ExcelApp.workbooks[].worksheets[];
   Sheet.name:='';
   Sheet:=ExcelApp.workbooks[].worksheets[];
   Sheet.name:='';
   Sheet:=ExcelApp.workbooks[].worksheets[];
   Sheet.name:='';
   Sheet:=ExcelApp.workbooks[].worksheets[];
   Sheet.name:='';
   ExcelApp.visible:=true;
 end;