win32:OLE 运行时报错，求解

hustddb

报错代码如下win32::OLE<0.1709> error ox80020003:""in Method/propertyget"" 这是错误提示 如何解决

代码如下：
my $ex = Win32::OLE->new('Excel.Application') or die "errors\n";
my $xw = $ex->Workbooks->Open("test.xls");
my $sheetxw = $xw->Worksheets(9);

    foreach $fan (@fan)
{

  print ($fan);
$sheetxw->cells($num,4)->{value} = $fan;
      $num++;

}


           $sheetxw->Save;                                                 #保存excel
           $sheetxw->Close;                                                #关闭excel
           $ex->Quit;

hustddb

报错指的位置是 最后3行

ynchnluiti

我用下面代码测试没问题。你检查一下@fan的内容

1. 
   
2. use Win32::OLE;
   
3. 
   
4. my $ex = Win32::OLE->new('Excel.Application') or die "errors\n";
   
5. my $xw = $ex->Workbooks->Open("f:/luyc/perl/test.xls") or die $!;
   
6. my $sheetxw = $xw->Worksheets(1);
   
7. 
   
8. @fan = qw(a b c d e f g h i);
   
9. foreach $fan (@fan)
   
10. {
    
11.     print ($fan);
    
12.     $sheetxw->cells($num,4)->{value} = $fan;
    
13.     $num++;
    
14. }
    
15. 
    
16. $sheetxw->Save; #保存excel
    
17. $sheetxw->Close; #关闭excel
    
18. $ex->Quit
    

复制代码

hustddb

是的 我的@fan 是-18.22 dBm-22.96 dBm-27.43 dBm-25.42 dBm-25.63 dBm-12.15 dBm-12.39 dBm-12.17 dBm
尽管报错可是执行没问题

ynchnluiti

原帖由 hustddb 于 2009-1-13 13:03 发表
是的 我的@fan 是-18.22 dBm-22.96 dBm-27.43 dBm-25.42 dBm-25.63 dBm-12.15 dBm-12.39 dBm-12.17 dBm
尽管报错可是执行没问题

我用这个数据测试一下看看

ynchnluiti

原帖由 hustddb 于 2009-1-13 13:03 发表
是的 我的@fan 是-18.22 dBm-22.96 dBm-27.43 dBm-25.42 dBm-25.63 dBm-12.15 dBm-12.39 dBm-12.17 dBm
尽管报错可是执行没问题

你只用贴出的代码，用这个数据也会报错吗？
我用这个数据没问题。
代码里只改了Worksheets(9) -> Worksheets(1);

hustddb

用你的帖出代码是没问题的 可是 我的@fan 是通过返回正则匹配来的 ，我打出来的@fan 就是我给你的 不知为何就报那个错了

hustddb

@fan 是这样来的
@output1 = $session->cmd(-String => "$TR" , -Timeout => 300);
               $fan="@output1";
               @fan=$fan=~ m/\s+:\s+(.*\sdBm$)/img ;};
               @fan[$num]= $1 ;
               $num++;

hustddb

还有个 提示 也请解决一下 use of uninitialized value $_ in scalar chomp

我是这样用的  open (EXAMPLE,'e:\perl\ZH.txt')||die("error! \n");                     
           @ZH = <EXAMPLE>;
           foreach $ZH(@ZH)
           {
               chomp;
               @output1 = $session->cmd(-String => "$TR" , -Timeout => 300);
               $fan="@output1";
               $fan=~ m/\s+:\s+(.*\sdBm$)/img ;};
               $sheetxw->cells($num,4)->{value} = $fan;
               $num++;
           }

ynchnluiti

原帖由 hustddb 于 2009-1-13 13:57 发表
还有个 提示 也请解决一下 use of uninitialized value $_ in scalar chomp
           foreach $ZH(@ZH)
           {
               chomp; #->chomp($ZH); 或者把上面的$ZH去掉
               @output1 = $session->cmd(-String => "$TR" , -Timeout => 300);
               $fan="@output1";
               $fan=~ m/\s+:\s+(.*\sdBm$)/img ;};#这个花括号？
               $sheetxw->cells($num,4)->{value} = $fan;
               $num++;
           }

foreach 用了变量$ZH
chmop -> chmop($ZH);