I'm guessing from your code that you're using Spreadsheet::WriteExcel. The only way I can see that error happening is if the sheet name snuck into a formula. What I would suggest is to check for it explicitly, something like this:

$value = $storage_book->{$sheet}->{$row}->{$col};
if ($value =~ /sales!/i)
{
    print "The culprit cell is at $row:$col\n";
}
$dest_sheet->write($row, $col, $value);
[download]

You should really list the name of the module so we can look it up on CPAN to check the syntax :-).

Presumably something is sanity checking what it's writing out; do you have a sheet called `Sales' in the source?

Put debugging statements in; print to standard output the row column and value for each iteration, and you will see where in the source spreadsheet the problematic value is. The Perl debugger (see perldebug) is an invaluable tool for hunting down messages that might not make any sense on first inspection.

Otherwise, there's not enough code here to help - how are you making sure that `Except for cells with formulas (in this case text) that link to another worksheet' - do you do that in your code? Let's see the line of code! Perhaps that's the problem.

Good Luck,
Bug Powder Dust and $_.

Spreadsheet::ParseExcel::SaveParser is a combination of Spreadsheet::ParseExcel and Spreadsheet::WriteExcel.

Spreadsheet::WriteExcel requires that you add a worksheet to a workbook before you can reference it in a formula. This is due to the fact that it has to convert the literal sheet name to an index.

However, Spreadsheet::ParseExcel::SaveParser iterates through the worksheets one at a time rewriting any data that it finds. Due to the limitation stated above this methodology fails for formulas.

Here is a quick and dirty patch to fix it. In SaveParser.pm at line 111 change:

    for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) {
        my $oWkS = $oBook->{Worksheet}[$iSheet];
        my $oWrS = $oWrEx->addworksheet($oWkS->{Name});
[download]

to:

    for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) {
        my $oWkS = $oBook->{Worksheet}[$iSheet];
        $oWrEx->addworksheet($oWkS->{Name});
    }
        
    for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) {
        my $oWkS = $oBook->{Worksheet}[$iSheet];
        my $oWrS = ($oWrEx->sheets())[$iSheet];
[download]

--
John.

use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;
[download]

foreach my $sheet (keys %$storage_book){
  my $dest_sheet = $dest_book->addworksheet($sheet);
  foreach my $row (keys %{$storage_book->{$sheet}}){
    foreach my $col (keys %{$storage_book->{$sheet}->{$row}}){
      if ($sheet eq "Sales") {
        if ($storage_book->{$sheet}->{$row}->{$col} eq 'Agent') {
          $getsales=1;  #next row start getting sales
        }
        elsif ($storage_book->{$sheet}->{$row}->{$col} eq 'Total') {
          $getsales=0; #stop getting sales
        }
        #GET THE AGENTS NAME
        if (($getsales ==1) && ($col == 0)) {
         #performs a sql query here
        }
      }
      if (($getsales == 1) && ($col == 4) && ($sheet eq "Sales") && ($
+agentname eq "Agent")) {
        $dest_sheet->write($row, $col, $exchange_rate);
      }
      elsif (($getsales == 1) && ($col == 2) && ($sheet eq "Sales")) {
        if ($agentname eq "Agent") {
          $dest_sheet->write($row, $col, $storage_book->{$sheet}->{$ro
+w}->{$col});
        }
        else {
           $dest_sheet->write($row, $col, $cdnsales);
        }
      }
      elsif (($getsales == 1) && ($col == 3) && ($sheet eq "Sales")) {
        if ($agentname eq "Agent") {
          $dest_sheet->write($row, $col, $storage_book->{$sheet}->{$ro
+w}->{$col});
        }
        else {
          $dest_sheet->write($row, $col, $usdsales);
        }
      }
      else {
        if (($row == 0) && ($col == 1) && ($sheet eq "Sales")) {
          $dest_sheet->write($row, $col, $startdate);
        }
        elsif (($row == 0) && ($col == 3) && ($sheet eq "Sales")) {
          $dest_sheet->write($row, $col, $today);
        }
        else {  ###HERE IS LINE 265
          $dest_sheet->write($row, $col, $storage_book->{$sheet}->{$ro
+w}->{$col});
        }
      }
    } # foreach column
  } # foreach row
} # foreach sheet

$dest_book->close();
[download]

It looks like my guess on the other node was wrong. :-)

However, the solution is the same, iterate through the worksheets twice. The first time add the worksheets and the second time write the data:

    foreach my $sheet (keys %$storage_book){
      $dest_book->addworksheet($sheet);
    }

    my $index = 0;
    foreach my $sheet (keys %$storage_book){
      my $dest_sheet = ($dest_book->sheets())[$index++];

    ...
[download]

--
John.

Absolutely excellent. This did it, and now I understand these Excel modules a bit more. Thank you for your wonderful and timely response. Perlmonks will definitely be my new forum.

-----------------------------------
--the good, the bad and the physi--
-----------------------------------