Beating my own drum, but the technique for creating n sheets in a new file without looping is shown in RFC Tutorial - Deleting Excel Rows, Columns and Sheets. Just don't leave the user with a mess to clear up, but the technique for that is shown too, as is the explanation of what creates a mess.

Regards,

John Davies

Have you read Using Win32::OLE and Excel - Tips and Tricks? It contains many helpful tips, and also how to find the Excel methods within the Excel documentation.

I'd use Spreadsheet::WriteExcel and it's add_worksheet method. If you must use OLE then I suggest reading the FAQ and using the macro recorder in Excel and (How do I convert a VBA macro to Perl? to figure out what you have to do.

my $add = 10;
my $workbook = $excel-> Workbooks -> Add();
my $last = $workbook->Sheets->Count;
$workbook->Sheets->Add({After=>$workbook->Sheets($last),
                        Count=>$add});
[download]

Win32::OLE Excel Adding worksheet after last current sheet

you mean ?

 for(1.2..$count) {
       $Sheet = $Book->Worksheets($_);
       $Sheet->Activate();   
}
[download]

Have you read Using Win32::OLE and Excel - Tips and Tricks? It contains many helpful tips, and also how to find the Excel methods within the Excel documentation.

If you think you've seen this response before, maybe now is the time to follow its advice.