Perl实现将将.txt中内容写入到excel中

#写文件到excel
#输入：待写入到excel表中的.txt文件
#输出：excel文件，注意要用绝对路径

#####################################################
use strict;
use Win32;
use Cwd;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;                                # die on errors...

# get already active Excel application or open new
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new('Excel.Application','Quit');
use Encode;

my $infile1="a.txt";
my $outexcel1="E:/PerlCode/cyliu/a.xlsx";
open IN1,"$infile1"
or die "could not open the input file!";

my $Book = $Excel->Workbooks->Open("$outexcel1") or die "Could not open the $outexcel1 !!!n";
my $Sheet = $Book->Worksheets(1);
my $row=0;
my %hangye;
my %num;
my %word;
my %word1;
while(my $aline=<IN1>)
{
  $row++;
  print $row."n";
  $aline=~s/n$//;
  my @array=split(/t/,$aline);

  $Sheet->Cells($row,1)->{'Value'}=$array[0];
  $Sheet->Cells($row,2)->{'Value'}=$array[1];

  $Sheet->Cells($row,3)->{'Value'}=$array[2];
  $Sheet->Cells($row,4)->{'Value'}=$array[3];#$big.":".$name{$big};
  $Sheet->Cells($row,5)->{'Value'}=$array[4];
	$Sheet->Cells($row,6)->{'Value'}=$array[5];
}
$Book->Close;