Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
my $wb = Win32::OLE->GetObject("z:\\data\\perl\\mogul\\sillysums2.xls"
+);
my $value = $wb->Sheets("Params")->Range("zReportTo")->{Value};
print "$value\n";

Select or download this

use strict;
use warnings;
...
my $value = $wb->Sheets("Params")->Range("zReportTo")->{Value};
print "$value\n";
$xl->Close;