求助：从文本文件读数据到excel

大家帮我看看什么原因，多谢

sub handle_excel_OMS {
        my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');  
        my $Book = $Excel->Workbooks->Open("C:\\many\\perl\\1410\\OMS-log.xls");
        $r=1;
                        foreach $file_name(@file_name_OMS) {
                                        open(MYFILE,"Y:\\compare_xml\\$file_name.txt") || die("Could not open file");
                                        while(<MYFILE>) {
                                        chomp;
                                        $C=$_;
                                        if(m/\|/){
                                                                ($A,$B)=split(/\|/,$_);
                                                                                        foreach $sheet_name(@file_sheet_OMS){
                                                                                                        $sheet = $Book->Worksheets($sheet_name);
                                                                                                        #$cell = $sheet->Cells($r,'A');
                                                                                                        $sheet->Cells($r,'A')->{Value} = $A;
                                                                                                        $sheet->Cells($r,'B')->{Value} = $B;
                                                                                                               
                                                                                        }
                                        }
                                                                       
                                        else{$sheet->Cells($r,'A')->{Value} = $C;}
                                        $r++;
                                        }
                        }
}
&handle_excel_OMS;


执行后老报这个错

Can't call method "Cells" on an undefined value at excel.pl line 61, <MYFILE> line 1.

提示很明确对一个 undef 值调用 Cells 方法了，至于是哪一行错误信息不足不知道。

对VBA一步步查，也可以知道Perl的问题所在。
值print出来看啊。

写之前先用defined检查一下？如果未定义的话给个默认值，比如空格之类。