Alternatively, do it yourself ...

use Text::CSV_XS;

my $csv = Text::CSV_XS->new ({ binary => 1, eol => "\n", auto_diag => 
+1 });
open my $fh, ">", "selection.csv" or die "selection.csv: $!\n";

# Do you really mean all worksheets?
foreach my  $ws ($workbook->worksheets ()) {
    my ($row_min, $row_max) = $ws->row_range ();
    foreach my $row ($row_min .. $row_max) {
        $csv->print ($fh, [ map {
            my $c = $ws->get_cell ($row, $_);
            $c ? $c->value () : undef;
            } 0, 2, 13..47 ]);
        }
    }
[download]