用 Perl 讀寫 Excel 檔案

標籤：

安裝 Excel 模組的 PPM 命令

ppm> install OLE::Storage_Liteppm> install Spreadsheet::ParseExcelppm> install Spreadsheet::WriteExcel

Windows 樣本：解析

#!/usr/bin/perl -wuse 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 newmy $Excel = Win32::OLE->GetActiveObject(‘Excel.Application‘)    || Win32::OLE->new(‘Excel.Application‘, ‘Quit‘);  # open Excel filemy $Book = $Excel->Workbooks->Open("c:/komodo projects/test.xls"); # You can dynamically obtain the number of worksheets, rows, and columns# through the Excel OLE interface.  Excel‘s Visual Basic Editor has more# information on the Excel OLE interface.  Here we just use the first# worksheet, rows 1 through 4 and columns 1 through 3.# select worksheet number 1 (you can also select a worksheet by name)my $Sheet = $Book->Worksheets(1);foreach my $row (1..4){ foreach my $col (1..3){  # skip empty cells  next unless defined $Sheet->Cells($row,$col)->{‘Value‘}; # print out the contents of a cell    printf "At ($row, $col) the value is %s and the formula is %s\n",   $Sheet->Cells($row,$col)->{‘Value‘},   $Sheet->Cells($row,$col)->{‘Formula‘};         }}# clean up after ourselves$Book->Close;

賦值：

$sheet->Cells($row, $col)->{‘Value‘} = 1;

用 Perl 讀寫 Excel 檔案