[Perl]对 EXCEL 文件进行简单操作

[Perl]对 EXCEL 文件进行简单操作

不說廢話，直接上code：

#!/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("D:\\Users\\user\\workspace\\perl_test_excel\\test.xlsx"); # 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);print "hello;\n";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        print "hello2;\n";        printf "At ($row, $col) the value is %s and the formula is %s\n",        $Sheet->Cells($row, $col)->{'Value'} = "1",        $Sheet->Cells($row, $col)->{'Formula'} ;        print "hello3;\n";    }}print "hello4;\n";# clean up after ourselves$Book->Close;=comment#请注意，您可以用以下方式很轻松地为单元分配值：#$sheet->Cells($row, $col)->{'Value'} = 1;　#讀取某個值,會在稍後補充。=cut