Spaltenbreite mit Spreadsheet::ParseExcel::SaveParser (gelöst) (Allgemeines zu Perl)

[thread]16040[/thread]

Spaltenbreite mit Spreadsheet::ParseExcel::SaveParser [gelöst]

Leser: 18

Articles: hide open all | hide show old branches

+3 replies

roli

2011-03-07 17:05

User since
2004-12-31
424 Artikel
BenutzerIn
[default_avatar]

Hi,

irgendwie habe ich vermutlich ein Brett vor dem Kopf, aber ich finde die Ursache einfach nicht.
Ich möchte gerne die Spaltenbreite in einer Excel Datei einstellen, erhalte aber immer die Meldung:

Code: (dl )

Can't locate object method "set_column" via package "Spreadsheet::ParseExcel::SaveParser::Worksheet" at dummy.pl line 25.

Hier des Script dummy.pl

Code (perl): (dl )

use strict;
use warnings;
use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;

my $xls_file = "./kaese.xls";
my $max_zeile_zusammenfassung = 0;
my $workbook;
my $ws_zusammenfassung;

#Wenn die Datei noch nicht existiert, wird sie hier angelegt
if ( !-f $xls_file ) {
  $workbook           = Spreadsheet::WriteExcel->new($xls_file);
  $ws_zusammenfassung = $workbook->add_worksheet('Zusammenfassung');
  $ws_zusammenfassung->set_column( 'A:A', 45 );
  $ws_zusammenfassung->set_column( 'B:B', 90 );
  $workbook->close() or die "Error closing file: $!";
}
undef $workbook;
undef $ws_zusammenfassung;

$workbook = new Spreadsheet::ParseExcel::SaveParser->Parse($xls_file);
$ws_zusammenfassung = $workbook->worksheet('Zusammenfassung');
$ws_zusammenfassung->set_column( 'A:A', 10 );
$workbook->SaveAs($xls_file);

Warum kann ich in Zeile 16 die Spaltenbreite setzen, aber nicht mehr in Zeile 25? Ok, einmal ist's Spreadsheet::WriteExcel, einmal Spreadsheet::ParseExcel::SaveParser, aber SaveParser kann das ja in anderen Beispielen die ich gefunden habe ja auch.

Danke

Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2

+2 replies

Taulmarill

2011-03-07 17:51

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

SaveParser kann das (noch) nicht, da Spreadsheet::ParseExcel::SaveParser::Worksheet von Spreadsheet::ParseExcel::Worksheet abgeleitet ist und nur einige wenige Funktionen bietet (siehe CPAN). Das Spreadsheet::WriteExcel::Worksheet Objekt, an dessen Funktion du ran willst, wird erst beim Speichern angelegt, da kommst du also nicht ran.

Wenn du ganz mutig bist, könntest du mal schauen, ob du über undokumentierte Wege ran kommst. Da würde ich aber von abraten.

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

roli

2011-03-07 18:09

User since
2004-12-31
424 Artikel
BenutzerIn
[default_avatar]

Hi Taulmarill,

2011-03-07T16:51:16 Taulmarill
Das Spreadsheet::WriteExcel::Worksheet Objekt, an dessen Funktion du ran willst, wird erst beim Speichern angelegt, da kommst du also nicht ran.

Das war's, das ist der Unterschied zwischen den Beispielen die ich hatte bei denen es geht, und meinem Code. So geht's:

Code (perl): (dl )

use strict;
use warnings;
use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;

my $xls_file                  = "./kaese.xls";
my $max_zeile_zusammenfassung = 0;
my $workbook;
my $ws_zusammenfassung;

#Wenn die Datei noch nicht existiert, wird sie hier angelegt
if ( !-f $xls_file ) {
    $workbook           = Spreadsheet::WriteExcel->new("./template.xls");
    $ws_zusammenfassung = $workbook->add_worksheet('Zusammenfassung');
    $ws_zusammenfassung->set_column( 'A:A', 45 );
    $ws_zusammenfassung->set_column( 'B:B', 90 );
    $workbook->close() or die "Error closing file: $!";
}
undef $workbook;
undef $ws_zusammenfassung;

my $parser   = Spreadsheet::ParseExcel::SaveParser->new();
my $template = $parser->Parse('./template.xls');

$workbook = $template->SaveAs($xls_file);

# Get the first worksheet (it already exists and doesn't need to be created).
my $worksheet = $workbook->sheets(0);

$worksheet->set_column( 'A:A', 10 );
$worksheet->set_column( 'B:B', 20 );
$worksheet->write( 'B1', 'This column is wider' );

Danke

Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2

View all threads created 2011-03-07 17:05.