Perl MIME :: Lite发送空的Excel文件

Question

我正在使用Spreadsheet :: WriteExcel在perl中创建一个excel文件。 我的代码是这样开始的

my $workbook = Spreadsheet::WriteExcel->new('map.xls');
my $worksheet = $workbook->add_worksheet('map');

将一些数据添加到workSheet

接着

$workbook->close() or die "Error closing file: $!";

但是我得到的Excel文件只包含一行错误信息

我的MIME附件代码是这样的

$msg->attach(
Type        => 'application/vnd.ms-excel',
Path        => $sNoticeFile,
Disposition => "attachment",
);

有人可以告诉我代码中缺少什么/错误吗？ 谢谢

Answer 1

我解决了这个问题。 我的行计数器未在正确的位置递增。 它总是将新数据从数据库写入第二行。

谢谢大家