perl - 使用 Spreadsheet::XLSX，如何将格式从一个工作表复制到另一个工作表？

Question

我在 Mac OSX Lion 上使用 Perl v5.12.3。我正在使用最新版本的 Spreadsheet::XLSX 模块。如何将现有工作表行、列和单元格格式从一个 XLSX 文件复制到新文件？对于细胞，我目前正在尝试

                        my $cell = $oldWorksheet -> {Cells} [$row] [$col];
                        ...
                        $newWorksheet->write( $newWorksheetCurRow, $col, $val, $cell->{Format} )

但它不起作用。例如，背景颜色没有被复制，我什至不认为“{Format}”是单元格的有效属性。

Answer 1

Spreadsheet::XLSX 不读取单元格格式，因此无法复制这样的工作表格式。

据我所知，除了从 XLSX 文件读取格式的 Win32::OLE 之外，没有任何 Perl 模块。

我正在研究一个，但格式支持需要几个月的时间。

Answer 2

如果它像 SpreadSheet::WriteExcel/ParseExcel，那么您必须手动完成所有操作。也就是说，在写入端创建一个新格式，然后从解析端复制格式的所有属性。