J
jean grey
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.
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.