求助，perl合并excel表格

求助，perl合并excel表格

首先你要学会使用Spreadsheet::ParseExcel模块来读取xls文件，接着，中间的拼接逻辑就是数据变换，然后再使用Spreadsheet::WriteExcel把拼接好的数据输出到新xls文件里。

# 创建一个新的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)); 这样就可以了。