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

轉載于:https://blog.51cto.com/gzkhrh/302193

總結

以上是生活随笔為你收集整理的foxpro:将表写入excel的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。