如何使用电子表格：：ParseExcel创建工作表的新副本

假设我有一个template.xls，只有一张纸

我想生成一个包含许多工作表的新xls，每个工作表都使用template.xls中的工作表作为模板

在我看来，只能用它拥有的一张图纸创建一个新的xls并对其进行修改，如何在新的xls中对图纸进行新的复制

我尝试了以下代码，但没有成功

my $parser    = new Spreadsheet::ParseExcel::SaveParser;
my $template  = $parser->Parse('template.xls');

my $workbook  = $template->SaveAs('new.xls');
push @{$workbook->worksheets()}, $workbook->sheets(0);
$workbook->close();

我也有同样的问题。 如果您在windows上，则可以使用ole

如果没有，我没有找到合适的perl解决方案，除了解析工作表并从解析的数据一次又一次地创建相同的工作表

如果您熟悉java，可以使用ApachePOI库