我正在使用 Win32::OLE 模块打开一个 excel 文件并获取行数。问题是当我对 excel 文件路径进行硬编码时,它工作正常,但是当我动态传递路径时,它会抛出一个错误,提示“无法在 unblessed 参考上调用方法工作簿”。请找到以下示例代码。
use OLE;
use Win32::OLE::Const 'Microsoft Excel';
my $xapp= Win32::OLE->GetActiveObject('Excel.Application')
or do { Win32::OLE->new('Excel.Application', 'Quit')};
$xapp->{'Visible'} = 0;
my $file='excel.xlsx';
my $fileName="c:/users/mujeeb/desktop/".$file;
print $fileName;
my $wkb = $xapp->Workbooks->Open($fileName); //here i am getting error coz i am passing dynamic fileName;
my $wks = $wkb->Worksheets('Sheet1');
my $Tot_Rows=$wks->UsedRange->Rows->{'Count'};
print $Tot_Rows."\n";
$xapp->close;