Problem faced while creating Excel file !!!!

[vijayarl]

Hi Everyone,

Am trying to collate the individual xls files into a single xls file.i have written this code.

use strict;
use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel::Big;
 
my $consol_rows=0;
my $token;
my $file_name;
 
my $config_file = "C:\\Perl_Tools_ICON_PROD_SVAP_2_15\\config.txt";
 
my %PARAMS;
my $CONFIG = "";
my $MMSS = "";
 
# parse the configuration text file entries into PARAMS associative array
open (CONFIGFILE, "$config_file") or die;
 
while (<CONFIGFILE>) {    
    chomp;
    if($_!~ /QUIT_TXT/ ){
 
            if ( ! ( $_ =~ /^#/ )) {
               $CONFIG = $CONFIG . $_ . " ";
 
        }
    }
    else{
        last;        
        }
 
    }
close (CONFIGFILE);
 
%PARAMS = split(/\s+/, $CONFIG);
 
# Build an array of the stats type to be collated
my @stat_type=split(/:/, $PARAMS{COLLATE_STAT_TYPES});
 
  # for each of the stats type, read the xls of each hour and write into a consolidated xls.
  foreach my $stat_type_token (@stat_type){
 
            my $con_wb = Spreadsheet::WriteExcel::Big->new("$PARAMS{INPUT_FILE_BASE_PATH}$stat_type_token.xls");
            my $con_excel = $con_wb->add_worksheet();
 
            my $con_row = 0;
 
                my @stat_files=split(/:/, $PARAMS{COLLATE_YYYYMMDD_HH});
 
                  foreach my $stat_files_token (@stat_files) {
 
                      my $source_xl_name = $PARAMS{INPUT_FILE_BASE_PATH}.$stat_type_token."-".$stat_files_token.".xls";
                                        my $source_excel = new Spreadsheet::ParseExcel;
                    my $source_book = $source_excel->Parse($source_xl_name) or die "Could not open source Excel file $source_xl_name !";
 
                    my $source_sheet = $source_book->{Worksheet}[0];
 
 
                    print "Processing $stat_type_token-$stat_files_token xls please wait\n";
                    foreach my $row_index ($source_sheet->{MinRow} .. $source_sheet->{MaxRow}) {
 
                              my $con_col = 0;
 
                              foreach my $col_index ($source_sheet->{MinCol} .. $source_sheet->{MaxCol}) {
 
                                       my $source_cell = $source_sheet->{Cells}[$row_index][$col_index];
 
 
                                               if (defined $source_cell) {
                                                  $con_excel->write($con_row, $con_col, $source_cell->Value );
                                               }
 
 
 
                                        $con_col++;
 
                              }
 
                             $con_row++; 
                             $consol_rows++;
 
                             # max row count in Excel is 65536 rows.
                             # open a new sheet if the max row is reached.
                             if ( $consol_rows > 65000 ) {
 
                                           $consol_rows = 0;
                                           $con_row = 0;
                                           $con_col = 0;
                                           $con_excel = $con_wb->add_worksheet();
                                       }
 
 
                    }
 
        }    
 
      $con_wb->close();
 
 
  }
 
  print "Processing Done. Time to analyse\n";
 
 

<b>Problem is :</b>
with this line (line no 54)

my $source_book = $source_excel->Parse($source_xl_name) or die "Could not open source Excel file $source_xl_name !";
 

As soon this line get executed, system stops execution & give the message that it could not open the file<br>
but the required file is getting created with just the file name.xls not with full file name-date.xls

ex: it creates sar-u.xls file but not with sar-u-20080118-1800.xls<br>

i don't know where am doing mistake in this line<br>

my $source_xl_name = $PARAMS{INPUT_FILE_BASE_PATH}.$stat_type_token."-".$stat_files_token.".xls";
 

can anyone help me why is it not creating the file with full name ???<br>

Regards,<br>
Vijayarl

[KevinADC]

print the scalars in question to the screen while the program runs to make sure they are defined with the correct values.

[vijayarl]

print the scalars in question to the screen while the program runs to make sure they are defined with the correct values.

Thanks Kevin.... it worked now !!!!! :-)

Vijayarl