Installing Addin Causes Serious Error in Excel 2002

[Red Rider]

I created two Excel addins that worked perfectly well in Excel 2000.

Private Sub Workbook_Open()
‘ code for UpdateAddin.xla

‘ unload addin
AddIns("TestAddin").Installed = False

‘ Code that checks and copies newer version
‘ of TestAddin.xla addin if needed

‘ reinstall addin
AddIns("TestAddin").Installed = True

End Sub

The UpdateAddin addin unloads the TestAddin addin and checks to see if
a newer version is present. It copies the newer version (code not
shown) and then reinstalls TestAddin. When I installed these same
addins in Excel 2002 I get the following error:

Excel experienced a serious error the last time UpdateAddin.xls was
opened. Would you like to disable this addin?

I’ve tried different addins, other than TestAddin, and get the same
result. The problem appears to be uninstalling then reinstalling any
addin using the Workbook_Open() procedure. Since many updates are
done to TestAddin I’m trying to keep the upgrade transparent to users.
Any help would be appreciated.

 

[Jan Karel Pieterse]

Hi Red,

The problem appears to be uninstalling then reinstalling any
addin using the Workbook_Open() procedure.

WHat if you move the code out of workbook_open into a sub in a normal module
and call that sub from workbook_open.
If that doesn't help, try using the ontime method to call the sub

Regards,

Jan Karel Pieterse
Excel MVP
http://www.jkp-ads.com
Member of:
Professional Office Developer Association
www.proofficedev.com

 

[Red Rider]

Hi Red,


WHat if you move the code out of workbook_open into a sub in a normal module
and call that sub from workbook_open.
If that doesn't help, try using the ontime method to call the sub

Regards,

Jan Karel Pieterse
Excel MVPhttp://www.jkp-ads.com
Member of:
Professional Office Developer Associationwww.proofficedev.com

Putting the commands in separate procedures and calling from
Workbook_Open() didn't work BUT calling them using the Ontime function
WORKED GREAT!!!

Application.OnTime Now + TimeValue("00:00:01"), "UninstallAddin" '1
second delay

Application.OnTime Now + TimeValue("00:00:02"), "ReinstallAddin" '2
second delay

Thanks for the help.