How can I create excel files with ActiveState Perl OLE interface?? 1

[perl8rookie]

I found the following code to read an existing excel file:

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3; # die on errors...

my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application', 'Quit');

# open Excel file
my $Book = $Excel->Workbooks->Open("C:/Temp/Book1.xls");

How do I write code to create a new file??? Please help.

 

[brigmar]

You're using the Open method, which opens an existing file.
You want to just Add a workbook, and then save it...

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;          # die on errors...

my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
       || Win32::OLE->new('Excel.Application', 'Quit');

## open Excel file
my $Book = $Excel->Workbooks->Add();

## Prove you did it
$Book->Worksheets("Sheet1")->{Name} = "Created With Perl";

## and now save it
$Book->SaveAs("c:/scratch/temp.xls");

 

[perl8rookie]

Thanks!!! That was easy.