如何将临时表数据直接导出到WPS?

如果电脑没有安装OFFICE软件，只安装WPS软件，如何将临时表数据导出到WPS（像导出到Excel一样）?
Local lerr_pd
lerr_pd = .F.
On Error lerr_pd = .T.
Wps = Createobject("kwps.application")
On Error
If Lerr_pd = .T.
    = Messagebox("WPS对象创建失败，程序将中止！",16,'系统提示')
    Return .F.
Endif
Wps.Visible=.T.
Wps.Workbooks.Add
Wps.Worksheets("sheet1").Activate
Wps.Caption="VFP调用WPS"
Wps.cells(1,4).Value="第1行第4列"

上面代码到 Wps.Workbooks.Add 时报错。