孤独的猫

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

在windows中,可以用哪个Win32::OLE来操作excel,如:

#!/usr/bin/perl -w 
use Win32::OLE;
$class = 'Excel.Application'; 
$app = Win32::OLE->new( $class ) or die "Cannot connect to Excel, $!"; 
$app->{'Visible'} = 1; 
$app->Workbooks->Add(); 
# Set values in a "range". 
$app->Range("A1")->{'Value'} = "A"; 
$app->Range("B1")->{'Value'} = "B"; 
$app->Range("B2")->{'Value'} = "C"; 
$app->Range("C2")->{'Value'} = "D"; 
$app->Range("B3")->{'Value'} = 10; 
$app->Range("C3")->{'Value'} = 10; 
# Leave Excel running. Use $app->Quit() to exit. 
$app->Quit();

posted on 2011-05-10 20:59  孤独的猫  阅读(412)  评论(0编辑  收藏  举报