my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
	|| Win32::OLE->new('Excel.Application', 'Quit');
$Excel->{DisplayAlerts}=0;
my $Book = $Excel->Workbooks->Open($excel_file);