--- fudge3 2012-10-08 02:22:02.328125000 -0700
+++ fudge4 2012-10-08 02:21:58.968750000 -0700
@@ -142,115 +142,11 @@
push @prod, $val;
}
- if ( my $val = eval { $Sheet->Cells( $row, 13 )->{Value} } ) {
+ for my $col ( qw{ 13 14 15 17 18 20 21 22 23 24 25 26 27 32 3
+9 32 33 34 35 36 37 38 39 }){
+ if ( my $val = eval { $Sheet->Cells( $row, $col )->{Value
+} } ) {
push @prod, $val;
}
-
- #same
- if ( my $val = eval { $Sheet->Cells( $row, 14 )->{Value} } ) {
-
- push @prod, $val;
- }
-
- #same
- if ( my $val = eval { $Sheet->Cells( $row, 15 )->{Value} } ) {
-
- push @prod, $val;
- }
-
- #same
- if ( my $val = eval { $Sheet->Cells( $row, 17 )->{Value} } ) {
-
- push @prod, $val;
- }
-
- #same
- if ( my $val = eval { $Sheet->Cells( $row, 18 )->{Value} } ) {
-
- push @prod, $val;
- }
-
- #same
- if ( my $val = eval { $Sheet->Cells( $row, 20 )->{Value} } ) {
-
- push @prod, $val;
- }
-
- #same
- if ( my $val = eval { $Sheet->Cells( $row, 21 )->{Value} } ) {
-
- push @prod, $val;
- }
-
- #same
- if ( my $val = eval { $Sheet->Cells( $row, 22 )->{Value} } ) {
-
- push @prod, $val;
- }
-
- #same
- if ( my $val = eval { $Sheet->Cells( $row, 23 )->{Value} } ) {
-
- push @prod, $val;
- }
-
- #same
- if ( my $val = eval { $Sheet->Cells( $row, 24 )->{Value} } ) {
-
- push @prod, $val;
- }
-
- #same
- if ( my $val = eval { $Sheet->Cells( $row, 25 )->{Value} } ) {
-
- push @prod, $val;
- }
-
- #same
- if ( my $val = eval { $Sheet->Cells( $row, 26 )->{Value} } ) {
-
- push @prod, $val;
- }
-
- #same
- if ( my $val = eval { $Sheet->Cells( $row, 27 )->{Value} } ) {
-
- push @prod, $val;
- }
-
- #32-39 production data
- if ( my $val = eval { $Sheet->Cells( $row, 32 )->{Value} } ) {
-
- push @prod, $val;
- }
- if ( my $val = eval { $Sheet->Cells( $row, 33 )->{Value} } ) {
-
- push @prod, $val;
- }
- if ( my $val = eval { $Sheet->Cells( $row, 34 )->{Value} } ) {
-
- push @prod, $val;
- }
- if ( my $val = eval { $Sheet->Cells( $row, 35 )->{Value} } ) {
-
- push @prod, $val;
- }
- if ( my $val = eval { $Sheet->Cells( $row, 36 )->{Value} } ) {
-
- push @prod, $val;
- }
- if ( my $val = eval { $Sheet->Cells( $row, 37 )->{Value} } ) {
-
- push @prod, $val;
- }
- if ( my $val = eval { $Sheet->Cells( $row, 38 )->{Value} } ) {
-
- push @prod, $val;
- }
- if ( my $val = eval { $Sheet->Cells( $row, 39 )->{Value} } ) {
-
- push @prod, $val;
}
}
--- fudge8 2012-10-08 01:47:28.906250000 -0700
+++ fudge9 2012-10-08 01:48:45.046875000 -0700
@@ -55,17 +55,15 @@
print "$workfile\n";
my $Book = $Excel->Workbooks->Open($workfile);
-#####Work on each sheet in the workbook
-#####This is the number of worksheets in the workbook
my $sheetcnt = $Book->Worksheets->Count();
-#~ foreach my $r (1) {
+#~ foreach my $r ( 1 .. $sheetcnt ) {
{
my $Sheet = $Book->Worksheets( 1 );
push @recID, $Sheet->{Name};
print "Worksheet name is $Sheet->{Name}\n";
my $Tot_Rows = $Sheet->UsedRange->Rows->{'Count'};
my $Tot_Cols = $Sheet->UsedRange->Columns->{'Count'};
- my $firstCol = eval { $Sheet->Cells( 1, 1)->{'Value'} }
+ my $firstCol = eval { $Sheet->Cells( 1, 1)->{'Value'} };
if( defined $firstCol and $firstCol =~ /^\d{10}$/ )
{