Select Code to Download

$excel = Win32::OLE->new('Excel.Application', 'Quit');
$workbook = $excel->Workbooks->Open<copied file name>)
$worksheet = $excel->ActiveWorkbook->Worksheets(“sheet1”);

$excel->Workbooks(1)->SaveAs(<copied file name>)   or ($excel_res = 0,
+ $ew_message = "Could not save spreadsheet <copied file name>);
$en_num = Win32::GetLastError();
$en_err = "message <" . Win32::FormatMessage($en_num) . "> number <" .
+ $en_num . ">";
$ew_message = "<" . $ew_message . "> is just after saving part file\n"
+ .
        "system error text <$en_err>\n";