>FUNCTION format_xls() >PARAMETERS lcFileSave > >oExcel = CREATEOBJECT("Excel.Application") >oExcel.DisplayAlerts = .F. >oWorkbook = GETOBJECT(lcFileSave) >oWorkbook.WINDOWS[1].ACTIVATE() >oSheet=oWorkbook.activesheet >** format row/cols >oWorkbook.activesheet.ROWS[1].FONT.bold=.T. >** autofit columns- 30=arbitrary >FOR I = 1 TO 30 > WITH oWorkbook.activesheet.COLUMNS[i] > .AUTOFIT() > .COLUMNWIDTH =.COLUMNWIDTH + 1 > ENDWITH >ENDFOR >oSheet.RANGE("A2").SELECT >oWorkbook.WINDOWS[1].FreezePanes=.T. >oSheet.RANGE("A1:T1").AutoFilter >oWorkbook.SaveAs(lcFileSave,-4143) &&Re-save file as current excel version, else truncates results>16,000 odd >oWorkbook.CLOSE() >** quit and release >oExcel.QUIT() >RELEASE ALL LIKE o* >>