下面是导到EXCEL电子表格的代码，请问怎样改写，导到WPS表格？
if thisform.grid1.recordsource="lsb"
file1=SYS(5)+CURDIR()+'temp1.xls'
select dkzh,jjh,jkdw,dtoc(jkr),je,dtoc(dqr),dtoc(qxr),ll,bz02,dkxt,bz10,xdy1 from lsb into cursor lsb9
sele lsb9
export to &file1 type xls
local excel,o
excel=createobject('excel.application')
excel.workbooks.open('&file1')
o=excel.activeworkbook.activesheet
o.cells(1,1).select
excel.ActiveWindow.windowstate=2
excel.visible=.t.
startTime=time()
release excel,o
else
messagebox("真抱歉，没有您要的数据...",64,"提示")
endif

不用wps  没导过

曲线救国——导出到EXCEL后再复制粘贴到WPS吧

参考这个
https://bbs.bccn.net/viewthread.php?tid=414862&page=1#pid2311504

最简单的就是
use xxx
copy to d:\1.xls fox2

或者高大上点：
把excel=createobject('excel.application')换成
excel=createobject('et.application')

最简单的就是
use xxx
copy to d:\1.xls fox2

或者高大上点：
把excel=createobject('excel.application')换成
excel=createobject('et.application')

学习了

提示：找不到et.application类