/bundles/itninjaweb/img/Breadcrumb_cap_w.png
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   [ - ] Hide 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.
Answer this question or Comment on this question for clarity

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