我在合并两个动态创建的Excel 2007文件时遇到问题。 我的文件是使用Solaris上的Perl模块 Excel :: Writer :: XLSX 创建的。
假设我有两个文件,fileA.xlsx和fileB.xlsx。现在我想将它们合并在一起(fileA + fileB => fileC)。 目前无法将追加 fileB附加到fileA。这是Excel :: Writer :: XLSX的限制,它只能创建新文件。
即使在Excel 2003中,也可以在Excel 2007,LibreOffice 3(在Linux上)和(在Microsoft的xlsx到xls转换器的帮助下)无怨无悔地打开.xlsx文件。
但是,当我用perl打开它们时(使用模块 Spreadsheet :: XLSX ),标题行的内容(第0行)总是被跳过;
# ...
foreach my $infile (@infiles) {
my $excel = Spreadsheet::XLSX->new($infile);
my $i = 0;
foreach my $sheet ( @{ $excel->{Worksheet} } ) {
printf( "Infile '$infile', Sheet $i: %s\n", $sheet->{Name} );
$sheet->{MaxRow} ||= $sheet->{MinRow};
print "$infile: " . $sheet->{MaxRow} . " rows\n";
print "data starts at row: " . $sheet->{MinRow} . ". \n";
next unless $i == 0; # only copy data from the first sheet (for speed)
my $start_row = $sheet->{MinRow};
foreach my $row ( $start_row .. $sheet->{MaxRow} ) {
$sheet->{MaxCol} ||= $sheet->{MinCol};
foreach my $col ( $sheet->{MinCol} .. $sheet->{MaxCol} ) {
my $cell = $sheet->{Cells}[$row][$col];
if ($cell) {
# do something with the data
# ...
# write to outfile
$excel_writer->sheets(0)->write($dest_row, $col, $cell->{Val} )
}
}
}
}
}
现在,此代码片段的输出始终为
data starts at row: 1.
但事实并非如此,它从第0行开始。如果我手动从row0读取数据,则$ cell未定义(尽管不应该)。
有趣的是,当我在Microsoft Excel中打开文件并进行简单更改时(例如,通过向标题行中的一个单元格值添加空格)并保存文件,然后找到标题行通过上面的代码。
data starts at row: 0.
顺便说一句,当我打开,更改,保存LibreOffice中的文件时,当我用上面的代码重新读取它们时,会有很多关于日期值的警告。 (因此,LibreOffice似乎稍微错误地保存了日期时间值。)
生成文件的代码如下所示(注意:某些vars是在此sub之外定义的):
sub exportAsXLS {
#require Spreadsheet::WriteExcel;
require Excel::Writer::XLSX;
my ( $data, $dir, $sep, @not2export ) = @_;
my $val;
my $EXCEL_MAXROW = 1048576;
return undef unless $data;
return "." unless scalar @$data > 0;
my $time = time2str( "%Y%m%d_%H%M%S", time() );
my $file = "$outdir/$dir/${host}_${port}-${time}.xlsx";
#my $workbook = Spreadsheet::WriteExcel->new($file);
my $workbook = Excel::Writer::XLSX->new($file);
$workbook->set_optimization();
my $worksheet = $workbook->add_worksheet();
# Set the default format for dates.
#my $date_formatHMS = $workbook->add_format( num_format => 'mmm d yyyy hh:mm AM/PM' );
#my $date_formatHMS = $workbook->add_format( num_format => 'yyyy-mm-ddThh:mm:ss.sss' );
my %formats;
$formats{date_HM} = $workbook->add_format( num_format => 'yyyy-mm-ddThh:mm' );
$formats{date_HMS} = $workbook->add_format( num_format => 'yyyy-mm-ddThh:mm:ss' );
$formats{num} = $workbook->add_format();
$formats{num}->set_num_format();
$formats{headline} = $workbook->add_format();
$formats{headline}->set_bold();
$formats{headline}->set_num_format('@');
# Format as a string. use the Excel text format @:
# Doesn't change to a number when edited
$formats{string} = $workbook->add_format( num_format => '@' );
$worksheet->set_row( 0, 15, $formats{headline} );
my $row = 0;
my $col = 0;
for ( my $r = -1 ; $r < @$data && $r < $EXCEL_MAXROW ; $r++ ) {
for ( my $i = 0 ; $i < @$column ; $i++ ) {
next if grep( $_ eq $column->[$i], @not2export );
my $val = $data->[$r]{ $column->[$i] };
my $t = int $type->[$i];
if ( $r < 0 ) {
#warn " type: $type->[$i] , ";
# Erste Zeile = Spaltennamen ausgeben
$worksheet->write_string( $row, $col++, $column->[$i], $formats{string});
#$worksheet->write_comment( 0, 0, "\x{263a}" ); # Smiley
#$worksheet->write( $row, $col++, $column->[$i], $formats{headline} );
} elsif ( ( $t == 11 ) or ( $t == 9 ) ) {
# 11 - Der Wert ist ein Datum, im SHORT Format, 9- long
$val = time2str( "%Y-%m-%dT%H:%M:%S", str2time( $data->[$r]{ $column->[$i] } ) );
$worksheet->write_date_time( $row, $col++, $val, $formats{date_HMS} );
} else {
$worksheet->write( $row, $col++, $val );
}
}
$col = 0;
$row++;
}
return $file;
}
文件之间的区别如下。
左边是Excel :: Writer :: XLSX生成的文件。右侧是MS Excel 2003在对标题行进行微不足道的更改后生成的文件。行标题数据被重构,外部化为不同的文件,sharedStrings.xml
看起来像这样。
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<sst xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" count="5" uniqueCount="5">
<si>
<t>SITE</t>
</si>
<si>
<t>LOG_DATE</t>
</si>
<si>
<t>KTZI201_WF_TEMPERATUR</t>
</si>
<si>
<t>KTZI300_TEMP_RESERVOIR</t>
</si>
<si>
<t>XPEDITION</t>
</si>
</sst>
如果.xlsx文件的格式如图片右半部分所示,则Spreadsheet :: XLSX可以读取标题,但在格式化时跳过标题行,如左半部分所示。
答案 0 :(得分:1)
当我针对此Excel :: Writer :: XLSX example program的输出运行程序时,它正确地报告第一行(row == 0)中的数据:
Infile 'a_simple.xlsx', Sheet 0: Sheet1
a_simple.xlsx: 10 rows
data starts at row: 0.
也许您应该仔细检查生成输入文件的程序。
另外,请确保您使用的是最新版本的Excel::Writer::XLSX。