perl处理Excel(跨平台)

2019年6月13日 356次阅读来源: 潘高PG

前言

更多内容，请访问我的个人博客。

前言

用perl处理excel有两种流行的模块：一种是 win32:OLE 模块，优点是功能强大，在excel上能做的事情用这个模块都能做，缺点是无法跨平台，必须在win系统上使用且必须安装office软件；另一种是 Spreadsheet 模块，优点是跨平台，不依赖系统和软件，缺点是功能不是很多，但基本功能都能实现。

如果在win平台处理excel，建议使用 win32:OLE 模块（教程传送门），本文主要讲解 Spreadsheet 模块的使用方法。

了解

从 Spreadsheet::ParseExcel 和 Spreadsheet::WriteExcel 的官方资料中我们可以知道：

Spreadsheet::ParseExcel

是用于提取excel信息
仅支持Excel 95-2003格式

Spreadsheet::WriteExcel

是用于新建excel信息
仅支持Excel 97-2007格式

也就是说，如果想更好的支持 xlsx 格式的excel需要用到 Spreadsheet::ParseXLSX 和 Excel::Writer::XLSX 模块。

另外， Spreadsheet::ParseExcel::SaveParser 可以支持在已存在的 xls 表中修改数据，但是支持效果远没有 win32:OLE 模块强大，修改之后的表格会丢失部分不支持的宏命令和表格等，最遗憾的是仅支持 xls ，并不支持 xlsx 。

安装模块

在终端中输入 sudo perl -MCPAN -e "install 'Spreadsheet::ParseExcel'" ，回车，如下图：

《perl处理Excel(跨平台)》 image

若出现如下图，则安装成功：

《perl处理Excel(跨平台)》 image

使用方法 – 提取Excel

引用 use Spreadsheet::ParseExcel; 类，如下：

use Spreadsheet::ParseExcel;

Parser

new()

new()方法可以新建一个提取类，如下：

my $parser = Spreadsheet::ParseExcel->new(); #新建提取类

若是2007版以上的excel，则需要用到 Spreadsheet::ParseXLSX ，如下：

use Spreadsheet::ParseXLSX; #引用
my $parser = Spreadsheet::ParseXLSX->new(); #新建xlsx提取类

若excel需要密码才能打开，则新建密码提取类，如下：

$parser = Spreadsheet::ParseExcel->new( Password => 'secret' ); #若excel需要密码才能打开，则新建密码提取类

parse($filename)

获取excel表的工作薄，若无则返回 under

my $workbook = $parser->parse('Book1.xls'); #获取excel表的工作薄，若无则返回 `under`

error()

判断是否存在该excel表格

# error_code() => error()
# ============    =======
# 0 => ''
# 1 => '文件没有找到'
# 2 => '该文件不是标准的excel格式文档'
# 3 => '文件加密了'

if ( !defined $workbook ) { #一般需要判断是否存在该excel表格
    die $parser->error_code(), $parser->error(), ".\n";
}

Workbook

Spreadsheet::ParseExcel::Workbook 是由 Spreadsheet::ParseExcel 的 parse() 方法获得，有如下几种常用方法（完整方法使用传送门）：

$workbook->worksheets()
$workbook->worksheet()
$workbook->worksheet_count()
$workbook->get_filename()

worksheets()

循环获取所有的sheet表，如下：

for my $worksheet ( $workbook->worksheets() ) {
    #循环获取所有的sheet表
    ...
}

worksheet()

通过sheet表名或表索引获取单一sheet表，若无则返回 under ，如下：

$worksheet = $workbook->worksheet('Sheet1'); #获取名为"Sheet1"的sheet表
$worksheet = $workbook->worksheet(0); #获取第一张sheet表

worksheet_count()

获取sheet表的个数，如下：

my $worksheet_count = $workbook->worksheet_count(); #获取sheet表的个数

get_filename()

获取excel表的全路径+名称，如下：

my $filename = $workbook->get_filename(); #获取excel表的全路径+名称

Worksheet

Spreadsheet::ParseExcel::Worksheet 是由 worksheets() 或 worksheet() 方法获得，有如下几种常用方法（完整方法使用传送门）：

$worksheet->get_cell()
$worksheet->row_range()
$worksheet->col_range()
$worksheet->get_name()

get_cell( $《perl处理Excel(跨平台)》$ col)

由指定行和列获取单元格，若不存在则返回 under ，如下：

my $cell = $worksheet->get_cell($row, $col); #由指定行和列获取单元格

row_range()

返回一个二元列表 ($min, $max) ，表示行数的最小值和最大值，如下图：

my ( $row_min, $row_max ) = $worksheet->row_range(); #行数的最小值和最大值

col_range()

返回一个二元列表 ($min, $max) ，表示列数的最小值和最大值，如下图：

my ( $col_min, $col_max ) = $worksheet->col_range(); #列数的最小值和最大值

get_name()

获取sheet的名称，如下图：

my $name = $worksheet->get_name(); #获取sheet的名称

Cell

Spreadsheet::ParseExcel::Cell 有如下几种常用方法（完整方法使用传送门）：

$cell->value()
$cell->unformatted()

value()

获取单元格的值(有格式)。例如，在单元格中输入数字 123 ，单元格显示为 123.00 ，方法value() 的返回值为 123.00 。如下：

my $value = $cell->value(); #获取单元格的值(有格式)

unformatted()

获取单元格的值(无格式)。例如，在单元格中输入数字 123 ，单元格显示为 123.00 ，方法 unformatted() 的返回值为 123 。如下：

my $value = $cell->unformatted(); #获取单元格的值(有格式)

高级方法 – 提取Excel

Format

获取 单元格格式 ，如下：

my $format = $cell->get_format(); #获取单元格格式

Spreadsheet::ParseExcel::Format 类有如下方法：

$format->{Font}
$format->{AlignH}
$format->{AlignV}
$format->{Indent}
$format->{Wrap}
$format->{Shrink}
$format->{Rotate}
$format->{JustLast}
$format->{ReadDir}
$format->{BdrStyle}
$format->{BdrColor}
$format->{BdrDiag}
$format->{Fill}
$format->{Lock}
$format->{Hidden}
$format->{Style}

$format->{Font}

获取单元格的 字体 ，如下：

my $font = $format->{Font}

$format->{AlignH}

获取单元格的 水平对齐方式 ，返回值如下：

0 => 常规
1 => 靠左
2 => 居中
3 => 靠右
4 => 填充
5 => 两端对齐
6 => 跨列居中
7 => 分散对齐

$format->{Indent}

获取单元格的 水平对齐方式 中 靠左 的缩进值

$format->{AlignV}

获取单元格的 垂直对齐方式 ，返回值如下：

0 => 靠上
1 => 居中
2 => 靠下
3 => 两端对齐
4 => 分散对齐

$format->{Wrap}

是否选择了 文本控制 中的 自动换行

$format->{Shrink}

是否选择了 文本控制 中的 缩小字体填充

$format->{Rotate}

获取 字体旋转方向 ，如下：

0 => 无
1 => 垂直
2 => 逆时针90度
3 => 顺时针90度

$format->{JustLast}

是否选择了 两端分散对齐

$format->{ReadDir}

获取 文本阅读方向

$format->{BdrStyle}

获取 边框线型 ，如下数组：

[ $left, $right, $top, $bottom ]

$format->{BdrColor}

获取 边框颜色 ，如下数组：

[ $left, $right, $top, $bottom ]

$format->{BdrDiag}

获取 对角线边框种类、线型、颜色 ，如下数组：

[$kind, $style, $color ]

边框种类如下：

0 => 无
1 => 右上对角线
2 => 右下对角线
3 => 全部

$format->{Fill}

获取 填充 的 图案样式 、 图案颜色 、 背景色 ，如下：

[ $pattern, $front_color, $back_color ]

$format->{Lock}

获取是否 锁定 单元格

$format->{Hidden}

获取是否 隐藏 公式

Font

获取单元格的 字体 ，如下：

my $font = $format->{Font}

Spreadsheet::ParseExcel::Font 类有如下方法：

$font->{Name}
$font->{Bold}
$font->{Italic}
$font->{Height}
$font->{Underline}
$font->{UnderlineStyle}
$font->{Color}
$font->{Strikeout}
$font->{Super}

$font->{Name}

获取 字体名称 ，如 Arial

$font->{Bold}

获取字体是否 加粗

$font->{Italic}

获取字体是否 斜体

$font->{Height}

获取字体 大小

$font->{Underline}

获取字体是否开启 下划线

$font->{UnderlineStyle}

获取字体 下划线样式 ，如下：

 0 => 无
 1 => 下划线
 2 => 双下划线
33 => Single accounting
34 => Double accounting

$font->{Color}

获取 字体颜色

$font->{Strikeout}

获取字体是否添加 删除线

$font->{Super}

获取字体是 上标 还是 下标 ，如下：

0 => 无
1 => 上标
2 => 下标

使用方法 – 新建Excel

引用 use Spreadsheet::WriteExcel; 类，如下：

use Spreadsheet::WriteExcel;

workbook

new()

new()方法可以基于文件名新建一个excel表，如下：

my $workbook  = Spreadsheet::WriteExcel->new('filename.xls'); #新建xls表

若是新建2007版以上的excel，则需要用到 Excel::Writer::XLSX ，如下：

use Excel::Writer::XLSX; #引用
my $workbook = Excel::Writer::XLSX->new( 'perl.xlsx' ); #新建xlsx表

若创建失败，则返回under，如下：

die "Problems creating new Excel file: $!" unless defined $workbook;

compatibility_mode()

用于增强兼容性，如下：

$workbook->compatibility_mode(); #用于增强兼容性

add_worksheet($sheetname)

新增一个sheet，如下：

$worksheet1 = $workbook->add_worksheet();           # Sheet1
$worksheet2 = $workbook->add_worksheet('自定义名称');  # 自定义名称
$worksheet3 = $workbook->add_worksheet();           # Sheet3

add_chart(%properties)

更多详细请移步 Spreadsheet::WriteExcel::Chart

close()

一般情况下，excel文件会自动关闭，但使用 close() 可以确定关闭excel文件，如下：

$workbook->close() or die "Error closing file: $!"; #关闭excel文件

set_properties()

设置excel表附加信息，如下：

#设置excel表附加信息
$workbook->set_properties(
    title    => 'This is an example spreadsheet',
    author   => 'John McNamara',
    comments => 'Created with Perl and Spreadsheet::WriteExcel',
);

可设置的信息如下：

title
subject
author
manager
company
category
keywords
comments

worksheet

write( $《perl处理Excel(跨平台)》$ column, $《perl处理Excel(跨平台)》$ format)

$worksheet->write(0, 0, 'Hello'                ); # write_string()
$worksheet->write(1, 0, 'One'                  ); # write_string()
$worksheet->write(2, 0,  2                     ); # write_number()
$worksheet->write(3, 0,  3.00001               ); # write_number()
$worksheet->write(4, 0,  ""                    ); # write_blank()
$worksheet->write(5, 0,  ''                    ); # write_blank()
$worksheet->write(6, 0,  undef                 ); # write_blank()
$worksheet->write(7, 0                         ); # write_blank()
$worksheet->write(8, 0,  'http://www.perl.com/'); # write_url()
$worksheet->write('A9',  'ftp://ftp.cpan.org/' ); # write_url()
$worksheet->write('A10', 'internal:Sheet1!A1'  ); # write_url()
$worksheet->write('A11', 'external:c:\foo.xls' ); # write_url()
$worksheet->write('A12', '=A3 + 3*A4'          ); # write_formula()
$worksheet->write('A13', '=SIN(PI()/4)'        ); # write_formula()
$worksheet->write('A14', \@array               ); # write_row()
$worksheet->write('A15', [\@array]             ); # write_col()

$format 参数是可选的，用于定义单元格的格式，如下：

my $format = $workbook->add_format();
$format->set_bold(); #加粗
$format->set_color('red'); #字体红色
$format->set_align('center'); #居中
 
$worksheet->write(4, 0, 'Hello', $format);

单元格坐标的确认使用格式如下：

(0, 0)
('A1')

互换使用方法如下：

use Spreadsheet::WriteExcel::Utility;
 
($row, $col) = xl_cell_to_rowcol('C2');  # (1, 2)
$str = xl_rowcol_to_cell(1, 2);  # C2

keep_leading_zeros()

excel会将类似于数字的内容转换成数字，例如输入 0123 ，excel会将它转化为 123 ，如果想呈现出 0123 ，则做如下处理：

# 如下，结果是 1209
$worksheet->write('A1', '01209');
 
# 设置格式，结果是 01209
my $format1 = $workbook->add_format(num_format => '00000');
$worksheet->write('A2', '01209', $format1);
 
# 使用字符串格式，结果是 01209
$worksheet->write_string('A3', '01209');
 
# 使用keep_leading_zeros()方法，结果是 01209
$worksheet->keep_leading_zeros();
$worksheet->write('A4', '01209');

以上操作呈现出的效果如下：

 -----------------------------------------------------------
|   |     A     |     B     |     C     |     D     | ...
 -----------------------------------------------------------
| 1 |      1209 |           |           |           | ...
| 2 |     01209 |           |           |           | ...
| 3 | 01209     |           |           |           | ...
| 4 | 01209     |           |           |           | ...

write_row( $《perl处理Excel(跨平台)》$ column, $《perl处理Excel(跨平台)》$ format)
写入数组数据，如下：

@array      = ('awk', 'gawk', 'mawk');
$array_ref  = \@array;
 
$worksheet->write_row(0, 0, $array_ref);
 
# 以上代码等价于
$worksheet->write(0, 0, $array[0]);
$worksheet->write(0, 1, $array[1]);
$worksheet->write(0, 2, $array[2]);

若是二维数组，如下：

@eec =  (
            ['maggie', 'milly', 'molly', 'may'  ],
            [13,       14,      15,      16     ],
            ['shell',  'star',  'crab',  'stone']
        );
 
$worksheet->write_row('A1', \@eec);

呈现出的效果，如下：

 -----------------------------------------------------------
|   |    A    |    B    |    C    |    D    |    E    | ...
 -----------------------------------------------------------
| 1 | maggie  | 13      | shell   | ...     |  ...    | ...
| 2 | milly   | 14      | star    | ...     |  ...    | ...
| 3 | molly   | 15      | crab    | ...     |  ...    | ...
| 4 | may     | 16      | stone   | ...     |  ...    | ...
| 5 | ...     | ...     | ...     | ...     |  ...    | ...
| 6 | ...     | ...     | ...     | ...     |  ...    | ...

write_col( $《perl处理Excel(跨平台)》$ column, $《perl处理Excel(跨平台)》$ format)
写入数组数据，如下：

@array      = ('awk', 'gawk', 'mawk');
$array_ref  = \@array;
 
$worksheet->write_col(0, 0, $array_ref);
 
# 以上代码等价于
$worksheet->write(0, 0, $array[0]);
$worksheet->write(1, 0, $array[1]);
$worksheet->write(2, 0, $array[2]);

若是二维数组，如下：

@eec =  (
            ['maggie', 'milly', 'molly', 'may'  ],
            [13,       14,      15,      16     ],
            ['shell',  'star',  'crab',  'stone']
        );
 
$worksheet->write_col('A1', \@eec);

呈现出的效果，如下：

  -----------------------------------------------------------
|   |    A    |    B    |    C    |    D    |    E    | ...
 -----------------------------------------------------------
| 1 | maggie  | milly   | molly   | may     |  ...    | ...
| 2 | 13      | 14      | 15      | 16      |  ...    | ...
| 3 | shell   | star    | crab    | stone   |  ...    | ...
| 4 | ...     | ...     | ...     | ...     |  ...    | ...
| 5 | ...     | ...     | ...     | ...     |  ...    | ...
| 6 | ...     | ...     | ...     | ...     |  ...    | ...

write_url( $《perl处理Excel(跨平台)》$ col, $《perl处理Excel(跨平台)》$ label, $format)

写入超链接，如下：

$worksheet->write_url(0, 0,  'ftp://www.perl.org/'                  );
$worksheet->write_url(1, 0,  'http://www.perl.com/', 'Perl home'    );
$worksheet->write_url('A3',  'http://www.perl.com/', $format        );
$worksheet->write_url('A4',  'http://www.perl.com/', 'Perl', $format);
$worksheet->write_url('A5',  'mailto:jmcnamara@cpan.org'            );

write_url_range( $《perl处理Excel(跨平台)》$ col1, $《perl处理Excel(跨平台)》$ col2, $《perl处理Excel(跨平台)》$ string, $format)

在一块区域内写入超链接，如下：

$worksheet->write_url(0, 0, 0, 3, 'ftp://www.perl.org/'              );
$worksheet->write_url(1, 0, 0, 3, 'http://www.perl.com/', 'Perl home');
$worksheet->write_url('A3:D3',    'internal:Sheet2!A1'               );
$worksheet->write_url('A4:D4',    'external:c:\temp\foo.xls'         );

write_formula( $《perl处理Excel(跨平台)》$ column, $《perl处理Excel(跨平台)》$ format, $value)

写入公式，如下：

$worksheet->write_formula(0, 0, '=$B$3 + B4'  );
$worksheet->write_formula(1, 0, '=SIN(PI()/4)');
$worksheet->write_formula(2, 0, '=SUM(B1:B5)' );
$worksheet->write_formula('A4', '=IF(A3>1,"Yes", "No")'   );
$worksheet->write_formula('A5', '=AVERAGE(1, 2, 3, 4)'    );
$worksheet->write_formula('A6', '=DATEVALUE("1-Jan-2001")');

write_comment( $《perl处理Excel(跨平台)》$ column, $string, …)

增加批注，如下：

$worksheet->write        (2, 2, 'Hello');
$worksheet->write_comment(2, 2, '这是个批注');

还可以增加信息如下：

# encoding => 若为1，则表明使用UTF-16BE编码
# author => 批注的作者
# author_encoding => 作者字符串是否用UTF-16BE编码
# visible => 是否设置开启excel时批注可见。1为可见；0为不可见
# x_scale => 设置批注框宽度的压缩比
# width => 设置批注框宽度
# y_scale => 设置批注框高度的压缩比
# height => 设置批注框高度
# color => 设置批注框背景色
# start_cell => 设置批注框出现的位置，如“E2”
# start_row => 设置批注框出现的行位置
# start_col => 设置批注框出现的列位置

$worksheet->write_comment('C3', 'Hello', visible => 1, author => 'Perl');

insert_image( $《perl处理Excel(跨平台)》$ col, $《perl处理Excel(跨平台)》$ x, $《perl处理Excel(跨平台)》$ scale_x, $scale_y)

在sheet中插入一个png、jpeg或bmp格式的图片， $x 和 $y 表示在单元格中图片靠左和靠上的距离， $scale_x 和 $scale_y 表示缩放比例，如下：

$worksheet->insert_image('A1', 'perl.bmp', 0, 0, 2, 0.8);

insert_chart( $《perl处理Excel(跨平台)》$ col, $《perl处理Excel(跨平台)》$ x, $《perl处理Excel(跨平台)》$ scale_x, $scale_y)

插入表格，详情请移步 Spreadsheet::WriteExcel::Chart

data_validation()

下拉选项，如下：

#仅能输入大于100的数字
$worksheet->data_validation('B3',
    {
        validate => 'integer',
        criteria => '>',
        value    => 100,
    });
 
#在下拉选项中选择值
$worksheet->data_validation('B5:B9',
    {
        validate => 'list',
        value    => ['open', 'high', 'close'],
    });

get_name()

获取sheet表的名称，如下：

foreach my $sheet ($workbook->sheets()) {
    print $sheet->get_name();
}

activate()

设置默认展示的sheet表，如下：

$worksheet1 = $workbook->add_worksheet('To');
$worksheet2 = $workbook->add_worksheet('the');
$worksheet3 = $workbook->add_worksheet('wind');
 
$worksheet3->activate(); #默认展示wind表

select()

选中sheet表，如下：

$worksheet1->activate();
$worksheet2->select();
$worksheet3->select();

hide()

隐藏sheet表，如下：

$worksheet2->hide();

set_first_sheet()

设置为第一个sheet，如下：

for (1..20) {
    $workbook->add_worksheet;
}
 
$worksheet21 = $workbook->add_worksheet();
$worksheet22 = $workbook->add_worksheet();
 
$worksheet21->set_first_sheet(); #设置为第一个sheet
$worksheet22->activate();

protect($password)

开启保护，密码可选，如下：

$worksheet->protect();
or
$worksheet->protect('drowssap');

set_selection( $《perl处理Excel(跨平台)》$ first_col, $《perl处理Excel(跨平台)》$ last_col)

选中指定区域，如下：

$worksheet1->set_selection(3, 3);       # 1. Cell D4.
$worksheet2->set_selection(3, 3, 6, 6); # 2. Cells D4 to G7.
$worksheet3->set_selection(6, 6, 3, 3); # 3. Cells G7 to D4.
$worksheet4->set_selection('D4');       # Same as 1.
$worksheet5->set_selection('D4:G7');    # Same as 2.
$worksheet6->set_selection('G7:D4');    # Same as 3.

set_row( $《perl处理Excel(跨平台)》$ height, $《perl处理Excel(跨平台)》$ hidden, $《perl处理Excel(跨平台)》$ collapsed)

设置行属性，如下：

$worksheet->set_row(0, 20); # 设置第一行的行高为20

set_column( $《perl处理Excel(跨平台)》$ last_col, $《perl处理Excel(跨平台)》$ format, $《perl处理Excel(跨平台)》$ level, $collapsed)

设置列属性，同上

merge_range( $《perl处理Excel(跨平台)》$ first_col, $《perl处理Excel(跨平台)》$ last_col, $《perl处理Excel(跨平台)》$ format, $utf_16_be)

合并单元格，如下：

my $format = $workbook->add_format(
                                    border  => 6,
                                    valign  => 'vcenter',
                                    align   => 'center',
                                  );
 
$worksheet->merge_range('B3:D4', 'Vertical and horizontal', $format);

set_zoom($scale)

设置zoom属性

right_to_left()

颠倒A1的位置

hide_zero()

隐藏为0的值，如下：

$worksheet->hide_zero();

set_tab_color()

设置sheet Tab的颜色，如下：

$worksheet1->set_tab_color('red');
$worksheet2->set_tab_color(0x0C);

autofilter( $《perl处理Excel(跨平台)》$ first_col, $《perl处理Excel(跨平台)》$ last_col)

自动筛选，如下：

$worksheet->autofilter(0, 0, 10, 3);
$worksheet->autofilter('A1:D11');    # Same as above in A1 notation.

filter_column( $《perl处理Excel(跨平台)》$ expression)

设置筛选条件，如下：

$worksheet->filter_column('A', 'x > 2000');
$worksheet->filter_column('B', 'x > 2000 and x < 5000');

运算符如下：

 运算符         近义词
   ==           =   eq  =~
   !=           <>  ne  !=
   >
   <
   >=
   <=
 
   and          &&
   or           ||

* 表示一个或多个字符， ？ 表示一个字符

'x == Blanks'     #空白
'x == NonBlanks'  #不为空白
'Top    10 Items' #前10个
'Bottom  5 Items' #后5个
'Top    25 %'     #前25%
'Bottom 50 %'     #后50%
'x =~ b*'         # 以b开头
'x !~ b*'         # 不以b开头
'x =~ *b'         # 以b结尾
'x !~ *b'         # 不以b结尾
'x =~ *b*'        #  包含b
'x !~ *b*'        # 不包含b

format

set_format_properties(%properties)

设置单元格属性，如下：

my $format = $workbook->add_format();
$format->set_format_properties(bold => 1, color => 'red');

set_font($fontname)

设置字体，默认为 Arial ，如下：

$format->set_font('Times New Roman');

set_size()

设置字体大小，默认大小为 10 ,如下：

my $format = $workbook->add_format();
$format->set_size(30);

set_color()

设置字体颜色，如下：

# 'black'
# 'blue'
# 'brown'
# 'cyan'
# 'gray'
# 'green'
# 'lime'
# 'magenta'
# 'navy'
# 'orange'
# 'pink'
# 'purple'
# 'red'
# 'silver'
# 'white'
# 'yellow'

my $format = $workbook->add_format();
$format->set_color('red');
$worksheet->write(0, 0, 'wheelbarrow', $format);

set_bold()

是否开启加粗。一般情况下可以添加100-1000的参数。400表示正常，700表示加粗，1000表示非常粗。但最好是不写，如下：

$format->set_bold(); #加粗

set_italic()

设置斜体，如下：

$format->set_italic();

set_underline()

设置下划线，如下：

$format->set_underline(0); #取消下划线
$format->set_underline(); #设置下划线
$format->set_underline(1); #设置下划线
$format->set_underline(2); #设置双下划线

set_font_strikeout()

设置删除线

set_font_script()

设置角标，如下：

0 => 正常
1 => 上角标
2 => 下角标

set_num_format()

设置数字格式，如下：

$format01->set_num_format('0.000');
$worksheet->write(0,  0, 3.1415926, $format01);    # 3.142
 
$format02->set_num_format('#,##0');
$worksheet->write(1,  0, 1234.56,   $format02);    # 1,235
 
$format03->set_num_format('#,##0.00');
$worksheet->write(2,  0, 1234.56,   $format03);    # 1,234.56
 
$format04->set_num_format('$0.00');
$worksheet->write(3,  0, 49.99,     $format04);    # $49.99
 
# Note you can use other currency symbols such as the pound or yen as well.
# Other currencies may require the use of Unicode.
 
$format07->set_num_format('mm/dd/yy');
$worksheet->write(6,  0, 36892.521, $format07);    # 01/01/01
 
$format08->set_num_format('mmm d yyyy');
$worksheet->write(7,  0, 36892.521, $format08);    # Jan 1 2001
 
$format09->set_num_format('d mmmm yyyy');
$worksheet->write(8,  0, 36892.521, $format09);    # 1 January 2001
 
$format10->set_num_format('dd/mm/yyyy hh:mm AM/PM');
$worksheet->write(9,  0, 36892.521, $format10);    # 01/01/2001 12:30 AM
 
$format11->set_num_format('0 "dollar and" .00 "cents"');
$worksheet->write(10, 0, 1.87,      $format11);    # 1 dollar and .87 cents
 
# Conditional formatting
$format12->set_num_format('[Green]General;[Red]-General;General');
$worksheet->write(11, 0, 123,       $format12);    # > 0 Green
$worksheet->write(12, 0, -45,       $format12);    # < 0 Red
$worksheet->write(13, 0, 0,         $format12);    # = 0 Default colour
 
# Zip code
$format13->set_num_format('00000');
$worksheet->write(14, 0, '01209',   $format13);

set_locked()

是否上锁，如下：

my $locked  = $workbook->add_format();
$locked->set_locked(1); # A non-op
 
my $unlocked = $workbook->add_format();
$locked->set_locked(0);
 
# Enable worksheet protection
$worksheet->protect();
 
# This cell cannot be edited.
$worksheet->write('A1', '=1+2', $locked);
 
# This cell can be edited.
$worksheet->write('A2', '=1+2', $unlocked);

set_hidden()

是否隐藏，如下：

my $hidden = $workbook->add_format();
$hidden->set_hidden();
 
# Enable worksheet protection
$worksheet->protect();
 
# The formula in this cell isn't visible
$worksheet->write('A1', '=1+2', $hidden);

set_align()

设置对齐方式，如下：

Horizontal
# 'left'              
# 'center'
# 'right'
# 'fill'
# 'justify'
# 'center_across'

Vertical
# 'top'
# 'vcenter'
# 'bottom'
# 'vjustify'

set_bg_color()

设置背景色

set_fg_color()

设置前景色

set_border()

设置边框，如下：

Index   Name            Weight   Style
=====   =============   ======   ===========
0       None            0
1       Continuous      1        -----------
2       Continuous      2        -----------
3       Dash            1        - - - - - -
4       Dot             1        . . . . . .
5       Continuous      3        -----------
6       Double          3        ===========
7       Continuous      0        -----------
8       Dash            2        - - - - - -
9       Dash Dot        1        - . - . - .
10      Dash Dot        2        - . - . - .
11      Dash Dot Dot    1        - . . - . .
12      Dash Dot Dot    2        - . . - . .
13      SlantDash Dot   2        / - . / - .

set_border_color()

设置边框颜色

copy($format)

格式刷

更多详情请移步 Spreadsheet::WriteExcel 的官方资料

    原文作者：潘高PG
    原文地址: https://www.jianshu.com/p/96756df44c0f
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。

前言

前言

了解

Spreadsheet::ParseExcel

Spreadsheet::WriteExcel

安装模块

使用方法 – 提取Excel

Parser

new()

parse($filename)

error()

Workbook

worksheets()

worksheet()

worksheet_count()

get_filename()

Worksheet

get_cell(col)

row_range()

col_range()

get_name()

Cell

value()

unformatted()

高级方法 – 提取Excel

Format

$format->{Font}

$format->{AlignH}

$format->{Indent}

$format->{AlignV}

$format->{Wrap}

$format->{Shrink}

$format->{Rotate}

$format->{JustLast}

$format->{ReadDir}

$format->{BdrStyle}

$format->{BdrColor}

$format->{BdrDiag}

$format->{Fill}

$format->{Lock}

$format->{Hidden}

Font

$font->{Name}

$font->{Bold}

$font->{Italic}

$font->{Height}

$font->{Underline}

$font->{UnderlineStyle}

$font->{Color}

$font->{Strikeout}

$font->{Super}

使用方法 – 新建Excel

workbook

new()

compatibility_mode()

add_worksheet($sheetname)

add_chart(%properties)

close()

set_properties()

worksheet

write(column, format)

keep_leading_zeros()

write_url(col, label, $format)

write_url_range(col1, col2, string, $format)

write_formula(column, format, $value)

write_comment(column, $string, …)

insert_image(col, x, scale_x, $scale_y)

insert_chart(col, x, scale_x, $scale_y)

data_validation()

get_name()

activate()

select()

hide()

set_first_sheet()

protect($password)

set_selection(first_col, last_col)

set_row(height, hidden, collapsed)

set_column(last_col, format, level, $collapsed)

merge_range(first_col, last_col, format, $utf_16_be)

set_zoom($scale)

get_cell( $《perl处理Excel(跨平台)》$ col)

write( $《perl处理Excel(跨平台)》$ column, $《perl处理Excel(跨平台)》$ format)

write_url( $《perl处理Excel(跨平台)》$ col, $《perl处理Excel(跨平台)》$ label, $format)

write_url_range( $《perl处理Excel(跨平台)》$ col1, $《perl处理Excel(跨平台)》$ col2, $《perl处理Excel(跨平台)》$ string, $format)

write_formula( $《perl处理Excel(跨平台)》$ column, $《perl处理Excel(跨平台)》$ format, $value)

write_comment( $《perl处理Excel(跨平台)》$ column, $string, …)

insert_image( $《perl处理Excel(跨平台)》$ col, $《perl处理Excel(跨平台)》$ x, $《perl处理Excel(跨平台)》$ scale_x, $scale_y)

insert_chart( $《perl处理Excel(跨平台)》$ col, $《perl处理Excel(跨平台)》$ x, $《perl处理Excel(跨平台)》$ scale_x, $scale_y)

set_selection( $《perl处理Excel(跨平台)》$ first_col, $《perl处理Excel(跨平台)》$ last_col)

set_row( $《perl处理Excel(跨平台)》$ height, $《perl处理Excel(跨平台)》$ hidden, $《perl处理Excel(跨平台)》$ collapsed)

set_column( $《perl处理Excel(跨平台)》$ last_col, $《perl处理Excel(跨平台)》$ format, $《perl处理Excel(跨平台)》$ level, $collapsed)

merge_range( $《perl处理Excel(跨平台)》$ first_col, $《perl处理Excel(跨平台)》$ last_col, $《perl处理Excel(跨平台)》$ format, $utf_16_be)

autofilter( $《perl处理Excel(跨平台)》$ first_col, $《perl处理Excel(跨平台)》$ last_col)

filter_column( $《perl处理Excel(跨平台)》$ expression)