VBS script to start Excel and load Add-ins

A

Aaron Fude

Hi,

A few weeks ago a posting of mine contained a request for a script to start
excel, load add-ins and open the wb given by the first agrument to the
script. keepITcool was kind enough to answer with essentially the following:

Dim XL
Dim agrs
Dim ai

on error resume next
set XL = GetObject(,"Excel.Application")

If XL is Nothing Then

Set XL = CreateObject("Excel.Application")

For Each ai In xL.AddIns
If ai.Installed Then
XL.Workbooks.Open(ai.FullName).RunAutoMacros 1
End If
Next
End If

XL.Workbooks.Open WScript.Arguments(0)
XL.Visible = True
---------------------------------------------------

This script causes 2 problems for me:
1. Add-ins are not opened in the order specified by the registry, but rather
alphabetically. Since one of my add-ins depends on the other, this doesn't
work for me.
2. It fails to open the MS addin "MSN Equity Quotes" complaining that it is
the wrong format.

Any way to modify the script to make it work in these cases?

Many thanks in advance.

Aaron Fude
 
K

keepITcool

i dont know about the MSN addin.. but the rest:


if your addins are "load order" dependent, i suggest you change their
"title" properties so they always load in the correct order

else change the script like

For Each ai In xL.AddIns
If lcase(ai.Name) = "myfirst.xla" Then
XL.Workbooks.Open(ai.FullName).RunAutoMacros 1
End If
Next
For Each ai In xL.AddIns
If lcase(ai.Name) = "mysecond.xla" Then
XL.Workbooks.Open(ai.FullName).RunAutoMacros 1
End If
Next
'in case you need the other addins...
For Each ai In xL.AddIns
if ai.installed then
if lcase(ai.name) <> "myfirst.xla" _
and lcase(ai.name) <> "mysecond.xla" then
XL.Workbooks.Open(ai.FullName).RunAutoMacros 1
End If
end if
Next



keepITcool

< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >
 
A

Aaron Fude

Thanks keepITCool.

This one still has a problem! The Add-in that my Add-in depends on is an xll
(written in C) and while it loads (i.e. there's a checkmark) its routines do
not become avilable to my xla.

Aaron Fude
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Script to start Excel and load the add-ins 3
Automate start VB in another instance of excel and continue _without_waiting for code to finish 3
transfer data from word userform to excel 1
Attache Excel Worksheet (Not Workbook) to Email 2
Reference Excel UDF from Outlook 1
Attach Excel Worksheet (Not Workbook) to Email 4
Statement works in one scenario, not in other 3
start excel from c# and load add-ins 2

Top