[此贴子已经被作者于2007-2-27 10:33:54编辑过]

不能单独运行的:
贴个简单的
IF MESSAGEBOX("确定要导出数据吗?",4+32,"提示")=6
m.outfilename=PUTFILE("excel文件名:","表","xls")
ENDIF

ef=CREATEOBJECT("Excel.application")
ef.workbooks.add
ef.worksheets('sheet1').activate
ef.visible=.t.

WITH ef.range("a1")
.value="表"
.font.size=12
.HorizontalAlignment =3
ENDWITH

ef.ActiveWorkbook.SaveAs(outfilename)
ef.workbooks.close
ef.quit