foxpro:将表写入excel

oleApp = CREATEOBJECT("Excel.Application")

oleapp.workbooks.add

oleapp.visible=.t.

SELECT ls

*写入表的标题

oleapp.cells(1,10).value="这是我的表"

*oleapp.cells(1,10).font.fontname="黑体"

oleapp.cells(1,10).font.size=24

nfieldcount=AFIELDS(alist)

nreccount=RECCOUNT()

*先写字段名

FOR j=1 TO nfieldcount

oleapp.cells(2,j).value=FIELD(j)

ENDfor

*写入字段值

i=1

scan

FOR j=1 TO nfieldcount

oleapp.cells(i+2,j)=trans(eval(alist(j,1)))

ENDFOR

i=i+1

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

oleapp.quit