View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Peter T Peter T is offline
external usenet poster
 
Posts: 5,600
Default Add-In Automation Fails in Excel 2000

Are you using the RegisterXLL function to register your XLL.

Not sure why you need Visual studio installed as you haven't given any
details. Also not sure what you are asking re build path.

Regards,
Peter T

"jean grey" wrote in message
...
Thanks, guys for your suggestions.
I'm running the code from an external vbscript which is used to
automatically add the Add-in in Excel's Add-In Manager (somehow like an
installer).
You were right at some point. There's nothing wrong with my code.
Aside from the XLA, which had no problem registering, I have an XLL file
and
found out that it was the one that fails to register. I also noticed that
the
add-in is registered when there is Visual Studio installed, but it fails
when there's none.
Does anyone here know which lib or dll from Visual Studio should be
included
in the build path?

Thanks.

"Dave Peterson" wrote:

And wouldn't you want to avoid the possible error:

Option Explicit
Public Sub InstallAddIn()

Dim xlApp As Application 'As Object
Dim xlAddIn As AddIn 'as Object

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True 'for testing

xlApp.Workbooks.Add

On Error Resume Next
Set xlAddIn = xlApp.AddIns.Add("C:\XXX.xla", True)
If Err.Number = 0 Then
xlAddIn.Installed = True
End If
On Error GoTo 0

xlApp.Quit
Set xlApp = Nothing

End Sub

If you're running this from excel, I'm not sure why you want to start a
new
excel application, though.

But if you're running this from a VBS file (testing via excel???), then I
broke
your declarations.


jean grey wrote:

Hi, everyone. I need some help why the ff. code does not succeed:

Public Sub InstallAddIn()

Dim xlApp, xlAddIn

Set xlApp = CreateObject ("Excel.Application")
xlApp.Workbooks.Add
xlAddIn = xlApp.AddIns.Add("C:\XXX.xla", True)
If Err.Number = 0 Then
xlAddIn.Installed = True
End If
xlApp.Quit
Set xlApp = Nothing

End Sub

This installs the add-in in Excel 2003 but not in Excel 2000.
It generates an error when calling xlAddIn =
xlApp.AddIns.Add("C:\XXX.xla",
True)

I don't know how to modify the code using the suggested link below from
other forums:

http://support.microsoft.com/kb/213489/

Thanks in advance.


--

Dave Peterson