Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Script to start Excel and load the add-ins | Excel Programming | |||
Load Macro at start up? | Excel Programming | |||
Load Macro at start up? | Excel Programming | |||
Load Macro at start up? | Excel Programming | |||
Load Macro at start up? | Excel Programming |