一个perl操作excel的例子
2011-08-10 11:47
417 查看
#!/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->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit'); my$excelfile='E:\学习程序\perl\excelfile.xls'; #关闭警告信息,例如保存等,不跳出确认窗口 $Excel->{DisplayAlerts}=0; #创建一个workbook #my $Book=$Excel->Workbooks->Add(); # $Book->SaveAs($excelfile); # 增加一个workbook,然后保存 #直接打开一个excel 若存在 my$Book=$Excel->Workbooks->Open($excelfile); #创建一个worksheet对象 my $Sheet = $Book->Worksheets("Sheet1"); # $Sheet->Activate(); # $Sheet->{Name} = "DidItInPerl"; #插入数据 my ($mday,$mon,$year) = (localtime(time))[3,4,5]; $year += 1900; $mon += 1; my $str = $year."/".$mon."/".$mday; #Range 行方法 $Sheet->Range("C1")->{Value}=$str; $Sheet->Range("D1")->{Value}="今天的日期"; #迭代插入数据 foreach my$x (1 ..50) { my$range="A".$x; $Sheet->Range($range)->{Value}="这是第$range行"; } #循环访问sheet my $sheetcnt = $Book->Worksheets->Count(); foreach (1..$sheetcnt){ print "\t" .$Book->Worksheets($_)->{Name} ."\n"; } foreach my $Sheet(in $Book->{Worksheets}){ print "\t" .$Sheet->{Name} ."\n"; } #找到最后一行 最后一列方法 my $LastRow = $Sheet->UsedRange->Find({What=>"*", SearchDirection=>xlPrevious, SearchOrder=>xlByRows})->{Row}; my $LastCol = $Sheet->UsedRange->Find({What=>"*", SearchDirection=>xlPrevious, SearchOrder=>xlByColumns})->{Column}; print "最后一列:",$LastCol,"\n"; print "最后一行:",$LastRow,"\n"; #读取第一行到最后一行数据 print "#" x80,"\n"; print "读取A列第一行到最后一行数据\n"; my$tmp; foreach my$last_data (1..$LastRow) { $tmp=$Sheet->Range("A".$last_data)->{Value}; print "第$last_data行数据:",$tmp,"\n"; }#学习来源perlmonks.org
http://13angel.iteye.com/blog/602486
相关文章推荐
- 一个很简单的操作excel的例子
- PHP操作excel的一个例子
- PHP操作excel的一个例子
- 一个POI操作Excel简单例子
- poi操作Excel的一个小例子
- 一个QTP中用ADO操作Excel的例子
- jxls操作Excel表的导出,一个简单的例子
- JAVA对Excel的操作小例子一则
- 自己做的一个操作索引的例子
- 关于:读写xls文件,提供下载的一个小例子(jxl 的简单运用) - 高级操作
- C# 串口操作入门篇,一个标准的,简陋的串口例子。
- jdbc事务回滚 批量操作数据 一个例子
- 自己写的一个使用ADO操作ACCESS数据库的例子
- 连接excel执行Insert Into语句出现“操作必须使用一个可更新的查询”的解决
- 关于Python操作excel过程中,将多个内容写到同一个excel的不同sheet页的处理
- linux 下文件操作和内存映射的一个简单例子
- C# 串口操作系列(1) -- 入门篇,一个标准的,简陋的串口例子。
- Excel 二次开发系列(4): 操作一个已经存在Excel
- [构思]设计&实现一个执行Excel的Import&Export操作的类
- C#调用操作Excel的一个类