OpenForum RSS: �� excel

�� excel (mustang92)

Wed, 18 Dec 2013 15:06:24 GMT

>[�� ]
> print "Value = ", $cell->value(),
> "\n";
>
> print "Indent = ", $format->{Indent}, "\n";
>
> print "\n";
> }
> }
> }
> __END__

��-��

�� excel (greenwar)

Fri, 04 Oct 2013 16:47:11 GMT

�� :
#!/usr/bin/perl -w

use strict;
use Spreadsheet::ParseExcel;

my $parser = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse('Book1.xls');

if ( !defined $workbook ) {
die $parser->error(), ".\n";
}

for my $worksheet ( $workbook->worksheets() ) {

my ( $row_min, $row_max ) = $worksheet->row_range();
my ( $col_min, $col_max ) = $worksheet->col_range();

for my $row ( $row_min .. $row_max ) {
for my $col ( $col_min .. $col_max ) {

my $cell = $worksheet->get_cell( $row, $col );
next unless $cell;

my $format = $cell->get_format();

print "Row, Col = ($row, $col)\n";
print "Value = ", $cell->value(), "\n";
print "Indent = ", $format->{Indent}, "\n";

print "\n";
}
}
}
__END__

�� excel (ACCA)

Fri, 04 Oct 2013 16:44:50 GMT

> upd: �� Spreadsheet::ParseExcel::Format
> � �� $format->{Indent}
> �� , �� ..

[code]
my ( $row_min, $row_max ) = $worksheet->row_range();
my ( $col_min, $col_max ) = $worksheet->col_range();
for (my $y=$row_min; $y<= $row_max; $y++) {
for (my $x=$col_min; $x<= $col_max; $x++) {
my $cell = $worksheet->get_cell($y, $x);
my $format = $cell->get_format();
print STDERR $format->{Indent},"\n";
}
}
[/code]

��-�� .

OpenForum RSS: �������� ������� excel

�������� ������� excel (mustang92)

�������� ������� excel (greenwar)

�������� ������� excel (ACCA)

OpenForum RSS: �� excel

�� excel (mustang92)

�� excel (greenwar)

�� excel (ACCA)