New to Perl (== please bear with me).
All I need is a code to read a 1-sheet Excel-2010 file.
I know how many columns there are (3 of them) but don't know how many rows.
Perl 5.14 on Win-XP. My .PL and XLSX are on the same folder.
So I tried :
use strict;
use warnings;
use OLE;
use Win32::OLE::Const "Microsoft Excel";
my $MY_EXCEL="E:\\readexcel.xlsx";
my $excel = CreateObject OLE "Excel.Application";
my $workbook = $excel -> Workbooks -> Open("$MY_EXCEL");
my $Sheet -> Range ("A1") -> {Value};
print "S H E E T : $Sheet\n";
$excel-> Quit;
But Perl called and said:
Useless use of hash element in void context at E:\readexcel.pl line 8.
Can't call method "Range" on an undefined value at E:\readexcel.pl lin
+e 8.
I searched and searched, in the Monastery and in the Great G, but to no avail.
Pls see if you can help here.
Many thanks.
I have just replied to "daskar" the following:
Oh my goodness! I T - W O R K S ! ! ! !
My Perl is reading the XLSX.
I'm going to convert to Monkeism right now.
Thank you all.
I'm going to read all the docs per your advise.
Hooray for the monks!
My code now is :
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application', 'Quit');
my $Book = $Excel->Workbooks->Open("E:\\readexcel.xlsx");
my $Sheet = $Book->Worksheets(1);
my $array = $Sheet->Range("A1:C3")->{'Value'};
$Book->Close;
foreach my $ref_array (@$array) {
foreach my $scalar (@$ref_array) {
print "$scalar\t";
}
print "\n";
}