Perl 利用Win32::OLE操作Excel 技巧和诀窍

我翻译这个教程的目的就是为了回答Perl利用Win32::OLE操作Excel的有关问题，这些问题会经常遇到，但是没有一个浅显易懂的教程。如果你懂Perl，又有点VBA的知识，那么这篇短小精悍的教程你肯定轻松拿下。

我要涵盖许多主题，从处理日期和执行边界，大小列，关闭那些讨厌的警告对话框，遍历工作表和底纹和格式的单元格及其内容的集合。

资源

你需要一个很好的对象资源管理器来映射合适的方法，对象和每个接口的属性。因为正好我有VB和VC++在我的电脑上，所以VB自带的对象浏览器将适当的项目关联起来（实际上，为了轻松实现引用，我给所有OFFICE对象创建了带引用的空项目）。如果你没有VB，dont worry be happy，你可以用ActiveState的帮助文档找到需要的资料，我推荐Jan Dubois写的"Win32::OLE - Type Library Browser"。下面就开始正式的代码旅程了。

代码

  
  

   
   #!c:perlbin use strict; use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Excel'; use Win32::OLE::Variant; use Win32::OLE::NLS qw(:LOCALE :DATE); $Win32::OLE::Warn = 3; # Die on Errors. # ::Warn = 2; throws the errors,but # # expects that the programmer deals # my $excelfile = '<MYPATH>perltut.xls'; 
  
  

  
  

   
   ?
  
  

首先，我们需要一个EXCEL对象，如果没有打开的EXCEL代谢，那么我们创建一个新的EXCEL对象，并定义其如何退出。

my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application','Quit');?

针对此程序，我用DisplayAlerts属性关闭了讨厌的警告对话框。

$Excel->{DisplayAlerts}=0;??

现在，我们为刚创建的EXCEL对象，添加一个新的WORKBOOK，并保存为刚才定义的文件名$excelfile。

my $Book = $Excel->Workbooks->Add(); $Book->SaveAs($excelfile); #Good habit when working with OLE,save+often.

当然我们可以像下面这样轻松打开已经存在的WORKBOOK。

my $Book = $Excel->Workbooks->Open($excelfile);