在Perl中编写Excel电子表格

我正在从Perl脚本编写一个Excel电子表格，并且如果没有数据存在，需要将特定行的行高设置为“0”。 这是我迄今为止所写的一些内容。 它基于文本文件编写数据，但如果该项目不在文本文件中，则会留下一个我想要消除的空行。 任何帮助表示赞赏。

my $file = 'forecast.txt'; open my $fh, '<', $file or die "Could not open '$file' $!\n"; while (my $line =<$fh>) { if (index($line, 'M1501235') != -1) { $worksheet->write(11,0, "M1501", $print2); $worksheet->write(11,1, "FUND TO FUND TRANSFERS", $print); $worksheet->write(11,2, "DES", $print); $worksheet->write(11,3, "0001", $print); $worksheet->write(11,4, "", $print); $worksheet->write(11,5, "NA", $print); $worksheet->write(11,6, "SEE RH", $print); } # else $worksheet->set_row (11, 0); if (index($line, 'M2201235') != -1) { $worksheet->write(12,0, "M2201", $print2); $worksheet->write(12,1, "BPS FUND BALANCE ERROR RPT", $print); $worksheet->write(12,2, "L&I", $print); $worksheet->write(12,3, "0010", $print); $worksheet->write(12,4, "", $print); $worksheet->write(12,5, "NA", $print); $worksheet->write(12,6, "2 COPIES 37", $print); } else $worksheet->set_row ($_, 0) for (0..11); elsif (index($line, 'M2301235') != -1) { $worksheet->write(13,0, "M2201", $print2); $worksheet->write(13,1, "BPS/ARC RECOCILIATION RPT/BPS CREDIT BALANCE RPT", $print); $worksheet->write(13,2, "L&I", $print); $worksheet->write(13,3, "0010", $print); $worksheet->write(13,4, "", $print); $worksheet->write(13,5, "NA", $print); $worksheet->write(13,6, "2 COPIES 37", $print); } } 

Answer 1

将行设置为隐藏而不是0会更好。

set_row有以下参数：

 set_row( $row, $height, $format, $hidden, $level, $collapsed ) 

第四个参数是一个标志，切换行的可见性。 任何不想显式设置的参数都可以作为undef传入

这意味着，你可以改变

 $worksheet->set_row ($_, 0) for (0..11); 

至

 $worksheet->set_row ($_, undef,undef,1) for (0..11); 

对于Excel::Writer::XLSX和Spreadsheet::WriteExcel set_row作用相同。