Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re^4: Parsing multiple excel files in perl

by reaper9187 (Scribe)
on Oct 15, 2012 at 10:37 UTC ( #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); } }


Comment on Re^4: Parsing multiple excel files in perl
Download Code
Re^5: Parsing multiple excel files in perl
by marto (Bishop) 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
Node Status?
node history
Node Type: note [id://999064]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (14)
As of 2015-07-07 14:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (89 votes), past polls