There are many formuls' library in Excel.
Can I call them in my VB program?

Thanks.

On Mon, 25 Aug 2003 08:29:08 -0700, "sam" <(E-Mail Removed)> wrote:

¤
¤ There are many formuls' library in Excel.
¤ Can I call them in my VB program?

The following code uses a function (XIRR) from the Analysis TookPak

Private Sub RunExcelFunction_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles RunExcelFunction.Click

Dim td(3) As Integer
Dim td1(3) As Date
td(0) = -100
td(1) = 200
td(2) = 200

td1(0) = #8/1/2000#
td1(1) = #9/1/2000#
td1(2) = #10/1/2000#

Dim objExcel As New Excel.Application()

objExcel.RegisterXLL("C:\Program Files\Microsoft
Office\Office\Library\Analysis\ANALYS32.XLL")

Dim dos As Double
dos = CType(objExcel.Run("XIRR", td, td1), Double)

objExcel.Quit()
objExcel = Nothing

End Sub


Paul ~~~ (E-Mail Removed)
Microsoft MVP (Visual Basic)