perl module: Win32::OLE

文章从学习笔记中摘出来，如有从其他地方转贴，请指正！！

#从一个excel里复制一工作表到另一excel中
$src_book->Worksheets(1)->Copy($dst_book->Worksheets('sheet3'));  

Example:

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

my $Book = $ex->Workbooks->Add();

my @list = ([ undef, 'Xyzzy', 'Plugh' ],

                                   [ 42,    'Perl',  3.1415  ]);

my $sheet = $Book->Worksheets(1);

my $i=1 ;

my $j=1;

for $i(1..3){

for $j(1..3){

$sheet->Cells($i,$j)->{Value} = $list[$i-1][$j-1];

}

}

  $Book->SaveAs("test.xlsx");

  exit;