As an example of the code, below is the line use to open a spreadsheet.

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

The next line is typical of how I write to one of the cells

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

This is how I save the spreadsheet.

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

The only actual error message was a Microsoft dialog box that said
Can't find spreasheet'
but as indicated initially, a written spreadsheet had one column missing and two columns swapped in position.