Excel sheet handling using perl

[Bipin J]

I am trying to copy content of one excel sheet to another using Win32::OLE.
For the destination file i am able to select the sheet using hte following command
my $Dest_Sheet=$Dest_Book->Worksheets(Sheet_name)
But for the source file when i tried the same i am getting errors. So i am forced to give the sheet No.

my $Source_Sheet = $Source_Book->Worksheets(1)
 

Is there a solution for the same.

One more thing is there a way to get the total number of sheets available in an excel sheet?

[miller]

If you're having trouble with Win32::OLE, you can always try using Spreadsheet::ParseExcel and Spreadsheet::WriteExcel. It would definitely require a bit of programming to accomplish what you describe, but I'm sure it's doable.

- Miller