Two things:
use strict; use Spreadsheet::ParseExcel; my $excel = Spreadsheet::ParseExcel::Workbook->Parse("C:\\au.xls"); die "Parse failed" unless defined $excel; my $excel_file_url; #start looping the Excel sheet foreach my $sheet (@{$excel->{Worksheet}}) { $sheet->{MaxRow} ||= $sheet->{MinRow}; print "$sheet->{MaxRow}\t$sheet->{MinRow}\n"; foreach my $row ($sheet->{MinRow} .. $sheet->{MaxRow}) { print "Row: $row\n"; #looping for each row if ($row > 1) { #get the file url path from excel sheet at corresponding +row,+ col 0 my $cell_value=$sheet->{Cells}[$row][0]; $excel_file_url=$cell_value->{Val}; print $excel_file_url; } } }
In reply to Re: parsing excel sheet from a perl program
by jrsimmon
in thread parsing excel sheet from a perl program
by rahulgsp83
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |