1 //1.引用单元
2 uses ComObj;
3
4 //2.建立工作薄与工作表
5 procedure TForm1.Button1Click(Sender: TObject);
6 Var
7 ExcelApp,Sheet:Variant;
8 begin
9 ExcelApp:=createoleobject(\'excel.application\');
10 ExcelApp.workbooks.add(1);
11 ExcelApp.worksheets.add;
12 ExcelApp.worksheets.add;
13 ExcelApp.worksheets.add;
14 Sheet:=ExcelApp.workbooks[1].worksheets[1];
15 Sheet.name:=\'200\';
16 Sheet:=ExcelApp.workbooks[1].worksheets[2];
17 Sheet.name:=\'400\';
18 Sheet:=ExcelApp.workbooks[1].worksheets[3];
19 Sheet.name:=\'600\';
20 Sheet:=ExcelApp.workbooks[1].worksheets[4];
21 Sheet.name:=\'800\';
22 ExcelApp.visible:=true;
23 end;