WIN32::OLE操作之excel

工作关系，近期有用perl来处理大量.c/.h里特殊字串，并统计到一张excel中。也着实体验了一把perl处理文本的高效，4-5days的工作量在5-6mins就给做好了。

因为是新手，以下的demo code难免一些抄袭的痕迹（heh），至此向那些share这块经验的高手致敬。

use strict;
use Cwd;

#引入OLE模块
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';


# use existing instance if Excel is already running
#About how to use the Win32::OLE, please read the help document.
#the first part you can get is from perldoc win32::OLE
#another is the manual, a part of the manual of office ,you can find it in your system if you installed the Windows Family Office software
#the path location is C:/Program Files/Microsoft Office/OFFICE11/1033,the file name is VBAXL10.CHM
#In advance, I find there are many manuals about the Win32::OLE, such as VBAWD10.CHM is for "Word Object Model";
#VBAPP10.chm is for "PowerPoint Object Model"
#VBAPB10.CHM is for "Publisher Object Model "
#VBAOL11.CHM is for "Outlook Object Model"
#XMLSDK5.CHM is for "MSXML 5.0 SDK"
#and so on. 

#create an instance
my $ex;
$ex = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;}) or die "Oops, cannot start Excel";

# set property
$ex->{DisplayAlerts} = 'True';#打开excel提供，比如是否保存修改之类的 ？？？但是设置为False，貌似同样有提示，不过不影响大局，暂不关注~_~ 

#add a workbook
my $book = $ex->Workbooks->Add;

#get the current absolute path，and set the filename
my $dir = getcwd;
my $file_name = "\\test1.xls";

#save as,will be saved as test1.xls in current folder
$book->SaveAs($dir.$file_name);

# select the sheet want to modify
my $sheet = $book->Worksheets("Sheet1"); #sheet对象

#set the column width
$sheet->Columns("A")->{ColumnWidth} = 30;
$sheet->Columns("B")->{ColumnWidth} = 10;
$sheet->Columns("C")->{ColumnWidth} = 30;
#$sheet->Columns("A:C")->{ColumnWidth} = 10; #set A B C columnwidth to 10

#rename sheet
$sheet->{Name}= "Demo";
#delete sheet2
$book->Worksheets("Sheet2")->Delete;

# init cells
my $rng = $sheet->Range('A1:C1');

my $exTitle;
$exTitle->[0][0] = "Title A";
$exTitle->[0][1] = "Title B";
$exTitle->[0][2] = "Title C";

# let the cell as txt format'
$rng->{'NumberFormat'}="/@";    

#init the cells in the range
$rng->{Value} = $exTitle;

#set autofilter property
$rng->{AutoFilter} = 1;

#start parse
print "start parse files...\n";


my$i = 2;
while(1)
{
  my$rangeA = "A".$i;
 my$rangeB = "B".$i;
  my$rangeC = "C".$i;
  
  my$parseStr;
  $parseStr->[0][0] = "Macro Name".$i;
  $parseStr->[0][1] = "rate".$i;
  $parseStr->[0][2] = "Filename".$i;
  
  $sheet->Range($rangeA)->{Value} = $parseStr->[0][0];
  $sheet->Range($rangeB)->{Value} = $parseStr->[0][1];
  $sheet->Range($rangeC)->{Value} = $parseStr->[0][2];
  
  $rng = $sheet->Range($rangeA.':'.$rangeC);

# let the cell as txt format'
  $rng->{'NumberFormat'}="/@";    
  
  $rng->{Value} = $parseStr;
  
  $i++;
  if($i>30)
  {
   last;
  }
}


$rng->{value} = "the last cell";


#read data from cell
my $val = $sheet->Range('A1')->{value};
print "Get data from excel cell A1:$val/n";



# save and exit
print "finish";
$book->Save();
$ex->Quit;
undef $book;
undef $ex;