Spreadsheet::ParseExcel不能处理加载宏的excel文件吗？

dl0622

不加载宏的可以打印，加载的就打印不出来，究竟怎样才能处理加载宏的excel文件？

1. 
   
2. use strict;
   
3. use Spreadsheet::ParseExcel;
   
4. use Encode;
   
5. die "You must provide a filename to $0 to be parsed as an Excel file" unless @ARGV==1;
   
6. my $file=shift;
   
7. my %count;
   
8. my $excel = Spreadsheet::ParseExcel::Workbook->Parse($file);
   
9. foreach my $sheet (@{$excel->{Worksheet}}[0..2]) {
   
10. printf("Sheet: %s\n", $sheet->{Name});
    
11. foreach my $row ($sheet->{MinRow} .. $sheet->{MaxRow}) {
    
12.    my $cell = $sheet->{Cells}[$row][1];
    
13.    if ($cell) {
    
14.     $count{decode('GB2312',$cell->{Val})}++;
    
15.     #printf("( %s , %s ) => %s\n", $row, 5, $cell->{Val});
    
16.    }
    
17. }
    
18. }
    
19. for my $c(sort keys %count)
    
20. { print "$c,$count{$c}\n"; print "haha\n";}
    

复制代码

wxlfh

如果是Windows环境，建议用Win32::OLE模块。

dl0622

Win32::OLE模块如何读取excel工作表内容，有没有相关例子？我暂时找不到

wxlfh

http://blog.sina.com.cn/s/blog_5538ddac01009vgy.html