# Format excel spreadsheet for results $excel = CreateObject OLE "Excel.Application" || die "CreateObject : $ +!\n"; $excel -> Application -> {SheetsInWorkbook} =1; $excel -> {Visible}=1; $excel -> Workbooks -> Open; system('cmd /c "C:/WINNT/Profiles/banirt00/Application Data/Microsoft/ +Queries/remedy_rd.dqy"'); sleep(30); $excel->ActiveWorkbook->SaveAs({xlFileName =>"c:/remedy2.csv", xlFileF +ormat => xlCSVWindows} ) or warn("Couldnt save file: $!\n"); $excel->ActiveWorkbook->Close ( {xlSaveChanges => False} ); $excel-> Application -> Quit;
In reply to csv output by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |