Use Spreadsheet::WriteExcel; #声明使用此模块
My $workbook = Spreadsheet::WriteExcel->new(‘perl.xls’); #创建工作组文件
$worksheet = $workbook->add_worksheet(); #创建工作表
$worksheet->write(‘A1’,’Hi Exce!’); #在单元格A1上写
Worksheet->write_comment(‘C3’,’comment’, author=>’ericlee’,visible=>0); #添加单元格C3的注释,隐性的方式显示,添加注释批注者)
$worksheet->data_validation(‘B3’,
{
Validate => ‘integer’,
Criteria => ‘>’,
Value => 100,
}); #给单元格B3添加书写条件,必须是整数而且大于100
$worksheet->data_validation(‘B5:B9’,
{
Validate => ‘list’,
Value => [‘open’,’high’,’close’],
} #给单元格B5至B9添加下拉按钮。
$worksheet3->Activate(); #用于在多工作表中显示那个工作表
$worksheet->set_column(0,0,20); #用于设置A1表格的宽度
$worksheet-> set_selection(0,1); #用于打开默认所在单元格
$worksheet2->hide(); #用于在多工作表中隐藏工作表2。
$worksheet->protect(‘passwd’); #用于保护工作表的修改
$worksheet->autofilter(0,0,10,3); #用于设置单元格的筛选按钮。
$worksheet->keep_leading_zeros(); #用于保留单元格输入前面的’0’.
关于单元格式:
$format = $workbook->add_format(
Border => 6,
Valign => ‘vcenter’,
Align => ‘center’
)
$format->set_color(‘blue’); #设置字的颜色
$format->set_bg_color(‘green’); #设置单元格的颜色
关于字符:
Use Encode ‘decode’;
My $string = ‘测试’;
$string = decode(gb2312,$string);
关于单元格的标识:
两种方式显示比如显示A1:(0,0) 或者 (A1)
关于调用函数计算的示例:
$worksheet->write('A5','=SUM(A2:A4)');
perl操作excel
最新推荐文章于 2021-04-29 09:16:17 发布