求助：从文本文件读数据到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.

zhlong8

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

2gua

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

x9x9

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

shellxn

$Book->Worksheets($sheet_name);

这个函数没记错的话，参数是 1、2、3、4...，即表示第一个sheet,第二个sheet...

shellxn

$Book->Worksheets($sheet_name);

这个函数没记错的话，参数是 1、2、3、4...，即表示第一个sheet,第二个 ...
shellxn 发表于 2011-06-23 09:12

    哦，sheet name也可以，是不是open(MYFILE,"Y:\\compare_xml\\$file_name.txt") 这句没加"<"？

文化苦旅

哦，sheet name也可以，是不是open(MYFILE,"Y:\\compare_xml\\$file_name.txt") 这句没加"
shellxn 发表于 2011-06-23 09:22

    这里好像没有问题，应该在定义excel那里有问题

2gua

算了，你直接用vba吧。