Select Code to Download

    $excel = Win32::OLE->new('Excel.Application', 'Quit') or ($cell_re
+s = 0);

    $excel->Cells($row, $col)->{Value} = $heading_item;

$excel->Workbooks(1)->SaveAs($manu_sprd)  or ($excel_res = 0, $ew_mess
+age = items spreadsheet");