下面是导到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