如何将临时表数据直接导出到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 时报错。