//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;