Help for this page
my $Sheet = $Excel->{ActiveSheet};
use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Excel'; ... foreach my $cell(@{$array}){ print $cell->[0]."\n"; }