perl处理Excel(跨平台)

时间  2019-11-17
标签 perl 处理 excel 跨平台 栏目 Perl 繁體版
原文   原文链接

前言

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

前言

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

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

了解

从 Spreadsheet::ParseExcel 和 Spreadsheet::WriteExcel 的官方资料中咱们能够知道：bash

Spreadsheet::ParseExcel
  • 是用于提取excel信息
  • 仅支持Excel 95-2003格式
Spreadsheet::WriteExcel
  • 是用于新建excel信息
  • 仅支持Excel 97-2007格式

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

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

安装模块

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

image

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

image

使用方法 - 提取Excel

引用 use Spreadsheet::ParseExcel; 类，以下：this

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(row,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(row,column, token,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(row,column, array_ref,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(row,column, array_ref,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(row,col, url,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(row1,col1, row2,col2, url,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(row,column, formula,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(row,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(row,col, filename,x, y,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(row,col, chart,x, y,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(first_row,first_col, last_row,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(row,height, format,hidden, level,collapsed)

设置行属性，以下：

$worksheet->set_row(0, 20); # 设置第一行的行高为20
复制代码
set_column(first_col,last_col, width,format, hidden,level, $collapsed)

设置列属性，同上

merge_range(first_row,first_col, last_row,last_col, token,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(first_row,first_col, last_row,last_col)

自动筛选，以下：

$worksheet->autofilter(0, 0, 10, 3);
$worksheet->autofilter('A1:D11');    # Same as above in A1 notation.
复制代码
filter_column(column,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 的官方资料
相关文章
相关标签/搜索
每日一句
    每一个你不满意的现在，都有一个你没有努力的曾经。
本站公众号
   欢迎关注本站公众号,获取更多信息
联系我们 最近搜索 最新文章 沪ICP备13005482号-10 MyBatis教程 SQL 教程 MySQL教程 Java 教程 Thymeleaf 教程 Hibernate教程 Spring教程 Redis教程