Excel uvoz slik

use 5.012;
use strict;
use warnings;
use Spreadsheet::WriteExcel;

use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;


# Create a new Excel workbook - add some test image names
{
  my $wb = Spreadsheet::WriteExcel->new('perl-test.xls');
  # Add a worksheet
  my $ws = $wb->add_worksheet('Sheet1');

  # Write a formatted and unformatted string, row and column notation.
  my $col = my $row = 0;
  for (1..3) {
    $ws->write($row++, $col, 'pic1.jpg');
    $ws->write($row++, $col, 'pic2.jpg');
    $ws->write($row++, $col, 'pic3.jpg');
  }
  $wb->close();
}



# Create a new Excel workbook  - RESULT
my $wbn = Spreadsheet::WriteExcel->new('perl-test-img.xls');
# Add a worksheet
my $wsn = $wbn->add_worksheet('Sheet1');


# Open the template with SaveParser
my $parser   = new Spreadsheet::ParseExcel::SaveParser;
my $template = $parser->Parse('perl-test.xls');

my $sheet    = 0;
my $row      = 0;
my $col      = 0;

# Get the format from the cell
my $frmt  = $template->{Worksheet}[$sheet]
                     ->{Cells}[$row][$col]
                     ->{FormatNo};

my $worksheet = $template->worksheet(0);
my $value;
my $cell = $worksheet->get_cell($row, $col);
while (defined $cell && $cell->value()) {
  my $filename = $value = $cell->value();

  #insert_image($row, $col, $filename, $x, $y, $scale_x, $scale_y)
  if (-f $filename) {
    say "$row: $value; added";
    $wsn->write($row, $col, $filename, $frmt);
    $wsn->insert_image($row, $col+1, $filename);
  } else {
    my $error= "Picture: $filename does not exists";
    say $error;
    $wsn->write($row, $col, $filename, $frmt);
    $wsn->write($row, $col+1, $error, $frmt);
  } #if
  $cell = $worksheet->get_cell(++$row, $col);
} # while

$wbn->close();