怎样在Access中调用Excel的Yield函数？（付失败的code）

leontancfa

Hi.我尝试用以下的code调用Excel中的yield函数，但得到以下错误信息：
Error '91': Object variable or With block variable not set
我是错在哪里呢？谢谢。

Public Function yield(settlement, maturity, rate, pr _
                      , redmeption, frequency, basis)
Dim xlATP As OCATP
'
yield = xlATP.yield(settlement, maturity, rate, pr, redmeption, frequency, basis)
End Function


Sub test()
a = yield(DateValue("3/13/2009"), DateValue("10/22/2009"), 0.0115, 99.324, 100, 2, 2)
End Sub

ACMAIN_CHM

Public Function yield(settlement, maturity, rate, pr _
                      , redmeption, frequency, basis)
        Dim xlATP As OCATP
        '
        yield = xlATP.yield(settlement, maturity, rate, pr, redmeption, frequency, basis)
End Function


OCATP 是什么？！
一般是在项目中引用microsoft excel 的对象库。然后
dim oXlsApp as new excel.application

但如果只是为了用一个yeild函数则不推荐利用excel来计算，不如自己用VBA写一个。




******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .