Excel::Writer::XLSX设置优化()仅写入数字数据

在中写入数字或字符串应该不会有问题 set_optimization() 模式事实上有 several test cases just like that .

我用一些样本数据运行了您程序的一个变体,结果显示正确。

#!/usr/bin/perl -w

use strict;
use Excel::Writer::XLSX;

my $workbook = Excel::Writer::XLSX->new('test.xlsx');
$workbook->set_optimization();

my $worksheet = $workbook->add_worksheet();


my @header_values = ( 1, 2, 3, 'foo', 'bar', 6, 7 );
my $header_cnt    = 0;

for my $header_cell (@header_values){
    $worksheet->write(0, $header_cnt, $header_cell);
    $header_cnt++;
}

$workbook->close();

请注意,字符串向左对齐,数字向右对齐,这表明Excel将它们视为字符串和数字数据。

此外,如果您使用 write_string() 方法,则在任何一种情况下都将获得一个字符串。

您遇到的问题可能是,在优化模式下,您需要按行-列顺序写入数据,即该行中的每一行和每一列都必须按顺序写入。

例如,如果在For循环之后添加这些行,则第二个数据将不会在优化模式中显示:

$worksheet->write('A2', "This is fine");
$worksheet->write('A1', "I'm too late.");

为了减少内存使用,使用了set_optization()方法,它不会将数据限制为数字。它既可以处理数字,也可以处理字符串。

并在每一行中循环

foreach my $record (@records){
  $row++;
  $col = 0;

  foreach my $data (@{$record}){
      $worksheet->write($row,$col,$data);       
      $col++;
  }
}   

请参阅此链接中的“Write_largeData_XLSX.pl” https://github.com/AarthiRT/Excel_Writer_XLSX 了解更多详细信息。