有人用perl处理过excel信息吗？

黑色的小黑麦

我想从excel里提取从第一行到第200行中的第一列数据（A1到A200），我的程序如下：

use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Excel';

$Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application');
$Excel->{'Visible'} = 0;                #0 is hidden, 1 is visible
$Excel->{DisplayAlerts}=0;        #0 is hide alerts

my $Book = $Excel->Workbooks->Open ('D:\ATH1probes.xls');

my @Range = $Sheet->Range("A1:A200")->{'Value'}=1;

@Range->SaveAs({Filename =>'D:\modified2.xls',
              FileFormat => xlWorkbookNormal});  
$Book->Close();
$Excel->Quit();

运行时，系统提示错误信息：Can't call method range on an undefined value at excel.pl line 12（这一行命令用粗体表示如上）.

这个系统提示是什么意思？
本人青蛙，请轻拍。

zhlong8

$sheet 哪里来的？你怎么不开警告和 strict