//  Connection to Excel objects 
OLEObject lo_Excel 
OLEObject lo_Sheet 
OLEObject lo_Workbook 


//  Hookup to the Excel Document 
lo_Excel = CREATE OLEObject 
li_Result = lo_Excel.ConnectToNewObject ( "excel.application" ) 
IF li_Result < 0 THEN 
 ...error handling goes here 
END IF 


//  Open the excel file 
lo_Excel.Application.Workbooks.Open ( ls_destination ) 
lo_Workbook = lo_Excel.Application.ActiveWorkbook 
lo_Sheet = lo_Excel.Application.ActiveSheet 


//  Move in the various header stuff that we know about 
lo_Sheet.Range("Q3").Value = ls_Month 
lo_Sheet.Range("T3").Value = ls_Year 
lo_Sheet.Range("AD2").Value = ls_Timebase 
lo_Sheet.Range("AG2").Value = ls_Workgroup 
lo_Sheet.Range("AJ2").Value = ls_Cbid 
lo_Sheet.Range("A7").Value = ls_Firstname 
lo_Sheet.Range("M7").Value = ls_Lastname 
lo_Sheet.Range("AD7").Value = ls_PositionNumber 
IF NOT IsNull ( is_NineEightEighty ) THEN 
 lo_Sheet.Range("AH4").Value = "x" 
 lo_Sheet.Range("AJ16").Value = is_NineEightEighty 
 lo_Sheet.Range("AK17").Value = string ( li_Hours, '000' ) 
ELSE 
 lo_Sheet.Range("AJ16").Value = "" 
END IF 


lo_Workbook.Save() 
lo_Workbook.Close() 


lo_Excel.Application.Quit 
lo_Excel.DisconnectObject()