怎么读取excel里面的数据？

james_zhenghao

我想要读取excel里面第一排里面所有的数据，应该怎么写？

zhlong8

右上角搜索，本版很多

scrit

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

yiten

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

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

复制代码

phoenix_perl

用这个模块读取Spreadsheet:arseExcel;

phoenix_perl

1. Spreadsheet::ParseExcel;     用这个模块

复制代码

james_zhenghao

多谢各位的指点，尤其是yiten，有啥不明白的会再麻烦你~~