哪位对Spreadsheet::ParseExcel比较熟悉？

billypeng

怎么我安装好以后，直接运行这个模块的例子都不行？

1. 
   
2.     #!/usr/bin/perl -w
   
3. 
   
4.     use strict;
   
5.     use Spreadsheet::ParseExcel;
   
6. 
   
7.     my $parser   = Spreadsheet::ParseExcel->new();
   
8.     my $workbook = $parser->Parse('Book1.xls');
   
9. 
   
10.     for my $worksheet ( $workbook->worksheets() ) {
    
11. 
    
12.         my ( $row_min, $row_max ) = $worksheet->row_range();
    
13.         my ( $col_min, $col_max ) = $worksheet->col_range();
    
14. 
    
15.         for my $row ( $row_min .. $row_max ) {
    
16.             for my $col ( $col_min .. $col_max ) {
    
17. 
    
18.                 my $cell = $worksheet->get_cell( $row, $col );
    
19.                 next unless $cell;
    
20. 
    
21.                 print "Row, Col    = ($row, $col)\n";
    
22.                 print "Value       = ", $cell->value(),       "\n";
    
23.                 print "Unformatted = ", $cell->unformatted(), "\n";
    
24.                 print "\n";
    
25.             }
    
26.         }
    
27.     }
    

复制代码

执行后一堆错误信息(很多都差不多，拷贝两行如下)：

Use of uninitialized value in hash element at /usr/lib/perl5/site_perl/5.8.5/Spreadsheet/ParseExcel/FmtDefault.pm line 89.
Use of uninitialized value in hash element at /usr/lib/perl5/site_perl/5.8.5/Spreadsheet/ParseExcel/FmtDefault.pm line 94.

dugu072_cu

没用过这个 module，但是解析 excel 的东东，非win环境下用，即使可用，也会有很多限制吧
而且看错误，$parse 可能都没东西，确认存在 Book1.xls 的话，那里面的各个 sheet 有写些东西吗？

billypeng

原帖由 dugu072_cu 于 2009-12-1 14:10 发表
没用过这个 module，但是解析 excel 的东东，非win环境下用，即使可用，也会有很多限制吧
而且看错误，$parse 可能都没东西，确认存在 Book1.xls 的话，那里面的各个 sheet 有写些东西吗？

这个模块直接parse excel的二进制文件，而不是通过ＯＬＥ方式访问，所以在Windows下访问也差不多的。

这个问题去掉excel中错误检查以后，就解决了。

ggglw

检查你的perl版本吧.

兰花仙子

Depending on the Excel version used to generate the files and the actual filetype saved (OOXML anyone?), this might or might not work.

If in doubt, you could use Win32::OLE (on a windows machine) to convert the file to a CSV-File (comma seperated values) first, take a look here:

http://www.ngbdigital.com/perl_ole_excel.html

Then you could use a number of CPAN modules to process the CSV. One of the more exotic one is DBD::CSV, where use can use the file like a database table.