Scripting

Hi,

The excel addins are getting installed under the userprofile folder & hence not visible to others. Check whether the addins are getting installed to userprofile folder are not & then decide your instllation properly. Usually, the excel addins under the userprofile directory will be "C:\Documents and Settings\[%USERNAME]\Application Data\Microsoft\Excel\XLSTART" present.

Other alternative location which makes every1 to use the addin when they log on to the system would be under "C:\Program Files\Microsoft Office\OFFICE11\XLSTART".

Try this & let me know if this was useful information.

Regards,
Sanju.[:)]

I have looked in both directories but the folder exists but the addins are not there. Any ideas.

XLA addins are part of user profile and Application adds it using registries.
Please find the your application specific Addins registry at following location with Key name as OPTIONx.
"HKEY_CURRENT_USER\Software\Microsoft\Office\[Office Version]\Excel\Options"

This is a common place where different application will put thier application specific Addins for Excel.
If you find your Application specific registry, Just tell meI'll pass you script to add Addins in this location, As OPTIONx is an iterative number, can't be hard coded.


Thanks
Jimit[:)]

I see the reg entries in the place you said to look for.
Please pass me the script so i can have the addins be seen in all th eusers that log in. Cant seem to get this thing to work.

Thanks

Hi,

Please pass me ur Id where U want me to pass you the script.

Thanks
Jimit

ORIGINAL: jimehta

Hi,

Please pass me ur Id where U want me to pass you the script.

Thanks
Jimit


Does anyone know of how to add multiple add ins in excel? When I update the registry in HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Option for one add in, it wipes out previously installed ones...

HELP!

Thanks,
Warren.

Here is the code for adding an add-in;

On Error Resume Next
Dim oXL : Set oXL = CreateObject("Excel.Application")
Dim oAddin : Set oAddin = oXL.AddIns.Add(session.property("INSTALLDIR") & "ist.xla", True)
oXL.Workbooks.Add
oAddin.Installed = True
oXL.Quit
Set oAddin = Nothing
Set oXL = Nothing‘*************************************************************************
'Under Install Execute Sequence
'Location: AFTER InstallFinalize
'Condition: NOT REMOVE
'Properties: Immediate Execution; Synchronous; Always Execute


Here is the code for removing and add-in;

On Error Resume Next
Dim oXL : Set oXL = CreateObject("Excel.Application")
Dim oAddin : Set oAddin = oXL.AddIns.Add(session.property("INSTALLDIR") & "ist.xla", False)
oXL.Workbooks.Add
oAddin.Installed = False
oXL.Quit
Set oAddin = Nothing
Set oXL = Nothing‘******************************************************************
'Under Install Execute Sequence
'Location : AFTER InstallInitialize
'Condition: REMOVE
'Properties: Immediate Execution; Synchronous; Always Execute

‘*************************************************************************
The above code may be altered to either run as an embedded vbscript from within a msi or in the case of multi user or Admin –vs- User installations the scripts can be best triggered via Microsoft Active Setup.

THANK YOU SO MUCH.

I'll give it a whirl... [:)]

Hi. I tried using your code and have the following:

On Error Resume Next
Dim oXL : Set oXL = CreateObject("Excel.Application")
Dim oAddin : Set oAddin = oXL.AddIns.Add("C:\Program Files\PIPC\Excel\pipc32.xll" & "pipc32.xll", True)
oXL.Workbooks.Add
oAddin.Installed = True
oXL.Quit
Set oAddin = Nothing
Set oXL = Nothing

This runs without any errors but does nothing. It does not add the Add-in to Excel. Any hints as to why?





On Error Resume Next Dim oXL : Set oXL = CreateObject("Excel.Application") Dim oAddin : Set oAddin = oXL.AddIns.Add(session.property("INSTALLDIR") & "ist.xla", True) oXL.Workbooks.Add oAddin.Installed = True oXL.Quit Set oAddin = Nothing Set oXL = Nothing

You appear to be attempting to add two(2) add-ins at the same time. And it would appear to be the same file "pipc32.xll".

Try removing the " & "pipc32.xll"".

On Error Resume Next
Dim oXL : Set oXL = CreateObject("Excel.Application")
Dim oAddin : Set oAddin = oXL.AddIns.Add("C:\Program Files\PIPC\Excel\pipc32.xll", True)
oXL.Workbooks.Add
oAddin.Installed = True
oXL.Quit
Set oAddin = Nothing
Set oXL = Nothing


This code can only add one add-in at a time. but you can repeat the adding sequence as many times as you need to.
Regards,

Thanks. I did try that and it was the same result. It runs without error yet does nothing.

Try:

On Error Resume Next
Dim oXL
Dim oAddin
Set oXL = CreateObject("Excel.Application")
oXL.Workbooks.Add
Set oAddin = oXL.AddIns.Add("C:\Program Files\PIPC\Excel\pipc32.xll", True)
oAddin.Installed = True
oXL.Quit
Set oAddin = Nothing
Set oXL = Nothing

a little re-order... [;)]

Hey thanks, that worked perfect!! Now, for the next question :-)
When I run this script it works but I am prompted with 2 dialogs that say

"This application is about to initialize ActiveX controls that might be unsafe. If you trust the source of this file select OK and the controls will be initialized using your current workspace settings"

How using VBScript can you answer this window and press OK?

Thanks,

are you hinting towards the usage of WshShell.SendKey() method??
well, to me its a bad idea (last hope)... surely there must be some security exemptions that can be made.. trusted applications.

regards,
tushar

how are you running the script? Is it in a CA inside an MSI?

No, it is not a custom action. What I ended up doing is running the VBScript to add the initial AddIn and when prompted with the Dialog I used WinBatch to close the windows. And I know this EXE will only run in the users context and in fact will get triggered via the ActiveSetup key. Not that would matter since WinBatch can find and close any window even if no one is logged in.

I was just wondering how VBScript does it since I don't code much with VB.

Thanks.

Try the SendKey operation when the script executes... bad though. search for a GPO or a security setting that can mark the addin application as trusted and does not ask for the user interaction.

Last resort is objShell.SendKey()

ORIGINAL: mhsl808
"This application is about to initialize ActiveX controls that might be unsafe. If you trust the source of this file select OK and the controls will be initialized using your current workspace settings"Gosh! I'm surprised that the enterprising souls here haven't stumbled across the Web's best-kept secret, a search engine called 'Google'. I entered this search term:

microsoft +office +"This application is about to initialize ActiveX controls that might be unsafe"

The 6th hit is http://support.microsoft.com/default.aspx?scid=kb;en-us;827742&Product=xl2003

First, your solution is for Office and I am not dealing with Office, I have a 3rd party software that is custom written by a small company.

Second, your web page (which we all know how to find btw) does not address the issue I am having

Third, if you read my last post you would see where I explain how I solved the problem