I'm trying to figure out what this script does. I believe the person's intentions were to have a drop down menu in excel with the features of this particular addin. Can someone take a look and let me know where the issue are?


_____START____

Dim oXL, oAddin

Set oXL = CreateObject("Excel.Application")
oXL.Application.DisplayAlerts = False
oXL.Workbooks.Add
oXL.AddIns("tbatoolkit").Installed = False
Set oAddin = oXL.AddIns.Add("tbCredit.tbAddin", True)
oAddin.Installed = True
Set oAddin2 = oXL.AddIns.Add("C:\Program Files\myaddin\tba\Addins\tbaToolkit.xla", True)
oAddin2.Installed = True
oXL.Quit
Set oXL = Nothing

____END____
0 Comments   [ + ] Show Comments

Comments

Please log in to comment

Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.

Answers

0
visit the vba forums in microsoft.
Answered 12/13/2006 by: aogilmor
Ninth Degree Black Belt

Please log in to comment
0
Ok, I've figured out exactly what this script does. Does anyone know how I can reverse what it's doing? I would assume is workbook.remove, but 'remove' doesn't seem like a function. What would be the correct way to do this?

Thanks
Answered 12/14/2006 by: Secondlaw
Third Degree Blue Belt

Please log in to comment
0
Try this.. (not very sure, please check)

Dim oXL, oAddin

Set oXL = CreateObject("Excel.Application")
oXL.Application.DisplayAlerts = False

Set oAddin2 = oXL.AddIns.Add("C:\Program Files\myaddin\tba\Addins\tbaToolkit.xla", False)
oXL.Workbooks.Add
oAddin2.Installed = False
oXL.Quit
Set oXL = Nothing

Hope this helps
Answered 12/15/2006 by: slb
Purple Belt

Please log in to comment
Answer this question or Comment on this question for clarity