perl操作excel

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)');