Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re^4: Parsing multiple excel files in perl

by reaper9187 (Scribe)
on Oct 15, 2012 at 10:37 UTC ( [id://999064]=note: print w/replies, xml ) Need Help??


in reply to Re^3: Parsing multiple excel files in perl
in thread Parsing multiple excel files in perl

I have mentioned in the post itself that i am using the Spreadsheet::ParseExcel module.
If you insist on having a look at the code: (This is jus a part of the entire code and works on just . I need to integrate multiple modules similar to the one below)

sub push_button2 { my $filename = $mw->getOpenFile( -title => 'Open File:', -defaultextension => '.xslx', -initialdir => '.' ); warn "Opened $filename\n"; open(MYFILE,$filename); # Text::Iconv is not really required. # This can be any object with the convert method. Or nothing. use Spreadsheet::ParseExcel; my $parser = Spreadsheet::ParseExcel->new(); my $workbook = $parser->parse($filename); if ( !defined $workbook ) { die $parser->error(), ".\n"; } $txt -> delete('1.0', 'end'); for my $worksheet ( $workbook->worksheets(0) ) { my ( $row_min, $row_max ) = $worksheet->row_range(); my ( $col_min, $col_max ) = $worksheet->col_range(); for my $row ( $row_min .. $row_max ) { for my $col(8) { my $cell = $worksheet->get_cell( $row, $col ); next unless $cell; if($worksheet->{Cells}[$row][8]->{Val} > 2) { if($worksheet->{Cells}[$row][21]->{Val} >75) { $txt -> insert('end', " $worksheet->{Cells}[$row][ +1]->{Val}\n"); $txt -> insert('end', "\n REASON: Other\n"); $txt -> insert('end', " DIAGNOSIS: Check the fault + definition\n\n"); } elsif($worksheet->{Cells}[$row][13]->{Val} > 50) { $txt -> insert('end', " $worksheet->{Cells}[$row][ +1]->{Val}\n"); $txt -> insert('end', " \nREASON: Low Signal Stren +gth\n"); $txt -> insert('end', " DIAGNOSIS: Check the fault + definition for troubleshooting\n\n"); } elsif($worksheet->{Cells}[$row][16]->{Val} >50) { $txt -> insert('end', " $worksheet->{Cells}[$row][ +1]->{Val}\n"); $txt -> insert('end', " \nREASON: Bad Quality Upli +nk/Downlink\n"); $txt -> insert('end', " DIAGNOSIS: Check the fault + definition for troubleshooting\n\n"); } } else {next;} } } close(MYFILE); } }

Replies are listed 'Best First'.
Re^5: Parsing multiple excel files in perl
by marto (Cardinal) on Oct 15, 2012 at 10:39 UTC

    "I have mentioned in the post itself that i am using the Spreadsheet::ParseExcel module."

    Actually, you updated your post after two people had to draw this information out of you, we wouldn't have had to ask otherwise.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://999064]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (4)
As of 2024-04-26 00:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found