给你一小段我的代码:
OLEObject eole
eole = CREATE OLEObject
eole.ConnectToNewObject('Excel.application')
eole.Workbooks.Open(dbpath+"报表模版.xla")
//eole.Workbooks.Open("D:\部门\报表模版.xla")
eole.visible=false
eole.ScreenUpdating = False  
SetPointer(HourGlass!)
//opensheetwithparm(w_msg,'正在生成'+dwbm+'单位的表',w_main,8,original!)
//编码
DECLARE sel_name CURSOR FOR select 编码,名称 from km;
open sel_name;
fetch sel_name into :str1,:str2;
eole.worksheets(9).activate
i=2
do while sqlca.sqlcode=0
    eole.cells(i,1).value=str1
    eole.cells(i,2).value=str2
    i++
    fetch sel_name into :str1,:str2;
loop
close sel_name;

//保存并关闭
if FileExists(bbdir+"\"+dwbm+"报表.xls") then
    FileDelete(bbdir+"\"+dwbm+"报表.xls")
end if
eole.ActiveWorkbook.SaveAs(bbdir+"\"+dwbm+"报表.xls")
eole.Workbooks.close
eole.quit
eole.DisconnectObject()
DESTROY eole