EXCEL 建立工作薄与工作表
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;
作者:疯狂Delphi
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利.
欢迎关注我,一起进步!扫描下方二维码即可加我
![](https://images.cnblogs.com/cnblogs_com/FKdelphi/1101510/o_200417075318%E5%8A%A0%E6%88%91QQ.jpg)
![](https://images.cnblogs.com/cnblogs_com/FKdelphi/1101510/o_200417080925%E5%8A%A0%E6%88%91%E5%BE%AE%E4%BF%A1.jpg)