关于操作EXCEL模板文件的问题

[xugang96]

我现在有个发票样式的excel模板文件，用OLE读取后，如果有10张发票，希望在一个文件中能同时生成10个Sheet，都套用第一个sheet样式，怎么搞？

var
Excel_workbook, Excel_app,Temp_Worksheet:OLEVariant;
I:integer;
begin
try
Excel_app := CreateOleObject('Excel.Application');
except
Showmessage( '无法连接到Excel ' );
exit;
end;
Excel_app.visible := true;
Excel_app.WorkBooks.Add(ExtractFilePath(ParamStr(0))+'\MainLabel.xlt');
-------就是在这里-----------想来个循环创建我想要的数量的sheet.

// Excel_app.WorkSheets[1].name:='test'+inttostr(1);