PB中OLE调用WPS的ET出错,帮忙看一下~
本帖最后由 chaoleo 于 2010-01-13 20:20:05 编辑 我用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这一块的需求,还是在读书的时候弄过这东东,当时求伯君巨偶像