PB中OLE调用WPS的ET出错,帮忙看一下~该如何处理
PB中OLE调用WPS的ET出错,帮忙看一下~
我用OLE调用ET的函数IRR,提示错误,我已有红色提示,请大家指点一下~谢谢
decimal ld_arr[]
decimal ld_jz
Et = CREATE OLEObject
li_Etok = Et.ConnectToObject("Et.application")
if li_Etok < 0 then
li_Etok = Et.ConnectToNewObject("Et.application")
if li_Etok >= 0 then
Et.visible=false
ld_ret = Et.ActiveWorkbook.ActiveSheet.Irr(ld_arr,ld_jz)
Et.quit()
Et.DisConnectObject()
destroy Et
end if
end if
------解决方案--------------------
提示的是空对象还是函数不存在之类的?楼主需要把错误信息贴上来呀,
没有WPS这一块的需求,还是在读书的时候弄过这东东,当时求伯君巨偶像
我用OLE调用ET的函数IRR,提示错误,我已有红色提示,请大家指点一下~谢谢
decimal ld_arr[]
decimal ld_jz
Et = CREATE OLEObject
li_Etok = Et.ConnectToObject("Et.application")
if li_Etok < 0 then
li_Etok = Et.ConnectToNewObject("Et.application")
if li_Etok >= 0 then
Et.visible=false
ld_ret = Et.ActiveWorkbook.ActiveSheet.Irr(ld_arr,ld_jz)
Et.quit()
Et.DisConnectObject()
destroy Et
end if
end if
------解决方案--------------------
提示的是空对象还是函数不存在之类的?楼主需要把错误信息贴上来呀,
没有WPS这一块的需求,还是在读书的时候弄过这东东,当时求伯君巨偶像