怎么读取excel里面的数据？

作者: james_zhenghao   发布时间: 2010-12-23

作者: zhlong8   发布时间: 2010-12-23

用  Spreadsheet:arseExcel 这个模块可以处理的

作者: scrit   发布时间: 2010-12-23

本帖最后由 yiten 于 2010-12-23 15:30 编辑

我这边有现成的，做下好人

1. # parse excel 2003 file and return the data
   
2. # examples:
   
3. # 1. read the first sheet data: read_excel_2003('abc.xls'), return reference of sheet data
   
4. # 2. read all the sheet data: read_excel_2003( 'abc.xls', 1 ), return array reference contains reference of every sheet data
   
5. # 3. read specified sheet data: read_excel_2003( 'abc.xls', [ 0, 1, 4 ] ), return hash reference contains reference of the specified sheet data
   
6. sub read_excel_2003 {
   
7.     my ( $file, $sheet_var ) = @_;
   
8. 
   
9.     die "File is not found: $file." unless -e $file;
   
10. 
    
11.     my $parser = Spreadsheet::ParseExcel->new();
    
12.     my $fmt = Spreadsheet::ParseExcel::FmtUnicode->new( Unicode_Map => 'CP936' );
    
13. 
    
14.     my $workbook = $parser->Parse( $file, $fmt );
    
15. 
    
16.     die $parser->error() unless $workbook;
    
17. 
    
18.     unless ( $sheet_var ) {
    
19.         return _parse_sheet( $workbook->worksheet(0) );
    
20.     }
    
21.     elsif ( !ref $sheet_var ) {
    
22.         my @result_array = ();
    
23. 
    
24.         for my $worksheet ( $workbook->worksheets() ) {
    
25.             push @result_array, _parse_sheet($worksheet);
    
26.         }
    
27. 
    
28.         return \@result_array;
    
29.     }
    
30.     elsif ( ref $sheet_var eq 'ARRAY' ) {
    
31.         my %result_hash = ();
    
32.         
    
33.         for my $sheet_num ( @$sheet_var ) {
    
34.             my $worksheet = $workbook->worksheet($sheet_num);
    
35.             $result_hash{$sheet_num} = _parse_sheet($worksheet) if $worksheet;
    
36.         }
    
37. 
    
38.         return \%result_hash;
    
39.     }
    
40. }
    
41. 
    
42. sub _parse_sheet {
    
43.     my $worksheet = shift;
    
44. 
    
45.     my @sheet_array = ();
    
46. 
    
47.     my ( $row_min, $row_max ) = $worksheet->row_range();
    
48.     my ( $col_min, $col_max ) = $worksheet->col_range();
    
49. 
    
50.     for my $row ( $row_min .. $row_max ) {
    
51.         my @row_array = ();
    
52. 
    
53.         for my $col ( $col_min .. $col_max ) {
    
54.             my $cell = $worksheet->get_cell( $row, $col );
    
55. 
    
56.             if ($cell) {
    
57.                 if ( $cell->type() eq 'Date' ) {
    
58.                     push @row_array, ExcelFmt( 'yyyy-mm-dd HH:MM:SS', $cell->unformatted() );
    
59.                 }
    
60.                 else {
    
61.                     push @row_array, $cell->value();
    
62.                 }
    
63.             }
    
64.             else {
    
65.                 push @row_array, undef;
    
66.             }
    
67.         }
    
68. 
    
69.         push @sheet_array, \@row_array;
    
70.     }
    
71. 
    
72.     return \@sheet_array;
    
73. }

复制代码

作者: yiten   发布时间: 2010-12-23