在perl中使用Excel模块中的set_row

s4n0splo  于 2022-11-15  发布在  Perl
关注(0)|答案(1)|浏览(130)

我正在学习用perl脚本在Excel中编写。我正在使用set_row来增加单元格的高度。目前我正在使用below来增加高度

$worksheet->set_row(0,40);
            $worksheet->set_row(1,40);
            ...

有没有什么方法可以做到所有的行。也有没有可能增加不对称的高度。如第一行20,第二行40,第三行15等
提前致谢

x6yk4ghg

x6yk4ghg1#

要自动配置行高,可以将所有的高度信息存储在一个散列中,然后遍历散列键(即行号),并使用行号沿着散列中的相应值(即行高)调用set_row()方法。

my %row_height_map = (
    0   => 40,
    1   => 25,
    2   => 30
);

for my $row_number (keys %row_height_map) {
    $worksheet->set_row($row_number, $row_height_map{$row_number});
}

请注意,您也可以使用数组来存储值,但是使用哈希值,您可以任意地省略不希望修改的行号。

相关问题