您的位置:首页 > 其它

Perl Spreadsheet::WriteExcel 模块自动生成excel 文件

2016-01-03 11:40 483 查看
Spreadsheet::WriteExcel 是一个跨平台的生成excel文件的模块, 可以方便的设置单元格内容, 样式, sheet 的名称;

但是默认情况下中文会乱码, 需要用Encode模块进行编码转换;

#!/usr/bin/perl
use warnings;
use strict;
use Spreadsheet::WriteExcel;
use Encode qw/decode/;

my $excel_object = Spreadsheet::WriteExcel->new("test.xls");

# sheet1
my $sheet1 = $excel_object->add_worksheet("test_sheet");

# 设置格式
my $cell_fmt = $excel_object->add_format();
$cell_fmt->set_size('10');         # 字号
$cell_fmt->set_align('center');    # 对齐方式
$cell_fmt->set_font('Tahoma');     # 字体
$cell_fmt->set_bg_color('13');      # 背景色

# 填充内容
my $A1 = decode("utf8", "山西");
my $B1 = decode("utf8", "太原");
$sheet1->write("A1", $A1, $cell_fmt);
$sheet1->write("B1", $B1, $cell_fmt);

#关闭excel的对象
$excel_object->close();


这样以后就可以用脚本生成excel 文件了, 更详细的用法和参数可以查阅 http://search.cpan.org/~jmcnamara/Spreadsheet-WriteExcel-2.40/lib/Spreadsheet/WriteExcel.pm;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: