--- 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;
     }
 
                 }
[download]

--- fudge4    2012-10-08 02:21:58.968750000 -0700
+++ fudge5    2012-10-08 02:21:55.468750000 -0700
@@ -143,12 +143,21 @@
     }
 
 
-        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 }){
+        for my $col (
+            qw{
+            13 14 15
+            17 18
+            20 21 22 23 24 25 26 27
+            32 33 34 35 36 37 38 39
+            }
+          )
+        {
             if ( my $val = eval { $Sheet->Cells( $row, $col )->{Value
+} } ) {
                 push @prod, $val;
             }
         }
 
+
                 }
             }
         }
[download]

--- fudge7    2012-10-08 01:40:55.031250000 -0700
+++ fudge8    2012-10-08 01:47:28.906250000 -0700
@@ -5,7 +5,7 @@
 use strict;
 use warnings;
 use Win32::OLE qw(in with);
-use Win32::OLE::Const 'Microsoft Excel';
+#~ use Win32::OLE::Const 'Microsoft Excel';
 use Win32::OLE::Variant;
 use Win32::OLE::NLS qw(:LOCALE :DATE);
 use List::MoreUtils qw(natatime);
@@ -37,7 +37,6 @@
 my $counti;  #used to count the excelfiles
 my $usefile; #The file that is being used
 my @recID;   #an array of ID's for the worksheets
-my $ID;      #The actual ID being pushed to the array
 my $val;     #A test value that is used to test whether a row should 
+be included
 my @right
   ; #The first of the arrays that will be filled during the process a
+nd will be further disected later
@@ -59,20 +58,16 @@
 #####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) {
-        my $Sheet = $Book->Worksheets($r);
-        $ID = $Sheet->{Name};
-        push @recID, $ID;
+#~     foreach my $r (1) {
+    {
+        my $Sheet = $Book->Worksheets( 1 );
+        push @recID, $Sheet->{Name};
         print "Worksheet name is $Sheet->{Name}\n";
-        ##work on each row and column
         my $Tot_Rows = $Sheet->UsedRange->Rows->{'Count'};
         my $Tot_Cols = $Sheet->UsedRange->Columns->{'Count'};
+        my $firstCol = eval { $Sheet->Cells( 1, 1)->{'Value'} }
 
-#Extract the necessary information from the rows and columns and plac
+es them in three arrays @right @legal and @prod
-
-            if( my $firstCol = eval { $Sheet->Cells( 1, 1)->{'Value'}
+ }
-                and $firstCol =~ /^\d{10}$/ 
-            )
+        if(  defined $firstCol and $firstCol =~ /^\d{10}$/  )
             {            
                 push @right, $firstCol;
                 push @legal, $firstCol;
@@ -127,7 +122,6 @@
 
             }
         }
-    }
     $Book->Close;
 }
 
@@ -345,7 +339,7 @@
 
 
 sub ValueTargetCols {
-    my( $sheet, $targets, $row, $cols ) = @_;
+    my( $sheet, $targets, $rows, $cols ) = @_;
     for my $col ( @$cols )
     {
         for my $row( @$rows )
[download]