用perl *** 作excel表格

# 创建一个新的EXCEL文件

my $workbook = Spreadsheet::WriteExcel->new('test.xls')

# 添加一个工作表

$worksheet = $workbook->add_worksheet()

# 新建一个样式

$format = $workbook->add_format()# Add a format

$format->set_bold()#设置字体为粗体

$format->set_color('red')#设置单元格前景色为红色

$format->set_align('center')#设置单元格居中

#使用行号及列号，向单元格写入一个格式化和末格式化的字符串

$col = 1

$row = 2

$worksheet->write($row, $col, 'Hi Excel!', $format)

$worksheet->write( $col-1, $row-1 , 'Hi Excel!')

$worksheet->write(1,$col, 'Hi Excel!')

#使用单元格名称（例：A1），向单元格中写一个数字。

$worksheet->write('A3', 1.2345)

$worksheet->write('A4', '=SIN(PI()/4)')

exit

在网上找到了demo代码，需要安装相关的包，在winddows下，

cmd模式，ppm,安装Spreadsheet-WriteExcel包。

PS：如果碰到中文写入时乱码问题，要ppm 安装Unicode_Map包，按照如下方法使用

use Unicode::Map()

my $Map = new Unicode::Map("GB2312")

my $abc='你好！'

$worksheet->write_unicode($LineCount, 1, $Map->to_unicode( $abc))

这样就可以了。

方法：

1、打开EXCEL表格，选中要加入内容的单元格。

2、 之后 ，在单元格上右键--设置单元格格式--数字--自定义，在类型下输入：#"件"。

3、设置后效果。

---