perl操作excel新手求助

jumpiz

本人刚学习perl没几天，现在需求是 同时从excel表1和表2中 各提取一行或一列数据写入表3中，表3可以是新建的也可以是现有的。不知该怎么做，我零零散散看了些方法，试过用模块ParseExcel和WirteExcel ,可是从表1提取的数据始终把表2的覆盖了，也就是表3里始终只能有一张表的数据，求解这代码该怎么写呢

donalds2008

以前写的代码供参考

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Encode;
   
4. use Spreadsheet::WriteExcel;
   
5. use Spreadsheet::ParseExcel;
   
6. 
   
7. my $file='D:\1.xls';
   
8. $file = encode('gb2312',decode('utf-8',$file));
   
9. my $parser = Spreadsheet::ParseExcel->new();
   
10. my $book =$parser->parse($file);
    
11. my @sheets = $book->worksheets();
    
12. foreach my $sheet (@sheets){
    
13.         my $sheetname = $sheet->get_name();
    
14.         $sheetname = encode('gb2312',$sheetname);
    
15.         print "\n***************$sheetname***************\n";
    
16. 
    
17.         my ($minRow, $maxRow) = $sheet->row_range();
    
18.         my ($minCol, $maxCol) = $sheet->col_range();
    
19. 
    
20.         foreach my $row ($minRow..$maxRow){
    
21.                 print "====Row $row====\n";
    
22.                 foreach my $col ($minCol..$maxCol){
    
23.                     my $cell = $sheet->get_cell($row, $col);
    
24.                         next unless defined($cell);
    
25.                         my $value = encode('gb2312',$cell->value);
    
26.                         print "($value) ";
    
27.                 }
    
28.                 print "\n";
    
29.         }
    

复制代码

旋转小马

表1 或表2 或表3可不可以贴上点例子，这样凭空想你要做的事有点费劲啊

brownzgx

第一个表的数据写完了 把行和列存着 下一个表写的时候在存的行和列的基础上再写，估计你都是直接往同样的行和列里面写了。