Win32::OLE 连续打开关闭文件无法执行的问题

zhn158

1. #!perl -w
   
2. use strict;
   
3. use 5.010;
   
4. use Win32::OLE;
   
5. use Win32::OLE::Const 'Microsoft Excel';
   
6. $Win32::OLE::Warn = 3;
   
7. 
   
8. sub open_excel_file {
   
9.   my $file_name = shift;
   
10.   my $excel = Win32::OLE -> GetActiveObject('Excel.Application') ||
    
11.       Win32::OLE->new('Excel.Application', 'Quit');
    
12.   my $workbook = $excel -> Workbooks -> Open($file_name);
    
13.   $workbook -> Close();
    
14. }
    
15. 
    
16. &open_excel_file("E:/week/test1.xlsx");
    
17. &open_excel_file("E:/week/test2.xlsx");

复制代码

报错：

1. Win32::OLE(0.1709) error 0x80010108: ""
   
2.     in METHOD/PROPERTYGET "" at E:\week\test.pl line 12

复制代码

如果在第16和17行之间插入：

1. my $number = 99999;
   
2. while (  $number >= 0 ) {
   
3.   $number--;
   
4. }

复制代码

就能正常运行，而且 $number 还不能太小，例如，如果 $number=10000, 就会报错：

1. Win32::OLE(0.1709) error 0x80010108: "" at E:\week\test.pl line 10
   
2.         eval {...} called at E:\week\test.pl line 10
   
3.         main::open_excel_file('E:/week/test2.xlsx') called at E:\week\test.pl line 21

复制代码

这种问题怎么解决呀？期待.....

ynchnluiti

把 $excel 当成参数传给open_excel_file()？

http://www.perlmonks.org/?node_id=787586

wxlfh

把Win32::OLE对象放在函数外面，并且当参数传给函数。