VBS script to start Excel and load Add-ins
 

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

VBS script to start Excel and load Add-ins
 

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


"Aaron Fude" wrote:

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