编程将表写进一个xls文件中

求助：编程将表写进一个xls文件中
oleApp = CREATEOBJECT("Excel.Application")
oleapp.workbooks.add
oleapp.visible=.t.
SELECT backdata
oleapp.cells(1,10).value="这是我的表"
*oleapp.cells(1,10).font.fontname="黑体"
oleapp.cells(1,10).font.size=24
*写入表的标题
FOR j=1 TO FCOUNT()
oleapp.cells(2,j).value=FIELD(j)
*先写字段名
ENDfor

*FOR i=1 TO RECCOUNT()
*FOR j=1 TO FCOUNT()
*oleapp.cells(i+2,j).value=相应的字段值------------》这里如何解决？
*ENDfor
*GO i
*endfor

OleApp.ActiveWorkbook.SaveAs("c:\TEMP.XLS")
oleapp.quit

------解决方案--------------------
*oleapp.cells(i+2,j).value=相应的字段值------------》这里如何解决？

在最外层循环前，先获取表字段列表，存入：
aFieldList = afield("t_Source_Table") &&假如表别名为：t_Source_Table

内层循环中更改为以下：
*oleapp.cells(i+2,j).value = aFieldList(j, 1)

------解决方案--------------------
oleapp.cells(i+2,j).value = trans(eval(alist(j,1)))