S sam Aug 25, 2003 #1 There are many formuls' library in Excel. Can I call them in my VB program? Thanks.
P Paul Clement Aug 25, 2003 #2 ¤ ¤ 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 address removed) Microsoft MVP (Visual Basic)
¤ ¤ 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 address removed) Microsoft MVP (Visual Basic)