By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
449,023 Members | 922 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 449,023 IT Pros & Developers. It's quick & easy.

Using excel XIRR FUNCTION IN A VB 2005 program

P: n/a
I'm getting RPC error when I try to register analys32.xll in the VB program.
Message="El servidor lanzó una excepción. (Exception from HRESULT:
0x80010105 (RPC_E_SERVERFAULT))"
at Microsoft.Office.Interop.Excel.ApplicationClass.Re gisterXLL(String
at WindowsApplication9.Form1.Button1_Click(Object sender, EventArgs
e) in C:\Documents and Settings\ccuervo\Mis documentos\Visual Studio
2005\Projects\WindowsApplication9\WindowsApplicati on9\Form1.vb:line 9
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventAr gs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons
button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
System.Windows.Forms.Control.ControlNativeWindow.O nMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.W ndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallba ck(IntPtr hWnd,
Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchM essageW(MSG& msg)
System.Windows.Forms.Application.ComponentManager. System.Windows.Forms.UnsafeNativeMethods.IMsoCompo nentManager.FPushMessageLoop(Int32
dwComponentID, Int32 reason, Int32 pvLoopData)
System.Windows.Forms.Application.ThreadContext.Run MessageLoopInner(Int32
reason, ApplicationContext context)
System.Windows.Forms.Application.ThreadContext.Run MessageLoop(Int32 reason,
ApplicationContext context)
at System.Windows.Forms.Application.Run(ApplicationCo ntext context)
Microsoft.VisualBasic.ApplicationServices.WindowsF ormsApplicationBase.OnRun()
Microsoft.VisualBasic.ApplicationServices.WindowsF ormsApplicationBase.DoApplicationModel()
Microsoft.VisualBasic.ApplicationServices.WindowsF ormsApplicationBase.Run(String[] commandLine)
at WindowsApplication9.My.MyApplication.Main(String[] Args) in
17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
at System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)
at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence
assemblySecurity, String[] args)
at Microsoft.VisualStudio.HostingProcess.HostProc.Run UsersAssembly()
at System.Threading.ThreadHelper.ThreadStart_Context( Object state)
at System.Threading.ExecutionContext.Run(ExecutionCon text
executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()
The code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim objExcel As Microsoft.Office.Interop.Excel.Application
objExcel = New Microsoft.Office.Interop.Excel.Application
objExcel.Workbooks.Open(objExcel.Application.Libra ryPath & _
objExcel.RegisterXLL(objExcel.Application.LibraryP ath & _
Dim p(4) As Double
p(0) = -4504000.0
p(1) = 66183.78
p(2) = 86326.67
p(3) = 86326.67
p(4) = 4524142.89

Dim X As Double
' objExcel.AddIns.Add("c:\Analisis\atpvbaen.XLa")
Dim d(4) As Date
d(0) = #1/1/1998#
d(1) = #3/1/1998#
d(2) = #10/30/1998#
d(3) = #2/15/1999#
d(4) = #4/1/1999#

Debug.Print(objExcel.Run("xIrr", p, d)) ' Result: 0.374858599901199
objExcel = Nothing
End Sub
Anyone of you know how to solve this problem

Nov 14 '06 #1
Share this Question
Share on Google+
1 Reply

P: n/a
Anyone of you know how to solve this problem

Something I found:

You might have to install .NET programmability support.
Nov 15 '06 #2

This discussion thread is closed

Replies have been disabled for this discussion.