I am trying to read an Excel workbook with multiple worksheets. While running the script it is coming as can't call method worksheets on an undefined value.Please help me how to sort out
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
# $Win32::OLE::Warn = 3; # die on er
+rors...
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application', 'Quit'); # get alread
+y active Excel
# applicatio
+n or open new
$Book = $Excel->Workbooks->Open("C:/perlpractice/FU_HMI_List.xlsm
+"); # open Excel file
$Sheet = $Book->Worksheets(3);
# select worksheet number 1
$array = $Sheet->Range("B1:E40")->{'Value'}; # get the cont
+ents
$Book->Close;
$i=0;
$j=0;
foreach $ref_array (@$array) { # loop through
+ the array
$i++;
$j=0;
foreach $scalar (@$ref_array) {
$AOA[$i][$j]="$scalar";
$j++;
print $j;
}
}
print "$AOA[1][1]";