//  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()

long numcols , numrows , c, r
OLEObject xlapp , xlsub
int ret

// Set the # of columns and rows to process
// Currently Set to copy the entire DW

numcols = long(dw_1.Object.DataWindow.Column.Count)
numrows = dw_1.RowCount()

// Create the oleobject variable xlapp
xlApp = Create OLEObject

// Connect to Excel and check the return code
ret = xlApp.ConnectToNewObject( "Excel.Sheet" )
if ret < 0 then
  MessageBox("La connection à Excel a échoué !",string(ret))
return
end if

// Open a particular Excel file
//xlApp.Application.Workbooks.Open("k:\test-bruno.xls") //,false,true
// Make Excel visible
xlApp.Application.Visible = true

// Resolve the Excel reference once
// This technique shortens the script and improves performance
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]

// Loop thru the Datawindow and Excel sheet
// The for/next loop copies all rows for each column
For c = 1 to numcols
For r = 1 to numrows
xlsub.cells[r,c] = dw_1.object.data[r,c]

Next
Next

// Save opened file
//xlApp.Application.Activeworkbook.Save()

// SaveAs a different filename
//xlApp.Application.Activeworkbook.SaveAs("c:\file2.xls")

// clean up
messagebox("Fermeture du document","Avez-vous fini de vous servir du document ?")
xlApp.DisConnectObject()
Destroy xlapp