perl操作excel

最新推荐文章于 2024-06-16 17:46:30 发布
最新推荐文章于 2024-06-16 17:46:30 发布
阅读量364 收藏
点赞数
分类专栏： 开发小记 perl
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/zengshaotao/article/details/84752366
版权
本文介绍使用Perl语言通过Spreadsheet::ParseExcel和Spreadsheet::WriteExcel模块读取和写入Excel文件的方法，并对比了OLE方式的操作效率。展示了如何生成乘法表及注意事项。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

#!/usr/bin/perl -w
#用Spreadsheet::ParseExcel 显示一个工作薄的所有表的内容。
 
use strict ;
use warnings ;
 
use Spreadsheet:: ParseExcel ;
 
my $file = 'Demo.xls' ;
 
my $book = Spreadsheet::ParseExcel:: Workbook -> Parse ( $file );
my @sheets = @ { $book -> { Worksheet } };
foreach my $sheet ( @sheets ){
     my $sheetName = $sheet -> get_name ();
     print "工作表: $sheetName\n" ;
 
     my ( $minRow , $maxRow ) = $sheet -> row_range ();
     my ( $minCol , $maxCol ) = $sheet -> col_range ();
 
     foreach my $row ( $minRow .. $maxRow ){
         foreach my $col ( $minCol .. $maxCol ){
             my $cell = $sheet -> get_cell ( $row , $col );
             next unless $cell ;
             print " ($row,$col) " , $cell -> value ;
         }
         print "\n" ;
     }
}

 

 

再来段写Excel的代码：

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl -w
#用Spreadsheet::WriteExcel，生成乘法表，实际从第2行第2列开始，因为0行0列才是第一行第一列。
 
use strict ;
use warnings ;
 
use Spreadsheet:: WriteExcel ;
 
my $file = 'Demo_write.xls' ;
my $sheetName = 'My sheet' ;
 
my $book = new Spreadsheet:: WriteExcel ( $file );
my $sheet = $book -> add_worksheet ( $sheetName );
 
foreach my $row ( 1 .. 9 ){
foreach my $col ( 1 .. 9 ){
$sheet -> write ( $row , $col , ( $row * $col ) );
}
}
 
$book -> close ();

 

 

对这个不是太熟，但从目前我了解情况看，Spreadsheet只能分别读写，不能对一个工作簿既读又写。

如果想既读又写，还得找Microsoft，用OLE。

这里只是简单演示一下用法，还是像上面一样分别来看看读写操作，不混合读写。

用OLE读Excel：

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#!/usr/bin/perl -w
#用OLE，显示一个工作薄的所有表的内容。
 
use strict ;
use Win32:: OLE qw(in with) ;
use Win32::OLE:: Const 'Microsoft Excel' ;
$ Win32::OLE:: Warn = 3 ; # die on errors...
# get already active Excel application or open new
my $Excel = Win32:: OLE -> GetActiveObject ( 'Excel.Application' ) || Win32:: OLE -> new ( 'Excel.Application' , 'Quit' );
 
my $file = 'Demo.xls' ;
my $value = 0 ;
 
my $book = $Excel -> Workbooks -> Open ( $file );
foreach my $Sheet ( in $book -> { Worksheets })
{
     my $sheetName = $Sheet -> { Name };
     print "工作表: $sheetName\n" ;
 
  my $minRow = 1 ;
  my $maxRow = $Sheet -> UsedRange -> Rows -> Count ;
  my $minCol = 1 ;
  my $maxCol = $Sheet -> UsedRange -> Columns -> Count ;
     printf ( "row,col:%d,%d\n" , $maxRow , $maxCol );
     foreach my $row ( $minRow .. $maxRow ){
         foreach my $col ( $minCol .. $maxCol ){
             my $cell_value = $Sheet -> Cells ( $row , $col ) -> { Value };
             next unless defined $cell_value ;
             print " ($row,$col) " , $cell_value ;
         }
         print "\n" ;
     }
}
$book -> Close ();
$Excel -> Quit ();

用OLE写Excel：

 

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/perl -w
#用OLE 操作excel，生成乘法表。
 
use strict ;
use Win32:: OLE qw(in with) ;
use Win32::OLE:: Const 'Microsoft Excel' ;
$ Win32::OLE:: Warn = 3 ; # die on errors...
 
my $Excel = Win32:: OLE -> GetActiveObject ( 'Excel.Application' ) || Win32:: OLE -> new ( 'Excel.Application' , 'Quit' );
 
my $excelfile = "Demo4.xls" ;
 
my $Book = $Excel -> Workbooks -> Add ();
    $Book -> SaveAs ( $excelfile ); #Good habit when working with OLE, save+often.
my $Sheet = $Book -> Worksheets ( "Sheet1" );
    $Sheet -> Activate ();
foreach my $row ( 1 .. 9 ){
foreach my $col ( 1 .. 9 ){
         $Sheet -> Cells ( $row , $col ) -> { Value } = ( $row * $col );
     }
}
# my $Chart = $Sheet->ChartObjects->Add(200, 200, 200, 200);
$Book -> Save ();
$Book -> Close ();
$Excel -> Quit ();

 

 

到底用哪种好呢？这要看情况：

1.非windows环境，不能用OLE。多平台下，Spreadsheet可用性更好。

2.在windows下，同样水平的代码，用OLE效率更高一些。

3.Spreadsheet用起来更简单一些，OLE要考虑的东西要多些。

 

对一个约一万行左右，200多列的工作表进行读取并处理，Spreadsheet用了30s左右，OLE用了18s左右。

在Perl程序里处理Excel要注意，尽量少调用Excel的函数或变量。

如：

 

[plain]  view plain copy
 
  1. $myCell = $sheet->get_cell( $row, $col );  
  2. $aValue =$myCell->value;  
  3. forearch .....{  
  4.     if($myCell->value == ...){#here  
  5.     ....  
  6.     }  
  7. }  

 

 

如果把#here行里的$myCell->value改为$aValue（保证代码运行正确情况下的修改），可以提高效率。

这样的修改有时能提高3、4倍的性能（这个依赖具体情况）。

还有一点要注意，Spreadsheet里行列是从0开始的，OLE里行列是从1开始的

perl处理Excel(跨平台)
weixin_34235371的博客
03-28 844
前言 更多内容，请访问我的 个人博客。 前言 用perl处理excel有两种流行的模块：一种是 win32:OLE 模块，优点是功能强大，在excel上能做的事情用这个模块都能做，缺点是无法跨平台，必须在win系统上使用且必须安装office软件；另一种是 Spreadsheet 模块，优点是跨平台，不依赖系统和软件，缺点是功能不是很多，但基本功能都能实现。 如果在win平台处理excel，建议...
Perl操作Excel文档
luxiuwen的专栏
06-22 1356
如何通过perl来对Excel文件做读写操作呢？CPAN上提供了Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel两个模块。通过这两个模块，我们就可以读写和创建Excel文件了。 下面就来看看 Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel的使用方法。 在使用这两个模块之前，首先要在服务
Perl 操作 excel
zhubinqiang的专栏
08-04 1524
参考与 http://www.jb51.net/article/33679.htm先安装Spreadsheet-ParseExcel和Spreadsheet-读取ExcelBook.xls sheet1XML FPS CPU GPU Memory 001 12 3.9 19.3 14.5 002 17 10 17.2 25.7 003 15 28 51.7 36.4 00
Perl处理Excel文件
热门推荐
caz28的专栏
09-04 1万+
现在很多数据是以Excel文件格式保存的，对人来讲修改添加都比较方便，但程序处理就比较麻烦。 要对Excel里的数据进行加工，首选VBA，Microsoft一家的东西，肯定最搭。 但不喜欢VBA的风格，还是用自己熟悉的其他语言解决，python的能处理csv的，但转来转去总不是太好。 也有写python的Excel处理模块，但都是python2.x的。 还好我机器上有Perl，就用Perl
用Perl操作Excel2007 (xlsx) with Excel-Writer-XLSXL
11-06
### 使用Perl操作Excel 2007 (xlsx) 文件：详解Excel::Writer::XLSX模块 在IT领域，特别是数据分析、报表制作等场景中，能够高效地读写Excel文件是一项重要的技能。Perl作为一种功能强大的脚本语言，在处理文本和...
Perl操作Excel：读写文件技术解析
为了开始使用Perl操作Excel，需要通过CPAN（Comprehensive Perl Archive Network）来安装所需的Perl模块。可以通过命令行使用`cpan`命令来安装模块，例如： ``` cpan Spreadsheet::ParseExcel cpan Spreadsheet:...
Perl操作Excel2007 (xlsx)：使用Excel-Writer-XLSXL教程
本文档主要介绍了如何使用Perl操作Excel 2007 (xlsx) 文件格式，借助于名为'Excel::Writer::XLSX'的模块。这个模块允许开发者通过Perl编写代码来创建、修改和管理Excel 2007及后续版本的XLSX文件，这是一种基于XML的...
掌握Perl操作Excel的Win32::OLE模块
使用Win32::OLE来操作Excel，可以让Perl脚本执行如数据报表生成、自动化数据处理等任务，极大地扩展了Perl的应用场景。 4. Perl脚本中使用Win32::OLE 在Perl脚本中使用Win32::OLE模块时，首先需要通过关键词“use ...
Perl操作Excel表格的利器 - Spreadsheet-Perl模块解析
3. 转换电子表格格式：除了操作Excel文件，Perl模块还可以用于转换电子表格文件到其他格式，如CSV或HTML等，以便于数据的进一步处理或在不同平台和应用程序之间分享。 4. 复杂数据操作：Perl的电子表格模块支持执行...
perl操作Excel示例
08-30
perl操作Excel示例perl操作Excel示例perl操作Excel示例perl操作Excel示例perl操作Excel示例perl操作Excel示例perl操作Excel示例perl操作Excel示例perl操作Excel示例....够20字了吗
Perl读写excel
04-29
讲解perl中读写excel用到的库函数，以及如何使用库函数进行操作。
perl Excel操作
03-30
perlperl Excel操作
perl 操作 excel 简单例子
每天学习一小时
02-25 395
#!/usr/bin/perl use strict; use warnings; use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Excel'; use Win32::OLE::NLS qw(:LOCALE :TIME); my $Excel = Win32::OLE->GetActiveObje...
Perl对Excel文件的各种操作
田发江的专栏
01-15 1496
use strict;use Cwd;use strict subs;use Win32::OLE qw(in);use Win32::OLE::Variant;$Win32::OLE::Warn = 3;         # die on errors...my@files=("1.xls","2.xls","3.xls","4.xls","5.xls","6.xls"); foreac
【Perl】与【Excel】
最新发布
记录所学，分享知识，结识挚友
06-16 1128
perl脚本语言对于文本的处理、转换很强大。对于一些信息量庞大的文本文件，看起来不直观，可以将信息提取至excel表格中，增加数据分析的可视化。perl语言的cpan提供了大量模块。第一个用于对现有excel 表格的解析，第二个用于创建新的excel文件。如果单纯是将文本信息提取到excel表格中其实第二个模块用的更多。看自己需求吧。
使用perl读写excel表格
sirix的专栏
05-14 4025
用perl读写excel表格1. 说明：最近对perl很感兴趣，正好朋友问我一个excel的问题，不想用宏来写，就用perl练了练手。　所用相关知识如下: 1) perl hash 2) win32::ole,对excel表格控制 3) drag&drop的实现 4) perl2exe,将perl程序转换为windows可执行文件2.需求2.1 功能需求：表格
Perl 操作Excel总结
LOVE维维&贝贝
02-22 9630
最近使用Perl进行Excel文档的生成和读取操作，总结如下。总的说来以下几个模块都可以实现： 1： Win32::OLE  ---- 专用于Windows，可以读取修改已存在的Excel文档. 2：Excel::Writer::XLSX 和 Spreadsheet::WriteExcel ---- 只能生成新的Excel文档 3： Spreadsheet::ParseExcel ----
perl操作excel(更新+编辑excel)(更新+VLOOKUP公式使用+#VALUE!错误)
JkunZhang的专栏
05-16 2841
1、perl使用 use Spreadsheet::ParseExcel;和 use Spreadsheet::WriteExcel; 不能同时读写同一个excel文件。       用 Win32::OLE ---- 专用于Windows 貌似可以，不过linux下不行。 2、perl处理excel用到的公式和格式：        http://search.cpan.org/~jmc
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值