如何在PB下通过OLE调用EXCEL的财务函数IRR(内部投资收益率)函数（原创）

OLEObject  ExcelServer
integer   li_ok
dec{2} ld_ret
long ll_arr[]

ExcelServer = CREATE OLEObject
li_ok = ExcelServer.ConnectToObject("excel.application")

if li_ok < 0 then
 li_ok = ExcelServer.ConnectToNewObject("excel.application")
 if li_ok < 0 then
    messagebox("提示","您的電腦可能沒裝EXCEL，所以不能導出！")
    return
 end if
end if

ll_arr[1] = -70000
ll_arr[2]=12000
ll_arr[3]=15000

ExcelServer.Visible = false  
ld_ret = ExcelServer.WorksheetFunction.Irr(ll_arr,-0.1)
ExcelServer.quit()
ExcelServer.DisConnectObject()
destroy ExcelServer

messagebox("内部投资收益率为：",string(ld_ret))

//其中的ll_arr数组用于存放Irr函数的参数，可自行修改设定

//ll_arr[1] = -70000
//ll_arr[2]=12000
//ll_arr[3]=15000
//-0.1

//这些都是EXCEL自带帮助中Irr函数所自带例子数据，可以和帮助对照即知