VFP中调用CELL如何保存成EXCEL

我在VFP中调用CELL，已经把数据库的数据读到在VFP页面中CELL控件中，但是用什么命令能把CELL控件中的数据存成EXCEL文件啊。

WITH thisform
    .cell1.openfile('xbk.cll',0) 
     USE a2
    no1=4 
    SCAn
        .cell1.SetCellString(1,no1,0,姓名)
        .cell1.SetCellString(2,no1,0,职务)
        .cell1.SetCellString(3,no1,0,工资)
        no1=no1+1
ENDSCAN
USE
    ******在这如何写语句，把CELL的数据保存成EXCEL
ENDWITH
return

答案：下面示例介绍了如何将一个表中数据保存到EXCEL中。我没用过Cell控件，所以下面的代码没有从Cell中读取数据，你自己修改下就可以满足要求。

lcFileName="C:\ABC.XLS"
LOCAL lOldSetOpt,mChanNum         &&下面语句判断EXCEL或要保存的EXCEL文件是否已经打开
lOldSetOpt = DDESetOption("SAFETY")
= DDESetOption("SAFETY",.F.)
**mChanNum = DDEInitiate('Excel','SYSTEM') &&EXCEL是否已经打开
mChanNum = DDEInitiate('Excel','&lcFileName') &&lcFileName某XLS文件名，如：D:\123.XLS
IF mChanNum <> -1
   = messagebox('文件【'+lcFileName+'】已经打开，请先将其关闭！',64,'系统提示！')
   = DDETerminate(mChanNum) 
   = DDESetOption("SAFETY",lOldSetOpt)
   RETURN
ENDIF
IF FILE(lcFileName)
   DELETE FILE &lcFileName
ENDIF

eole=CREATEOBJECT("Excel.application")
eole.Workbooks.add
eole.Worksheets("sheet1").Activate
eole.cells(1,1)="书号"
eole.cells(1,2)="自编号"
eole.cells(1,3)="书名"
eole.cells(1,4)="作者"
eole.cells(1,5)="出版社"
eole.cells(1,6)="定价"
eole.cells(1,7)="折扣"
eole.cells(1,8)="出版年限"
Sele BookInfo
SCAN
       i=RECNO()
       eole.cells(i+1,1)="'"+ALLTRIM(isbn)
       eole.cells(i+1,2)=ALLTRIM(selfcode)
       eole.cells(i+1,3)=ALLTRIM(booktitle)
       eole.cells(i+1,4)=ALLTRIM(author)
       eole.cells(i+1,5)=ALLTRIM(pubname)
       eole.cells(i+1,6)=price
       eole.cells(i+1,7)=Discount
       eole.cells(i+1,8)=IIF(ISNULL(PubDate),"",TTOD(Pubdate))
ENDSCAN 
eole.ActiveWorkbook.SaveAs(lcFileName)
eole.Workbooks.close
eole.quit

上一个：求教oracle 导入excel里的数据方法
下一个：excel导入SQL数据类型变化问题？？？